Zitat von
taaktaak:
das ist es auch nicht ...
Delphi-Quellcode:
procedure TfoTest11.FormShow(Sender:TObject);
var i : Integer;
Str : String;
begin
for i:=0 to 9 do begin
Str:='hihihihi';
Listbox1.Items.AddObject('Hallo'+IntToStr(i),Pointer(Str))
end;
end;
procedure TfoTest11.ListBox1DblClick(Sender:TObject);
begin
ShowMessage(String(Listbox1.Items.Objects[Listbox1.ItemIndex]))
end;
DANKEEEEE!!!!!!!! an alle
taaktaak ich glaub das ist genau das was ich schön vergeblich im ganzen Internet gesucht habe. Einfach und verständlich. Sehr schön
Fazit: es ist nicht so komplexx wie in den anderen beispielen und für mich besser zu verstehen, da ich noch nicht so ein pro bin thx