HI,
tem sim
em Public vc declara
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) then
quando minizar
else if (Msg.CmdType = SC_MAXIMIZE) then
quando maximizar
DefaultHandler(Msg);
end;
Intel +
Paulo Alexsandro - dprogrammer
O retorno do programador
http://dprogrammer.cjb.net -> Delphi & NSBasic
(PalmOS)
Orkut - Comunidade Sou Programador
http://www.orkut.com/Community.aspx?cmm=553377
--- Osmar de Souza Júnior <[EMAIL PROTECTED]> wrote:
>
>
>
> Para maximizar não tem. Mas acho que o evento
> OnRestore deva servir
> para o que você quer fazer...
>
> Você deve criar 2 rotinas, uma para "tratar" quando
> a aplicação é
> minimizada, e a outra para quando o usuário
> restaurar a aplicação.
> Essas rotinas devem, obrigatoriamente, ter os
> seguintes parâmetros:
>
> procedure appRestauracao(Sender: TObject);
> begin
> Timer.Enabled := true;
> end;
>
> procedure appMinimiza(Sender: TObject);
> begin
> Timer.Enabled := false;
> end;
>
> Aí, você passa essas rotinas para aplicação, por
> exemplo, no Data
> Module (ao criar);
>
> Application.OnRestore := appRestauracao;
> Application.OnMinimize := appMinimiza;
>
> Isso deve bastar...
> Que a força esteja com você!
>
>
> --- Em delphi-br@yahoogrupos.com.br, "Andre - Yahoo"
> <[EMAIL PROTECTED]>
> escreveu
> > Gostaria de saber se alguem da lista saberia como
> capturar os
> eventos que ocorrem quando minimizo e quando
> maximizo um formulário.
> Preciso saber quando o formulário principal foi
> minimizado para poder
> disparar um TTimer e quando ele for maximizado
> preciso parar o TTimer.
> Alguem pode me ajudar ???
> >
> >
> > André Luis da Silveira
> >
> > Desenvolvedor
> >
> > Latícinios Morrinhos Ind Com Ltda
> >
> >
> >
> > [As partes desta mensagem que não continham texto
> foram removidas]
>
>
>
>
>
> --
> <<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA
> MENSAGEM >>>>>
>
> Para ver as mensagens antigas, acesse:
> http://br.groups.yahoo.com/group/delphi-br/messages
>
> Para falar com o moderador, envie um e-mail para:
> [EMAIL PROTECTED] ou
> [EMAIL PROTECTED]
>
> Links do Yahoo! Grupos
>
>
>
> http://br.yahoo.com/info/utos.html
>
>
>
>
>
>
_______________________________________________________
Yahoo! Acesso Grátis - Instale o discador do Yahoo! agora.
http://br.acesso.yahoo.com/ - Internet rápida e grátis
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
