Saber cuando un Form hace un Paint

[[José Luis Garcí]]

PAldave, gracias por tu respuesta pero me da un error de incompatible tipos Tcontrol con mi Tcomponent.

De todas maneras, me gustaria saber si vale para el resto de los eventos.

[paldave]

Vale para todos los eventos.
El error se debe a que tu componente no es visual, es decir, deriva de TComponent y no de TControl, por lo cual no tiene un Form "padre".
La forma de solucionarlo podría ser la siguiente:

Código Delphi [-]
constructor TMiComponente.Create(AOwner:TComponent);
begin
  inherited Create(AOwner);
  TForm(Owner).OnPaint:=FormPaint;
end;

debido a que los componentes no visuales tienen como propietario el formulario en el cual están.

Espero que con esto soluciones el problema.[/font][FONT=verdana,geneva,lucida,'lucida grande',arial,helvetica,sans-serif]

Saludos.