procedure TForm1.BitBtn1Click(Sender: TObject); var rep:word; Begin rep:= messagedlg('etes vous sur de vouloir quitter', mtinformation, [mbyes,mbcancel], 0); if rep=mryes then application.terminate; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionprocedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin CanClose :messagedlg('etes vous sur de vouloir quitter',mtinformation,[mbyes,mbcancel],0) mrYes; end;
procedure TForm1.Button1Click(Sender: TObject); begin Application.Terminate; end;
procedure TForm1.Button1Click(Sender: TObject); begin Close; end; procedure TForm1.OnClose(Sender: TObject; Action: TCloseAction); begin if MessageDlg('Etes-vous sûr de vouloir quitter', mtinformation, [mbyes,mbcancel], 0) = mrNo then Action := caNone; end;