例:var rst: Word; rst:=Application.MessageBox(' 你是否確定取消此工程變更資料的審核?','系統提示',MB_ICONQUESTION or MB_YESNO + MB_DEFBUTTON2); if rst=mrNo then Exit; //取消時退出 ......//確認(mrYes)動作
用对话框的这个函数,function Execute: Boolean; override;比如: if opendialog1.execute then showmessage('你按了ok按钮') else showmessage('你按了cancel按钮');
rst: Word; rst:=Application.MessageBox(' 你是否確定取消此工程變更資料的審核?','系統提示',MB_ICONQUESTION or MB_YESNO + MB_DEFBUTTON2);
if rst=mrNo then Exit; //取消時退出
......//確認(mrYes)動作
if opendialog1.execute then showmessage('你按了ok按钮')
else showmessage('你按了cancel按钮');