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