Minimizar Aplicacion... Captura

[DarkDrakon]

Holas de nuevo colegas del Mundo Delphi...

Bueno aqui con otra de mis dudas .

Quisiera capturar el Mensaje que da un Formulario, cuando este es MINIMIZADO. Lo que quiero hacer es que cuando este se Minimice, hacer que este se vuelva invisible y desaparezca de la Barra de Tareas.

Bueno ya de antemano les agradezco ...

[[seoane]]

Prueba a interceptar el mensaje WM_SYSCOMMAND

Código Delphi [-]

TForm1 = class(TForm)
  private
    { Private declarations }
    procedure WMSYSCOMMAND(var Msg: TMessage); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

 ....

procedure TForm1.WMSYSCOMMAND(var Msg: TMessage);
begin
  if Msg.wParam = SC_MINIMIZE then
  begin
    Hide
  end else
    Inherited;
end;

[[seoane]]

Aunque ahora que lo pienso también puedes usar el componente TAplicationEvents que encontraras en la paleta "Additonal". Este componente cuenta con el evento OnMinimize, que se ajusta aun mas a lo que tu buscas.