TEdit Cursorposition verwenden

[Uwe Raabe]

Wie schon gesagt, ist weder SelStart noch SelLength relevant, sondern man muss lediglich SelText setzen.

Zitat:

Das TEdit Feld ist leer.
Nun schreibe ich etwas da hinein, zB. "und ist Drei".
Das TEdit Feld hat den Focus und man sieht den TextCursor am
Ende des Textes blinken.

Jetzt setze ich mit dem Mauszeiger den TextCursor vor dem i
von "ist". Wenn ich nun mit dem Mauszeiger in die TListBox
auf die Zeile "Zwei " klicke, moechte ich, dass dieser Text
in das TEdit Feld an der Position vor dem i eingesetzt wird.
Es muesste jetzt dort "und Zwei ist Drei" stehen.

Genau dies erreichts du mit einem simplen:

Delphi-Quellcode:

procedure TPEnhInpText.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Edit1.SelText := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;