function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
================================================================曾经有一碗热辣辣的烧猪手面放在我面前,我没有珍惜,等到晾凉了之后才后悔莫及。

解决方案 »

  1.   

    if MessageDlg('提示', mtWarning, [mbOK, mbNo], 0) = mrOK then 
      { OK };
      

  2.   

    MessageBox
    Application.MessageBox
    MessageDlg曾经有一碗热辣辣的烧猪手面放在我面前,我没有珍惜,等到晾凉了之后才后悔莫及。哈哈
      

  3.   

    可不可以把用法介绍的详细一点,我才接触delphi两天,以前学VB,发现不好用,才改过来的
      

  4.   

    application.messagebox('确定保存吗‘,mb_yesno);
      

  5.   

    MessageBox(Handle,Title,Connect,Icon+Button);
    例如:
    if MessageBox(Self,"提示","是否保存?",Mb_IconQuestion+Mb_YesNo)= IDYes then
      // 保存
    else
      //不保存