nunja.. so kann ich recht wenig damit anfangen. vielleicht eni kleines codebeispiel?
edit:
habe hier was gefuden weis aber nicht obs korrekt ist (sieht für mich jedenfalls richtig aus)
Delphi-Quellcode:
procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Edit1.Text := IntToStr(Memo1.SelStart);
end;
procedure TForm1.Memo1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.Text := IntToStr(Memo1.SelStart);
end;