Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Eventos al minimizar/restaurar un Form??? (https://www.clubdelphi.com/foros/showthread.php?t=41406)

vejerf 14-03-2007 20:18:45

Eventos al minimizar/restaurar un Form???
 
Buenas tardes...
Tengo q ejecutar una serie de acciones cuando minimizo un Form y eso sí se hacerlo... pero lo que no consigo es realizar las acciones inversas (por así decirlo) cuando lo restauro. Es decir minimizo y ejecuto unas acciones, y quiero que cuando le de al iconito q está debajo en la barra de herramientas pues cuando el form se restaure se ejecute otra serie de acciones.
Muchas gracias a todos!!!

roman 14-03-2007 20:35:12

Creo que la solución depende de si es el formulario principal o no porque cuando minimizas el principal en realidad minimizas la aplicación y el formulario sólo se oculta, así que lo que se restaura es la aplicación y no el formulario.

Si éste es el caso (el formulario principal), entonces puedes usar una componente ApplicationEvents (pestaña Additional) y valerte de su evento OnRestore.

Si es para otro formulario, puedes crear un manejador para el mensaje WM_SYSCOMMAND:

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, Classes, Controls, Forms, Dialogs;

type
  TForm2 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

{ TForm2 }

procedure TForm2.WMSysCommand(var Msg: TWMSysCommand);
begin
  inherited;

  if Msg.CmdType and $FFF0 = SC_RESTORE then
    ShowMessage('Restaurado');
end;

end.

// Saludos

xio 02-01-2008 13:41:16

Pues yo intento eso pero no lo consigo, necesito que al restaurar la aplicacion la ventana principal de la aplicacion quede detrás de las ventanas de los formularios que estan abiertos, pero no consigo sacar como hacerlo, espero que podais ayudarme.

Un saludo!


La franja horaria es GMT +2. Ahora son las 08:48:41.

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