Icon in TCustomControl integrieren

[Ghostwalker]

Das ist sehr einfach. Bau einfach eine Property in deine Komponente ein.

Beispiel (Rumpf)

Code:

   private
       fIcon : TIcon;
       procedure SetIcon(const value:TIcon);
      :
      :
   published Icon : TIcon read ficon write SetIcon;
      :
      :


  constructor xyz.create;
  begin
    fIcon := TIcon.create;
    :
    :
  end;

  destructor xyz.destroy;
  begin
    ficon.free; 
  end;

   procedure xyz.SetIcon(const Value:TIcon);
   begin
     ficon.assign(value); 
   end;

Jetzt brauchst du das Icon nur noch beim Zeichnen berücksichtigen.