Ver Mensaje Individual
  #2  
Antiguo 15-09-2007
Avatar de paldave
paldave paldave is offline
Miembro
 
Registrado: ago 2007
Ubicación: Uruguay
Posts: 148
Reputación: 17
paldave Va por buen camino
Pues claro que es posible, ¿que no es posible en nuestro amado Delphi?
Puedes capturar el evento OnPaint del Form desde tu componente:
Código Delphi [-]
type
  TMiComponente=class(ClaseDeLaQueDeriva);
  private
    procedure FormPaint(Sender: TObject);
  public
    constructor Create(AOwner:TComponent);override;
  end;
...
constructor TMiComponente.Create(AOwner:TComponent);
begin
  inherite Create(AOwner);
  TForm(GetParentForm(Self)).OnPaint:=FormPaint;
end;

procedure TMiComponente.FormPaint(Sender:TObject);
begin
  //aquí tu código
end;
Responder Con Cita