Written by xinyiman Dicembre 01, 2011, 01:14:00 pm20830 ViewsRating: 0 (0 Rates)Print
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:
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!
About the author
xinyiman registered at Italian community of Lazarus and Free Pascal on Ottobre 14, 2011, 10:56:28 pm and has posted 3286 posts in the boards since then. Last visit was Oggi alle 08:46:23 am.
Questo blog non rappresenta una testata giornalistica poiché viene
aggiornato senza alcuna periodicità. Non può pertanto considerarsi un
prodotto editoriale ai sensi della legge n. 62/2001.
Questo sito utilizza cookie, anche di terze parti, per offriti servizi in linea con le tue preferenze. Chiudendo questo banner, scorrendo questa pagina, cliccando su un link o proseguendo la navigazione in altra maniera, acconsenti all’uso dei cookie.