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/
