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??