X - Fechar.

Delphi

09/01/2006

Boas Pessoal.

Gostava de saber como consigo colocar o cod de sair no X do canto superior direito.

Obrigado. :roll:


Rui Lisboa

Rui Lisboa

Curtidas 0

Respostas

Michael

Michael

09/01/2006

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


GOSTEI 0
Redoctober

Redoctober

09/01/2006

Action := CaNone;

if Messagebox(0,´Deseja finalizar o aplicativo?´,´Atenção´,4+32+8192)= 6 then
  begin 
    Application.Terminate;
  end;



GOSTEI 0
POSTAR