Icon in TCustomControl integrieren

[Kroko1999]

in der Komponente Paint überschreiben und dort zeichnen

Delphi-Quellcode:

procedure TmyCompo.Paint; override;
...
procedure TMyCompo.Paint;
begin
  inherited;
  ImageList.draw (Canvas,2,2,True);    
end;