當我們輸入 Application->MessageBox("test","test",MB_OK); 會出現一個小視窗，且上面有"確定"的按鈕 請問各位大大 1.有沒有辦法把"確定"改成自訂的內容? 2.看BCB的範例(MB_YESNOCANCEL)最多只有三個按鈕，有辦法改成四個嗎?

這是 DELPHI 的寫法  

procedure TForm1.Button1Click(Sender: TObject);
const
  mbFour = [mbYes,  mbNo, mbOK, mbCancel];
var
  F: TForm;
begin
  F := CreateMessageDialog('要重新製作嗎?',mtWarning,mbFour);
  with F do
  try
    TButton(FindComponent('Yes')).Caption := '是';
    TButton(FindComponent('No')).Caption := '不';
    TButton(FindComponent('OK')).Caption := '好的';
    TButton(FindComponent('Cancel')).Caption := '取消';
    ShowModal;
    case ModalResult of
      mrYes: ShowMessage('Press Yes !');
      mrNo: ShowMessage('Press No !');
      mrOK: ShowMessage('Press OK !');
      mrCancel: ShowMessage('Press Cancel !');
    end;
  finally
    Free;
  end;
end;
end; 

發表人 - 懷舊的人 於 2005/10/11 21:37:45

以下是參考了懷舊的大大和別篇文章所寫的程式碼:  

     void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Application->MessageBox("test","tset",MB_OK);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
        TButton* btn=NULL;
        btn=dynamic_cast(FindComponent("確定"));
        if(btn)
        {
                btn->Caption="" ;
        }
}
//---------------------------------------------------------------------------

發現此方法對Form1上面的Button有效，但對MessageBox上的Button無效!! 請問大大，是我有什麼地方疏忽了? 還是說本來就無法用在MessageBox上面 發表人 - cliffpen 於 2005/10/11 17:06:58

FindComponent會找尋Form1上面的元件，是否有名字叫做"確定"的 （注意！FindComponent是找尋Name，而不是Caption） 但MessaggeBox並不屬於Form1，更不是他的元件 所以在Form1用FindComponent是無效的    懷舊的人大大的code轉成BCB為

   TMsgDlgButtons mbFour;
   mbFour << mbYes << mbNo << mbOK << mbCancel;
   TForm* p=CreateMessageDialog("要重新製作嗎?",mtWarning,mbFour);
   ((TButton*)p->FindComponent("Yes"))->Caption="確定";
   p->ShowModal();
   delete p;

TO兩位大大: 實在是太酷啦~~~~