Minimizar Aplicacion... Captura

[DarkDrakon]

Holas de nuevo colegas del Mundo Delphi...

Bueno aqui con otra de mis dudas :p .

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 ... :rolleyes:

[seoane]

Prueba a interceptar el mensaje WM_SYSCOMMAND



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.