Ver Mensaje Individual
  #2  
Antiguo 18-12-2004
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
Una opción inmediata sería añadir la unidad del formulario padre en cada formulario hijo para poder acceder a él en los evento OnActivate y OnDeactivate mediante un moldeo de tipos:

Código Delphi [-]
procedure TFormaHija.FormActivate(Sender: TObject);
begin
  TFormaPadre(Application.MainFom).ToolButton.Enabled := true;
end;

procedure TFormaHija.FormDeactivate(Sender: TObject);
begin
  TFormaPadre(Application.MainFom).ToolButton.Enabled := false;
end;

Si escoges este método conviene que el formulario padre lo añadas en la parte de implementación de cada hijo, no en la de interfaz.

// Saludos
Responder Con Cita