摘要: MessageBox 弹出的窗口 不能一直在主窗体上面 尽量不用 messagedlg 和 application.MessageBox这两个可以 阅读全文
posted @ 2013-01-15 23:07 del88 阅读(19) 评论(0) 推荐(0) 编辑
摘要: 消息框是个很常用的控件,属性比较多,本文列出了它的一些常用方法,及指出了它的一些应用场合。 1.最简单用法,不带图形 MessageBox(0,'不同意','提示',MB_OK); MessageBox(0,'不同意','提示',MB_OKCANCEL ); 2.警告对话框: MessageBox( 阅读全文
posted @ 2013-01-15 23:06 del88 阅读(24) 评论(0) 推荐(0) 编辑
摘要: 1. 警告信息框 MessageBox(Handle,'警告信息框','警告信息框',MB_ICONWARNING);2.疑问信息框 MessageBox(Handle,'疑问信息框','疑问信息框',MB_ICONQUESTION);3.错误提示框 MessageBox(Handle,'错误信息框 阅读全文
posted @ 2013-01-15 23:05 del88 阅读(12) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.Button1Click(Sender: TObject);varS:string;beginif MessageDlg('提示框',mtInformation,[mbok,mbyes],0)=mryes then messagebeep(MB_ICONEXCLAM 阅读全文
posted @ 2013-01-15 22:47 del88 阅读(23) 评论(0) 推荐(0) 编辑
摘要: 在delphi中经常要用到一个提示对话框,根据用户选择执行不同的命令,MessageBox就是常用的对话框,它不仅能够定义显示的信息内容、 信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信 息对框。 1、 阅读全文
posted @ 2013-01-15 22:44 del88 阅读(22) 评论(0) 推荐(0) 编辑
摘要: if MessageDlg('Welcome to my Delphi application. Exit now?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then begin Close; end; MessageDlg用法 对话框类型:mtwar 阅读全文
posted @ 2013-01-15 22:38 del88 阅读(14) 评论(0) 推荐(0) 编辑
摘要: 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); ShowMessa 阅读全文
posted @ 2013-01-15 22:36 del88 阅读(17) 评论(0) 推荐(0) 编辑
摘要: 看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得... 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := Inpu 阅读全文
posted @ 2013-01-15 22:31 del88 阅读(13) 评论(0) 推荐(0) 编辑