请教messagebox()的用法？

你操作系统是中文的用MessageBox后对话框就是中文的

解决方案 »

  1.   

    function MessageBox(const Text: WideString; const Caption: WideString = ''; Buttons: TMessageButtons) = [smbOK]; Style: TMessageStyle = smsInformation; Default: TMessageButton
    ) = smbOK; Escape: TMessageButton) = smbCancel): TMessageButton; 
      

  2.   

    function MessageBox(const Text: WideString; const Caption: WideString = ''; Buttons: TMessageButtons) = [smbOK]; Style: TMessageStyle = smsInformation; Default: TMessageButton
    ) = smbOK; Escape: TMessageButton) = smbCancel): TMessageButton; 最好看一下帮助!
      

  3.   

    这是弹出提示框
    with Application do
        MessageBox(PChar(Message), PChar(MainForm.Caption), MB_OK + MB_ICONINFORMATION);
    这是弹出问题框
    with Application do
      Result := MessageBox(PChar(Message), PChar(MainForm.Caption), MB_YESNO + MB_ICONQUESTION);
    还有其他组合，具体看帮助！
      

  4.   

       application.MessageBox('请输入汉字 ','提示',MB_OKCANCEL+MB_DEFBUTTON1)