mehrzeilige listbox-einträge

[maddins]

aha, jetz versteh ich langsam...

so sieht das jetz aus:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
 var eintrag:pitem;
begin
  new(eintrag);
  eintrag^.zeile1:='test1';
  eintrag^.zeile2:='test2';
  eintrag^.zeile3:='test3';

  ListBox1.Items.AddObject(eintrag^.zeile1, TObject(eintrag));

end;


procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
  var item:pitem;
begin
   Item:=PItem(ListBox1.Items.Objects[Index]);
   listbox1.Canvas.TextOut(0, index*40+0, Item^.zeile1);
   listbox1.Canvas.TextOut(0, index*40+12, Item^.zeile2);
   listbox1.Canvas.TextOut(0, index*40+24, Item^.zeile3);

end;

gibts egtl auch nen mittel gegen diese etwas "komische" darstellung, wenn man auf die einträge klickt??