小弟有個問題想請問各位先進，尚請各位幫小弟解答一下。 問題是： 我在一個Button的onClick事件中，寫了一個 if MessageDlg('確定刪除資料嗎?',mtConfirmation,[mbYes,mbNo],0,mbNo) = mrYes then begin ...... end; 但當我按了Yes鈕後，並沒有執行begin...end中的敘述。 可是當我把 mrYes 改為 3(我用Label1.caption的方法去接MessageDlg的傳回值得知，使用者按下Yes鈕，系統會傳回3)，程式就正常。 為何會有如此的結果呢?? 謝謝!!

if MessageDlg('確定刪除資料嗎?',mtConfirmation,[mbYes,mbNo],0[red],mbNo[/red) = mrYes then
  begin
    ......
  end;

上面紅色是多的參數, 應該是誤打吧. 至於 mrYes 是 6, 而不是你說的 3, 可以由 Controls unit 得到 mrYes = idYes, 再由 Windows unit 得到 IDYES = 6. 所以會發生問題應該是其他地方有問題才對, 不是這一段程式碼!! 否則你可以試一下新開一個專案, 寫一個 button click 來檢驗一下:

procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageDlg('確定刪除資料嗎?',mtConfirmation,[mbYes,mbNo],0) = mrYes then
begin
  showmessage('mrYes');
end;

小弟我寫了以下的程式片斷在 Button1的onClick事件中。 var i :integer; i := messagedlg('確定嗎?', mtConfirmation,[mbYes,mbNo],0,mbNo); //我由Delphi中的說明與範例知，最後一個參數mbNo指的是預設的Button label1.caption := inttostr(i); 我試了一下的結果： 按下Yes，真的傳回3 按下No，傳回4 真的好奇怪!!

這樣看起來你是使用了 QDialogs unit, 弟追了程式碼一下, 發現定義 mbYes 和 mrYes 的地方都各有兩個. 就 mb 系的 TMsgDlgButtons 比較沒有關係, 你的問題在於回傳 mr 系的資料則是在 Controls 和 QControls 都有定義. 一旦你使用了 QDialogs 的 MessageDlg 的話(就是你用的多了一個 default 選項的那組), 則 mr 的定義是在 QControls 中, 其值確實是 3 沒錯. 兩個定義 MessageDlg 的函數如下:    Dialogs: function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;    QDialogs: function MessageDlg(const Msg: WideString; DlgType: TMsgDlgType; Buttons:  TMsgDlgButtons; HelpCtx: Longint; DefaultBtn: TMsgDlgBtn = mbNone; Bitmap: TBitmap = nil): Integer; overload;    如此一來就會發生你的問題, 解決之道有兩種, 其一為只使用標準的 MessageDlg也就是不要 uses QDialogs, 然後你的 MessageDlg 也不要多那一個 Default 選項參數, 如此一來你的 mrYes 就是 6. 若一定要用的話, 其二解決之道就是要解決定義式不相容的衝突, 將 QDialogs unit 放在該 form pas 檔的 uses 段最前面, 如下:

uses
  QDialogs, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

這樣就會使用 QDialogs, QControls 的 mrYes 的定義了 (也就是 3)!!

引言: 如此一來就會發生你的問題, 解決之道有兩種, 其一為只使用標準的 MessageDlg也就是不要 uses QDialogs, 然後你的 MessageDlg 也不要多那一個 Default 選項參數, 如此一來你的 mrYes 就是 6. 若一定要用的話, 其二解決之道就是要解決定義式不相容的衝突, 將 QDialogs unit 放在該 form pas 檔的 uses 段最前面, 如下:

uses
  QDialogs, Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

這樣就會使用 QDialogs, QControls 的 mrYes 的定義了 (也就是 3)!!

不對喔，在 uses 中的套用順序是放後面的優先喔 也可以加上 unit 名稱強制指定，如：QDialogs.mrYes 加油喔，喵～

發表文章前請詳閱本區版規: 1.請註明資料庫系統及版本 2.若非資料(數據)庫相關問題, 將不預警加以移區並扣分

放錯版了, 我在與各位先進進行私底下的討論!!