Hi,
ich habe dafür letztens eine ListBox missbraucht:
Delphi-Quellcode:
procedure TMDIChild.lbTilesDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
begin
lbTiles.Canvas.Draw(Rect.Left, Rect.Top, Tiles[Index]); //Tiles ist ein Array of TBitmap, hier einfach ein beliebeiges Bitmap einsetzen
end;
Den Style musst du auf lbOwnerDrawFixed stellen