Ver Mensaje Individual
  #2  
Antiguo 27-09-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
Yo veo bien la opción que mencionas, incluso la veo elegante Otra forma, no necesariamente mejor, sería que derivaras tus formularios hijos de un formulario base común:

Código Delphi [-]
type
  TBaseChildForm = class(TForm)
  public
    procedure Add; virtual; abstract;
  end;

en el que declaras los métodos (acciones) que vayas a usar. Cada formulario descendiente, define tales métodos como convenga. De esta manera, el formulario padre, simplemente llama al método Add del formulario activo:

Código Delphi [-]
TBaseChild(ActiveMDIChild).Add;

// Saludos
Responder Con Cita