Ver Mensaje Individual
  #2  
Antiguo 22-08-2006
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Así a bote pronto, yo diría que en el constructor de la componente:

Código Delphi [-]
constructor TLaComponenteDePascalutn2003.Create(AOwner: TComponent);
begin
  if (AOwner is TForm) then
    Self.Color := TForm(AOwner).Color;
end;

// Saludos
Responder Con Cita