onclosequery

[angelp4492]

Hola buenas como estan, tengo el siguiente problema a ver si pueden ayudarme.
Quiero cerrar una aplicación y que me salga un mensage, que en realidad eso es lo que quiero hacer, así que esto lo pongo en el onclosequery tal que así

Código Delphi [-]

canClose:=False;

if Application.MessageBox('¿Seguro que desea abandonar?','Atención',mb_OkCancel +
  mb_IconQuestion)= idOk then begin
  canClose:=True;
end
else begin
  canClose := False;
end;

Hasta aquí todo bien, lo que quier ahora es que cuando pulse un botón salir que me llame al mismo evento onclosequery para hacer las mismas operaciones.Gracias.

[Neftali [Germán.Estévez]]

Empezado por angelp4492

...lo que quier ahora es que cuando pulse un botón salir que me llame al mismo evento onclosequery para hacer las mismas operaciones.

En el botón salir apunta llama al evento tal qe así:

Código Delphi [-]
var
  mSalir:Boolean;
begin
  ...
  Self.OnCloseQuery(Self, mSalir);
  If mSalir then Application.Terminate;

[angelp4492]

Empezado por Neftali

En el botón salir apunta llama al evento tal qe así:

Código Delphi [-]var mSalir:Boolean; begin ... Self.OnCloseQuery(Self, mSalir); If mSalir then Application.Terminate;

Gracias ya esta funcionando.

[Neftali [Germán.Estévez]]

He de pedir discupas, porque sin querer (intentando editar el mensaje del usuario) he eliminado código que había presente en el mensaje.
En breve intento arreglarlo.

He eliminado de este Post un mensaje de Chris que equivocadamente daba la culpa al usuario y que me ha servido a mi para darme cuenta de que la culpa es mía como consta en la edición del mensaje, pues no tiene sentido echar la culpa al usuario (supongo que Chris tampoco se ha dado cuenta de la nota de edición).