• Registered: 2022-08-03
  • Posts: 89

Topic: message d'alerte

procedure Frmviewcategory_button6_onclick (Sender: TObject; Action: string);
var
    sdata :string;
begin
    sdata := ('Voulez-vous annuler');
    ShowMessage (sdata);

end;

Bonjour a tous
J'ai besoin de votre aide
comment créer des messages d'alerte avec la possibilité "Oui /Non" et changer le nom en "Caption"

Merci de votre temps

Niko

  • Registered: 2014-08-02
  • Posts: 917

Re: message d'alerte

Hello Nikomax

Tu as àa :

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
begin                                                                                                       // mbYes is 6 - mbNo is 7 - mbCancel is 2
   If 7 = MessageDlg('Vous voulez quitter l''application ?', mtConfirmation, mbYes + mbNo, 0) then
      Cancel := True;
end;

ou ça :

On confirme par des messages avec "Oui" ou Non"

Function Confirm(msg: String; ICON: Integer=MB_ICONQUESTION; title:String='Confirm'): boolean;
begin
    Result := IDYES = MessageBox(msg, 'Nom application : '+title, MB_YESNO+ICON);
end;

Comment l'utiliser :

if Confirm('Bien certain ?') then begin
    ShowMessage('OK');
end else
begin
   ShowMessage('Cancel');
end;

JB