como minimizar todo a la vez?

[superhopi]

como puedo hacer que minimizando un form se minimicen todos los que estan abiertos tb?
muchas gracias.

[Bacterion]

Puedes hacer un Application.Minimize...
o recorrer la lista Forms del Objeto Screen y hacerle a cada uno un minimize...
(siempre que el form[n] no sea el que se está minimizando, claro)
algo así como

procedure MinimizeThemAll;
begin
with screen do
for i = 1 to FormCount - 1 do
{ este check no hace falta si no estamos en el resize o en
algun método del form que salte a consecuencia del minimizado }
if Forms[i] <> Self then
Forms[i].WindowState = wsMinimized;
end;

[superhopi]

pero cuando llamo a la funcion?
no hay ningun evento "on application.minimnized' ...

[Bacterion]

SI pegas un ApplicationEvents verás que hay un OnMinimize.
PEro este evento, supongo, solo se disparará si el FormPrincipal de minimiza (que es el que toma la aplicación para saber si la estás minimizando, cerrando, etc...)

PEro (no se que me pasa con los peros, pero no me salen bien) el Form tiene un evento OnResize que se dispara tras el cambio de tamaño.
Prueba en ese momento a preguntarle al form su WindowState y ver si está minimized. Entonces sabrás que se acaba de minimizar.

[delphi.com.ar]

Posteado originalmente por superhopi
no hay ningun evento "on application.minimnized' ...

Si lo hay, es Application.OnMinimize, una manera mas "visual" de utilizar este evento, es utilizar un ApplicationEvents como recomienda Bacterion.

Saludos!