Bonjour,
je cherche à afficher un message modal sous FMX (Windows et Android). Est ce qu'un pro du FMX pourrait me traduire ceci de la façon la plus simple possible (issu de l'aide VCL de D7) :
j'ai essayé ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9 procedure TForm1.Button1Click(Sender: TObject); begin if MessageDlg('Bienvenue dans mon application Delphi. Quitter?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin MessageDlg('Fin de l''application Delphi.', mtInformation, [mbOk], 0); Close; end; end;
mais d'une part cela m'a l'air compliqué d'imbriquer les MessagesDlg et d'autre part MessageDlg est Deprecated en D10 FMX !
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17 MessageDlg('Do you want to press yes or no?', System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0, procedure(const AResult: TModalResult) begin case AResult of { Detect which button was pushed and show a different message } mrYes: begin // pressed yes end; mrNo: begin // pressed no end; end; end );
Merci
A+
Charly
Partager