Foros Club Delphi - antes de cerrar genere un mesaje

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Firebird e Interbase (https://www.clubdelphi.com/foros/forumdisplay.php?f=19)

- - antes de cerrar genere un mesaje (https://www.clubdelphi.com/foros/showthread.php?t=26716)

el_barto

01-11-2005 16:48:42

antes de cerrar genere un mesaje

Buenos Dias Foro

Tengo una duda como hacer para que cuando a mi programa a la ventana le de cerrar (x), primero me salga un mensaje donde me pregunte si estoy seguro de salirme del Aplicativo.

Gracias.:eek:

delphi.com.ar

01-11-2005 16:52:35

Código Delphi [-]procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  with Application do
    CanClose := MessageBox('¿Desea cerrar?', PChar(Title), MB_ICONQUESTION + MB_YESNO) = IDYES;
end;

Saludos!

el_barto

01-11-2005 20:29:22

Muchas Gracias Funciono a la Perfeccion.

La franja horaria es GMT +2. Ahora son las 08:09:37.