|
发表于 2009-3-12 19:02:54
|
显示全部楼层
此为MessageBox的方法:
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType : Cardinal): integer;
begin
Result:= WidgetSet.MessageBox(hWnd, lpText, lpCaption, uType);
end;
以下为showmessage的方法:
procedure ShowMessage(const aMsg: string);
begin
NotifyUser(aMsg, idDialogBase);
end;
procedure NotifyUser(const DialogMessage : String; DialogType : longint);
begin
PromptUser(DialogMessage, DialogType, [idButtonOK], 0, -1);
end;
function PromptUser(const DialogCaption, DialogMessage : String; DialogType : longint; Buttons : PLongint;
ButtonCount, DefaultIndex, EscapeResult : Longint) : Longint;
begin
Result := WidgetSet.PromptUser(DialogCaption, DialogMessage, DialogType, Buttons, ButtonCount, DefaultIndex, EscapeResult);
end; |
|