Evento segun maximizacion de form

[dardusso23]

Hola, Queria saber si se puede y como hacer que un componente se vea si esta el form maximizado y se oculte si no lo esta. Es posible?
Gracias

[roman]

Intercepta el mensaje WM_SYSCOMMAND:

Código Delphi [-]
interface

type
  TForm1 = class(TForm)
  private
    procedure WMSysCommand(var Msg: TWMSysCommand);
  end;

implementation

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
  if (Msg.CmdType and $FFF0 = SC_MAXIMIZE) then
  begin
    // Mostrar componente
  end
  else if (Msg.CmdType and $FFF0 = SC_RESTORE)
  begin
    // Ocultar componente
  end;

  inherited;
end;

LineComment Saludos

[ecfisa]

Otra opción es capturar el mensaje WM_SIZE:

Código Delphi [-]

type
  TForm1 = class(TForm)
    tuComponente : TPanel; // por Ej.
  private
    procedure WMSize(var Msg: TMessage); message WM_SIZE;
  ...

implementation

procedure TForm1.WMSize(var Msg: TMessage);
begin
  tuComponente.Visible := Msg.WParam = SIZE_MAXIMIZED;
  DefaultHandler(Msg);
end;

Saludos

[roman]

Hola ecfisa,

¿Por qué DefaultHandler y no inherited?

LineComment Saludos

[dec]

¡Hola!

Empezado por roman

Hola ecfisa,

¿Por qué DefaultHandler y no inherited?

LineComment Saludos

Buena observación Román...

[ecfisa]

Hola.

Se me han trastocado las ideas mientras escribía . Como bién apuntan, en este caso es innecesario usar DefaultHandler simplemente hay que usar inherited.

Saludos

[dec]

Hola,

Empezado por ecfisa

Hola.

Se me han trastocado las ideas mientras escribía . Como bién apuntan, en este caso es innecesario usar DefaultHandler simplemente hay que usar inherited.

Saludos

Bueno, eso lo sabe Román que es el master aquí: por mi parto todo va bien si funciona.

[dardusso23]

Buenisimo. Gracias a todos por la ayuda

[Neftali [Germán.Estévez]]

Seguramente con el componente estandard de Delphi TApplicationEvents, también se pueda capturar ese mensaje.

[roman]

Cosa rara. En Delphi7, el componente tiene eventos OnMinimize y OnRestore, pero no OnMaximize

LineComment Saludos

[Neftali [Germán.Estévez]]

Empezado por roman

Cosa rara. En Delphi7, el componente tiene eventos OnMinimize y OnRestore, pero no OnMaximize

Cierto, ya me había fijado hace tiempo.
Yo pensaba en el que captura los mensajes.