Estimados, tengo la siguiente situación.
Una aplicación MDI, en la ventana hija en el evento ONClose lo siguiente.
Código Delphi
[-]
procedure Tnueva_ocform.FormClose(Sender: TObject; var Action: TCloseAction);
var res: integer;
begin
res := (application.MessageBox(('¿Deséa guardar la orden de compra actual?'),'Atención',MB_YESNOcancel));
case res of
2: action:= canone; 7: Action := caFree; 6: begin action:= cafree;
showmessage('guardar');
end;
end
end;
Ahora bien, necesito un procedimiento en el formulario principal para cerrar todos las ventanas hijas, y que me entregue (puede ser un una variable de tipo boolean), si es que se cerraron todas las ventanas, ya que si se fijan en el evento OnClose, está la opción de cancelar el cierre de la ventana.
El codigo del procedimiento para cerrar todas las ventas está así, pero necesito saber si se cerrar todas antes de continuar
Código Delphi
[-]
var i: integer;
begin
For i:=MDIChildCount-1 downto 0 do
begin
MDIChildren[i].Close;
end;
end;
Alguna idea?
Gracias