Amigos hagamos uso de las etiquetas, nos simplifica la lectura de los codigos...
Código Delphi
[-]
private
Procedure MinimizarTodo(var Mensaje: TWMSysCommand); message WM_SYSCOMMAND;
public
end;
var
FrmMenu: TFrmMenu;
implementation
uses Login, Entrada, Recepcion, Itebis;
{$R *.dfm}
procedure TFrmMenu.MinimizarTodo;
var
i: Integer;
begin
with Application do
for i:= 0 to ComponentCount -1 do
if (Components[i] is TForm) then
Minimize;
end;
Saludos cordiales