Ver Mensaje Individual
  #3  
Antiguo 06-02-2012
Avatar de Caminante
Caminante Caminante is offline
Miembro
 
Registrado: oct 2010
Ubicación: Lima - Peru
Posts: 338
Reputación: 14
Caminante Va camino a la fama
Cita:
Empezado por mjjj Ver Mensaje
una alternativa es ejecutar el procedimiento OnClose desde el mainform, pero no se que parametros pasarle.

Código Delphi [-]
procedure Tmainform.Button1Click(Sender: TObject);
var i: integer;
begin
For i:=MDIChildCount-1 downto 0 do
begin
//MDIChildren[i].Close;
mdichildren[i].OnClose(nil, cafree);  // que parametro deberás ir acá??

end;
end;
No estas llamando al procedimiento Close sino al evento Onclose
El codigo deberia ser asi:

Código Delphi [-]
procedure Tmainform.Button1Click(Sender: TObject);
var i: integer;
begin
For i:=MDIChildCount-1 downto 0 do
     MDIChildren[i].Close;//Solo llamar a close si has programado algo en onclose se ejecutara solo
end;
Responder Con Cita