Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Minimizar dos ventanas a la vez.. (https://www.clubdelphi.com/foros/showthread.php?t=90974)

ingel 19-10-2016 15:51:24

Minimizar dos ventanas a la vez..
 
Buendia a todos... trabajo con ventanas Modales . Tengo un Menu principal (que ocupa toda la pantalla del monitor ) y desde ahi voy abriendo las opciones en forma modal.. Lo que yo querria hacer es que al minimizar la opcion del menu que abri que tambien se minimice la pantalla del Menu principal (que habia quedado de fondo).. y al maximizar obviamente maximizar ambas volviendo el control sobre la opcion del menu que abri..
Espero haberme explicado.
sds y gracias por su tiempo.

roman 19-10-2016 16:38:59

En el formulario modal intenta capturar el mensaje WM_SYSCOMMAND para desde ahí minimizar la aplicación:

Código Delphi [-]
interface

type
  TModalForm = class(TForm)
    { ... }
  private
    procedure WMSysCommand(var Message: TWMSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

implementation

procedure TModalForm.WMSysCommand(var Message: TWMSysCommand);
begin
  if Message.CmdType and $FFF0 = SC_MINIMIZE then
    Application.Minimize
  else
    inherited;
end;

LineComment Saludos

roman 19-10-2016 16:46:11

Por otra parte, este efecto lo puedes complementar con este truco http://clubdelphi.com/foros/showthre...HookMainWindow, que te permite minimizar la aplicación desde su botón en la barra de tareas aun cuando haya ventanas modales abiertas.

LineComment Saludos


La franja horaria es GMT +2. Ahora son las 21:46:55.

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