可以使用以下代碼在Delphi中顯示一個MessageBox對話框,其中包含"確定"和"取消"按鈕:
var??ButtonSelected:?Integer; begin
??ButtonSelected?:=?MessageDlg('確定要執行此操作嗎?',?mtConfirmation,?[mbYes,?mbNo],?0);
??if?ButtonSelected?=?mrYes?then
??begin
????//?點擊了"確定"按鈕
????//?執行相應的操作
??end
??else
??begin
????//?點擊了"取消"按鈕或關閉對話框
????//?執行相應的操作
??end; end;
以上代碼將顯示一個對話框,標題為"確定要執行此操作嗎?",并包含"確定"和"取消"兩個按鈕。根據用戶選擇的按鈕,代碼將執行相應的操作。如果用戶點擊了"確定"按鈕,ButtonSelected
的值將為mrYes
,如果用戶點擊了"取消"按鈕或關閉了對話框,ButtonSelected
的值將為mrNo
。