Evento segun maximizacion de form
 

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

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

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 :)

Hola ecfisa,

¿Por qué DefaultHandler y no inherited?

LineComment Saludos

¡Hola!

Buena observación Román...

Hola.

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

Saludos :)

Hola,

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

Buenisimo. Gracias a todos por la ayuda

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

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

LineComment Saludos

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