Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   como minimizar todo a la vez? (https://www.clubdelphi.com/foros/showthread.php?t=891)

superhopi 28-05-2003 11:57:54

como minimizar todo a la vez?
 
como puedo hacer que minimizando un form se minimicen todos los que estan abiertos tb?
muchas gracias.

Bacterion 28-05-2003 12:49:56

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 28-05-2003 12:58:18

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

Bacterion 28-05-2003 15:27:42

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 28-05-2003 16:42:08

Cita:

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!


La franja horaria es GMT +2. Ahora son las 11:26:58.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi