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;
Genau das konnte ich selber nicht finden, weil mir die
Methode des Edit1.SelText nicht bewusst war. Haette die
Methode Edit1.AddText oder Edit1.InsText geheissen, waere
es leichter gewesen dahinter zu kommen.
@Himitsu:
Hast recht, vieles im FormCreate() ist reduntant, weil es ja die
DFM Datei gibt. Aber so wichtige Einstellungen wie
ListBox1.MultiSelect:=False habe ich gerne greifbar
hinzugefuegt, auch wenn die Default Einstellung in D2005
schon False ist. Ob das bei einer anderen/neueren Version
von Delphi ebenso ist... und dann geht das Gesuche los,
wenn das neu compilierte Programm ein Fehlverhalten zeigt.
Upload der nun funktionierenden Version meines Beispieles
folgt. Vielen Dank an alle...
Werden laut Himitsu es aber so machen:
Delphi-Quellcode:
procedure TPEnhInpText.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Edit1.SelLength:=0;
Edit1.SelText := ListBox1.Items.Strings[ListBox1.ItemIndex];
end;
MfG,
Terence