afsluiten programma +bevestiging

[vbfreak]

Hallo,

ik ben net begonnen met programmeren in Delphi.
kan iemand mij vertellen hoe ik, als ik een programma afsluit een boodschap via de messagebox kan laten verschijnen op het scherm?

groetjes,

Jasper

 

[PietZa]

Gebruik het onclose event van het Form als volgt:

Procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var antw : integer;
begin
  antw := Application.MessageBox('Weet u zeker dat u wilt afsluiten?', 'Programma afsluiten?', MB_YESNO + MB_ICONQUESTION);
  if antw = IDNO then
    Action := caNone
  else
    Action := caFree;
end;

onderstaande code vraagt na een Form.Close (of als je bijvoorbeeld op het kruisje klikt) of je wilt afsluiten ja of nee. Als je nee kiest sluit het form niet, als je ja kiest sluit het form.

tip: kijk in de help van delphi naar messagebox voor alle opties