MB_ICONEXCLAMATION,
MB_ICONWARNING
An exclamation-point icon appears in the message box.
MB_ICONINFORMATION, MB_ICONASTERISK
An icon consisting of a lowercase letter i in a circle appears in the message box.
MB_ICONQUESTION A question- icon appears in the message box.
MB_ICONSTOP,
MB_ICONERROR,
MB_ICONHAND
A stop-sign icon appears in the message box.
MB_ICONWARNING
An exclamation-point icon appears in the message box.
MB_ICONINFORMATION, MB_ICONASTERISK
An icon consisting of a lowercase letter i in a circle appears in the message box.
MB_ICONQUESTION A question- icon appears in the message box.
MB_ICONSTOP,
MB_ICONERROR,
MB_ICONHAND
A stop-sign icon appears in the message box.
MB_ICONHAND = $00000010;
{$EXTERNALSYM MB_ICONQUESTION}
MB_ICONQUESTION = $00000020;
{$EXTERNALSYM MB_ICONEXCLAMATION}
MB_ICONEXCLAMATION = $00000030;
{$EXTERNALSYM MB_ICONASTERISK}
MB_ICONASTERISK = $00000040;
{$EXTERNALSYM MB_USERICON}
MB_USERICON = $00000080;
{$EXTERNALSYM MB_ICONWARNING}
MB_ICONWARNING = MB_ICONEXCLAMATION;
{$EXTERNALSYM MB_ICONERROR}
MB_ICONERROR = MB_ICONHAND;
{$EXTERNALSYM MB_ICONINFORMATION}
MB_ICONINFORMATION = MB_ICONASTERISK;
{$EXTERNALSYM MB_ICONSTOP}
MB_ICONSTOP = MB_ICONHAND;
如application.messagebox('','',{在这里按ctrl+space});
function MessageBoxLg(Handle:integer;Text,Caption:String;flag:integer):integer;
var
Msg:TMsgBoxParams;
begin
Msg.cbSize:=Sizeof(Msg);
Msg.hwndOwner:=Handle;
Msg.hInstance:=hinstance;
Msg.lpszText:=PChar(Text);
Msg.lpszCaption:=PChar(Caption);
Msg.dwStyle:=flag+MB_USERICON;
Msg.lpszIcon:='MAINICON';
Msg.dwContextHelpId:=1;
Msg.lpfnMsgBoxCallback:=nil;
Msg.dwLanguageId:=LANG_NEUTRAL;
Result:=integer(MessageBoxIndirect(Msg));
end;
参数分别为句柄(图标),文本,标题,按钮
可否解析一下每句语句的作用