常用的几种对话框(20分)

常用的几种对话框，比如消息提示，警告等等，
希望能有重要代码。谢谢。

API
MessageBox

to Writer:
谢谢。该函数后面的参数呢？全了更好。

MessageBox(Application.Hanlde, '消息正文', '窗口标题', MB_ICONINFORMATION or MB_OKCANCEL);

{API}
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: UINT): Integer;

Application.MessageBox(const Text, Caption: PChar; Flags: Longint): Integer;

function MessageDlg(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;
function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType;
Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Integer;

最简单的：
procedure ShowMessage(const Msg: string);
procedure ShowMessageFmt(const Msg: string; Params: array of const);
procedure ShowMessagePos(const Msg: string; X, Y: Integer);

提示输入文本的有：
function InputQuery(const ACaption, APrompt: string; var Value: string): Boolean;
function InputBox(const ACaption, APrompt, ADefault: string): string;

其它的自己到DELPHI帮助里面找吧，很多的。

MessageDlg('您好！',mtInformation,[mbOk], 0);
showmessage('您好！');
MessageBox('This should be on top.', 'Look', MB_OK);

我常用的:
ShowMessage('XXX');
Application.MessageBox(PChar('XXX'),'提示',64);// 64和16常用
有返回值的:如:
ID := Application.MessageBox(PChar('目录【'+TmStr+'】的文字已经改变，需要保存吗？'), '提示', 3+48);
case id of
6: AQS.UpdateBatch(); //yes
7: AQS.CancelBatch(); //no
2: CanClose := False; //cancel
end;

application.MessageBox('读取数据出错。','提示',0);

谢谢！

谢谢。

不要以为我在灌水 真的好想有人和我交流以下啊！！！！！
有人愿意帮助我么？加我QQ 381786877 加好友请留言
有人愿意和我交流么？加我QQ 87219720 加好友请留言
自学过 VB ,PHP ,ASP DELPHI ,JAVA ,MSSQLServer ,MYSQL
强烈希望有编程爱好者联系我
www.anjingye.ik8.com