博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

输出语句showmessage,messageDlg的用法

Posted on 2009-05-30 17:50  longker的博客  阅读(1179)  评论(0)    收藏  举报

1.showmessage,弹出自定义字符串,用法:showmessage(string),比较简单;

用法:

showmessage('hello,delphi');

2.messageDlg, 是在对话框显示消息,并等待用户点击一个按钮,然后返回一个整数确定知道是那个按钮;

  原型:messageDlg(const Msg:string; DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:longint):integer; overload;


procedure TForm1.Button1Click(Sender: TObject);
begin
  Messagedlg(
'你确定吗',mtWarning,[mbYES,mbNO],0);
  MessageDlg(
'错误(1001)',mtError,[mbCancel],0);
end;