Conferma di chiusura di un applicazione

A volte si necessita di intercettare la chiusura della propria applicazione, per chiedere se si sicuri di voler davvero chiudere tale applicazione.

Bene, con Lazarus questo semplicissimo. Per prima cosa bisogna andare sulla Form su cui vogliamo attuare i nostri intenti, ipotiziamo che sia la Form1.

Andiamo nell'ispettore di oggetti della Form1 e nella sezione eventi andiamo a cliccare sull'evento OnCloseQuery e inseriamo il codice come compare nell'esempio qui sotto:

Codice: [Seleziona]

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
     if MessageDlg('CHIUSURA', 'Sei sicuro/a di voler abbandonare il programma?', mtConfirmation, [mbYes, mbNo],0) = mrNo then
        CanClose := False; {interrompe la chiusura dell'applicazione}
end;


Bene come avete appena visto davvero semplicissimo. Buona programmazione!

SMF 2.0.8 | SMF © 2011, Simple Machines
Privacy Policy
SMFAds for Free Forums
TinyPortal © 2005-2012

Go back to article