Ein Objekt zu Laufzeit die Klasse zuweisen

[Bummi]

Nur um sicher zu gehen, dass das Objekt weiß was es ist weißt Du?

Delphi-Quellcode:

procedure TForm3.Button1Click(Sender: TObject);
begin
  Listbox1.Items.AddObject('',TButton.Create(self));
  Listbox1.Items.AddObject('',TListbox.Create(self));
  Listbox1.Items.AddObject('',TBitmap.Create);

end;

procedure TForm3.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

    ListBox1.Canvas.FillRect(rect);        ListBox1.Canvas.TextOut(rect.Left,rect.Top,ListBox1.Items.Objects[index].ClassName);

end;