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;