usar el toolbar de un mdiparent

[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.

[[Lepe]]

Empezado por ingmichel

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.

Aquí estaremos, pero recuerda que Microsoft dijo hace 10 años que los MDI estaban obsoletos y si te fijas, no se usa en ninguna aplicación moderna (o están tan camuflado que ni Dios los reconoce).

[ingmichel]

hola lepe, a decir verdad no comparto tu opinion de que microsoft dijo que estan obsoletos hace 10 años, si fuese asi ellos no lo incluirian en sus versiones de visual studio.net, al menos eso pienso yo, no se lo que opinen los demas.

saludos

Empezado por Lepe

Aquí estaremos, pero recuerda que Microsoft dijo hace 10 años que los MDI estaban obsoletos y si te fijas, no se usa en ninguna aplicación moderna (o están tan camuflado que ni Dios los reconoce).