09/01/2006

X - Fechar.

Boas Pessoal.

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

Obrigado. :roll:


Rui Lisboa

Respostas

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


Responder Citar

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 Citar