begin
....if MessageDlg('确认否?',mtInformation,[mbYes,mbNo],0) = mrYes then....
end;var InputStr:string;
begin
……InputStr:=InPutBox('Input Box','Hello','Go Go Go');……
end;
....if MessageDlg('确认否?',mtInformation,[mbYes,mbNo],0) = mrYes then....
end;var InputStr:string;
begin
……InputStr:=InPutBox('Input Box','Hello','Go Go Go');……
end;
解决方案 »
- C语言和delphi语言的解密函数得不到同样的结果请高手进来帮忙看看函数有没问题
- 模糊查找,语句错误,求救
- 为什么fsmainform与fschildform之间show总是内存地址出错?
- 求助:insufficient disk space
- 200分求解!2个问题解一即可!高手进来!up有分!
- 怎么将MediaPlayer1放映的东西最大化(满屏)?
- 有关字段名的问题???
- 我的存储过程要建立动态参数,我申明了P0: TParam,但是P0 := TParam.Create(Params.ptInput)编译出错,应该怎么写?
- 关于数组的问题!(对C,Pascal熟悉的请进!高手请进!UP有分) :)
- 关于Delphi程序源码
- 关于query和table的问题
- 怎样去掉程序打开时的登录窗口?
不懂看帮助吧,应该有example的.
mtWarning A message box containing a yellow exclamation point symbol.
mtError A message box containing a red stop sign.
mtInformation A message box containing a blue "i".
mtConfirmation A message box containing a green question .
mtCustom A message box containing no bitmap. The caption of the message box is the name of the application's executable file.msgdlgbuttonsmbYes A button with 'Yes' on its face.
mbNo A button the text 'No' on its face.
mbOK A button the text 'OK' on its face.
mbCancel A button with the text 'Cancel' on its face.
mbAbort A button with the text 'Abort' on its face
mbRetry A button with the text 'Retry' on its face
mbIgnore A button the text 'Ignore' on its face
mbAll A button with the text 'All' on its facembNoToAll A button with the text 'No to All' on its face
mbYesToAll A button with the text 'Yes to All' on its face
mbHelp A button with the text 'Help' on its face
MessageDlg('Exiting the Object Pascal application.', mtInformation,
[mbOk], 0);
主要是inputbox是进行输入的,它一般都要接收一些数据进去;
而messagedlg是提醒人家出现什么问题,然后应该怎么做。
Application.MessageBox()全中文的;
If application.MessageBox('你的提示信息','提示',mb_okcancel+mb_)=MrOk then
begin
end
而INPUTBOX则是要返回一个字符串,(只要你执行了)