if MessageBox(0,'确定要删除这条记录?','请确认', MB_ICONQUESTION+MB_YESNO) = IDYES then 以后在基础类提问题请给出大于0的问题点数,否则删贴。————————————————————————————————— 宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。 —————————————————————————————————
if Application.MessageBox('是否要删除?','提示',MB_OKCANCEL)=IDOK then begin …… end
if Application.MessageBox('Are you sure','Exit', MB_YESNO)=IDYES then Close;
MB_ICONQUESTION+MB_YESNO) = IDYES then
以后在基础类提问题请给出大于0的问题点数,否则删贴。—————————————————————————————————
宠辱不惊,看庭前花开花落,去留无意;毁誉由人,望天上云卷云舒,聚散任风。
—————————————————————————————————
begin
……
end
to:lxpbuaa(桂枝香在故国晚秋)
不要删帖吧,呵呵。
messageboxdlg('error!',mterror,[mbyes,mbno],0)
详细用法请查看delphi帮助