Ver Mensaje Individual
  #2  
Antiguo 12-07-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita