zusatzinformationen in tlistbox

[eric - the master]

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