Grob gesagt, ich habe eine neue Klasse auf der Basis von TPanel erstellt und folgendes getan
Delphi-Quellcode:
type
TBox = class(TPanel)
...
public
procedure paint; override;
...
end
procedure TBox.Paint;
begin
...
end
Tja???
[Edit=Sakura]DELPHI-Tags eingefügt[/Edit]