delphi7中的delete按钮如何加上确认框？是否删除什么之类的？代码该如何编写？请高手指点

2025-06-20 13:00:39

推荐回答（3个）

回答1：

if application.messagebox(Pchar('你是否要删除...吗？'),'删除确认',MB_OKCANCEL)=IDOK then

begin
//此处写删除代码内容。
end
else
exit;

回答2：

if Application.MessageBox('确定删除选中的记录吗？', '删除', MB_YESNO) <> IDYES then exit;

删除代码

回答3：

if MessageBox(form1.Handle,'您确定要删除吗？','系统提示',MB_OKCANCEL)=IDOK then
begin
//确定删除操作
end
else
begin
//取消删除操作
end;