如何使用MsgBox、MessageBox

蔚蓝海岸

MsgBox(Handle : UInt32,Text : String,Caption : String,Flags : UInt32) : Integer;

参数说明：
Text：表示要显示的内容。
Caption：表示对话框的标题。
Flags:按钮等常量参数。

atiger

Forms.Application.MessageBox(Text,Caption,Flags);
参数说明
Text：表示要显示的内容。
Caption：表示对话框的标题。
Flags:按钮等常量参数。

Flags        表示的含义
0        MB_OK
1        MB_OkCancel
2        MB_AbortRetryIgnore
3        MB_YesNoCancel
4        MB_YesNo
5        MB_RetryIgnore
6        MB_CancelAgainContinue

Forms.Application.MessageBox(Text,Caption,Flags);还具有根据点击按钮的不同返回不同的返回值，根据返回值可以判断用户点击的是什么按钮。例如：

procedure TMainForm.ButtonBox(Sender: TObject);
var
  li:integer;
Begin
  li:=Forms.Application.MessageBox('Text','Caption',0);
  jsDialogs.ShowMsg(inttostr(li),'');
End;

atiger

推荐使用MsgBox，这是Business平台提供的一种方法。