X - Fechar.
09/01/2006
0
Boas Pessoal.
Gostava de saber como consigo colocar o cod de sair no X do canto superior direito.
Obrigado. :roll:
Gostava de saber como consigo colocar o cod de sair no X do canto superior direito.
Obrigado. :roll:
Rui Lisboa
Curtir tópico
+ 0
Responder
Posts
09/01/2006
Michael
Não entendi muito bem, mas acredito que vc queria ser notificado quando o usuário fechar um form, correto? Se for isso, basta implementar o evento [b:70ed66fc3b]OnClose [/b:70ed66fc3b]da classe [b:70ed66fc3b]TForm.[/b:70ed66fc3b]
[]´s
[]´s
Responder
09/01/2006
Redoctober
Action := CaNone;
if Messagebox(0,´Deseja finalizar o aplicativo?´,´Atenção´,4+32+8192)= 6 then
begin
Application.Terminate;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)
