首页 > 其他好文 > 详细

MessageBox

时间：2014-07-29 21:06:42 阅读：221 评论：0 收藏：0 [点我收藏+]

var
    s:string=‘aaa‘;
    s1:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
    s1:=Format(‘确定要删除 %s 这个文件夹吗?‘,[s]);
    if Application.MessageBox(PAnsiChar(s1), ‘提示‘, MB_YESNO +
      MB_ICONINFORMATION + MB_DEFBUTTON2 + MB_TOPMOST) = IDYES then
    begin

    end;
end;

来源： <">http://www.cnpack.org/>

来自为知笔记(Wiz)

MessageBox,布布扣,bubuko.com

MessageBox

标签：style http color os strong 文件 io for

原文地址：http://www.cnblogs.com/xe2011/p/3876065.html

踩

(0)