Array
(
)

X - Fechar.

Rui Lisboa
   - 09 jan 2006

Boas Pessoal.

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

Obrigado. :roll:


Michael
   - 09 jan 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 OnClose da classe TForm.

[]´s


Redoctober
   - 09 jan 2006

#Código

Action := CaNone;

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