Qunado escrevi ela, eu escrevi direto no e-mail e nem conferi .. mas testei
e ela ta funcionando ...
Ela não está associada a nenhum evento, e isto está correto, pois ela está
"associada" a mensagem do windows "WM_SIZE". Vide o cabeçalho dela:
procedure FormMinimizado(var msg : TWMSize); message WM_SIZE;
Desta forma, quando o windows envia está mensagem para sua aplicação, esta
função é executada automaticamente. Não fui conferir, mas o objeto
TApplication deve trabalhar de forma parecida com isso.
E o melhor. Eu nem sabia que o TApplication tinha um evento OnMinimize :)
vlw pela dica.
Abs.
Daniel A. Bastos
2008/7/16 Alisson <[EMAIL PROTECTED]>:
> Daniel, parece que falta alguma coisa nessa função que você me passou.
> Algo
> como atribuir essa função a algum evento. Mas, de qualquer maneira, valeu
> pela ajuda, pois procurando pelos dados da função que você me passou, achei
>
> um exemplo mais simples que funcionou. Veja abaixo:
>
> procedure TForm1.Minimizar(Sender: TObject);
> begin
> ShowMessage('Minimizado');
> end;
>
> procedure TForm1.FormCreate(Sender: TObject);
> begin
> Application.OnMinimize := Minimizar;
> end;
>
> __________________________________________________
> Faça liga�ões para outros computadores com o novo Yahoo! Messenger
> http://br.beta.messenger.yahoo.com/
>
>
[As partes desta mensagem que não continham texto foram removidas]
