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