摘要: MessageBox 弹出的窗口 不能一直在主窗体上面 尽量不用 messagedlg 和 application.MessageBox这两个可以 阅读全文
posted @ 2013-01-15 23:07 del88 阅读(30) 评论(0) 推荐(0)
摘要: 在delphi中经常要用到一个提示对话框,根据用户选择执行不同的命令,MessageBox就是常用的对话框,它不仅能够定义显示的信息内容、 信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信息对话框信息提示图标,而且可以定义按钮组合及对话框的标题,是一个功能齐全的信 息对框。 1、 阅读全文
posted @ 2013-01-15 22:44 del88 阅读(69) 评论(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 阅读(26) 评论(0) 推荐(0)
摘要: 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := InputBox('输入窗口标题', '输入提示', '默认输入内容'); ShowMessa 阅读全文
posted @ 2013-01-15 22:36 del88 阅读(31) 评论(0) 推荐(0)
摘要: 看了 InputBox、InputQuery 函数实现的源码, 有些收获与心得... 通过 InputBox 可获取用户输入的字符串: procedure TForm1.Button1Click(Sender: TObject); var str: string; begin str := Inpu 阅读全文
posted @ 2013-01-15 22:31 del88 阅读(28) 评论(0) 推荐(0)