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);