zusatzinformationen in tlistbox

[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;