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 ;

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

 

来自为知笔记(Wiz)