26
2018
05

DELPHI弹出消息框,置前消息框

if inttostr( MessageBox(0,'是否确定执行本操作?','提示',MB_OKCANCEL ))=1 then ... 是 else ... 否