usar el toolbar de un mdiparent

[ingmichel]

saludos a todos los colegas de este tan prestigioso foro, veran mi duda es la siguiente, me he interezado en utilizar formularios mdi en mis aplicaciones y me ha surgido la siguiente duda.
tengo un componente toolbar en mi formulario mdi parent con varias opciones, ahora bien, tambien tengo un componente toolbar en mi formulario mdiclild tambien con varias opciones, lo que quiero hacer es que cuando entre a mi formulario mdiclild el toolbar de este me aparezca en el formulario mdiparent, es decir que el toolbar del formulario child se coloque encima del toolbar del formulario parent y asi emular una especie de mantenimiento comun para todos los formularios child de mi aplicacion, bueno espero haber sido explicito, por favor si alguien ha hecho esto antes le estare bastante agradecido...

[ecfisa]

Hola ingmichel.

En tu form MDIChild podrías hacer:

Código Delphi [-]
.....
implementation

uses Unit1; // frmMain

procedure TfrmChild.FormShow(Sender: TObject);
var
  i: Integer;
begin
  frmMain.ToolBar1.Visible:= False; 
  Toolbar1.Parent:= frmMain;  // Toolbar de frmChild
end;

...

procedure TfrmChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ToolBar1.Parent:= Self;   // Toolbar de frmChild
  frmMain.ToolBar1.Visible:= True;
  Action:= caFree;
end;
end.

Saludos.

[ingmichel]

muchas gracias ecfisa por tu pronta respuesta, era justo lo k necesitaba. kiero aprovechar para agradecerte sinceramente por k siempre has atendido con rapidez mis inquietudes k dios te bendiga mucho hermano.

[ingmichel]

saludos ecfisa, estaba probando el codigo y me doy un cuenta que existe un pequeño inconveniente y es que cuando abro varios forms mdichild, se duplica el control toolbar del form mdiparent tantas veces como habra los mdichild, como puedo corregir este inconveniente ? graacias de antemano.

Empezado por ingmichel

muchas gracias ecfisa por tu pronta respuesta, era justo lo k necesitaba. kiero aprovechar para agradecerte sinceramente por k siempre has atendido con rapidez mis inquietudes k dios te bendiga mucho hermano.

[x_aguilarf]

prueba haciendo lo mismo pero con las funciones FormActivate y FormDeactivate:

Código Delphi [-]
.....
implementation

uses Unit1; // frmMain

procedure TfrmChild.FormActivate (Sender: TObject);
begin
  frmMain.ToolBar1.Visible:= False; 
  Toolbar1.Parent:= frmMain;  // Toolbar de frmChild
  Toolbar1.Visible := True;
end;

...

procedure TfrmChild.FormDeactivate(Sender: TObject; var Action: TCloseAction);
begin
  frmMain.ToolBar1.Visible:= True;
  Toolbar1.Visible := False;
end;
end.

[ingmichel]

muchas gracias x_aguilarf por tu ayuda, hice lo k me dijiste y justamente era asi que debia hacer para resolver el inconveniente, bueno me esta pareciendo bastante interezante esto de los forms mdi, pero no se mucho sobre ellos asi que cualquier problema que se me presente, pedire ayuda.
gracias a todos...

Empezado por x_aguilarf

prueba haciendo lo mismo pero con las funciones FormActivate y FormDeactivate:


Código Delphi [-]
.....
implementation

uses Unit1; // frmMain

procedure TfrmChild.FormActivate (Sender: TObject);
begin
frmMain.ToolBar1.Visible:= False;
Toolbar1.Parent:= frmMain; // Toolbar de frmChild
Toolbar1.Visible := True;
end;

...

procedure TfrmChild.FormDeactivate(Sender: TObject; var Action: TCloseAction);
begin
frmMain.ToolBar1.Visible:= True;
Toolbar1.Visible := False;
end;
end.