Question

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

Answer 1

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

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

Answer 2

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

删除代码

Answer 3

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