MessageBox

 
 
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;
 




posted @ 2014-07-29 17:39  XE2011  阅读(119)  评论(0编辑  收藏  举报