* * *

Author Topic: [SOLVED] THTMLView how to get selected text?  (Read 495 times)

Sniper

  • New member
  • *
  • Posts: 23
[SOLVED] THTMLView how to get selected text?
« on: April 19, 2018, 03:55:34 pm »
So. Not a big proble as we have SelStart SelLength functions... but:

procedure TForm1.FrameBrowserMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var start : integer;
     endl : integer;
begin
  start := FrameBrowser.SelStart;
  endl := FrameBrowser.SelLength;
  Edit3.Text := FrameBrowser.SelText;
  Edit4.Text := IntToStr(start)+ ' ' + IntToStr(endl);
end;

But when I do mouse move nothing changes in Edit boxes. Why?

Works with procedure TForm1.Button1Click(Sender: TObject);
« Last Edit: April 20, 2018, 07:59:50 am by Sniper »

 

Recent

Get Lazarus at SourceForge.net. Fast, secure and Free Open Source software downloads Open Hub project report for Lazarus