Question

能帮忙给我写段delphi中 当我点击delete按钮时 弹出确定删除和取消的代码吗？

Answer 1

if messagedlg('确认删除？'，mtconfirmation，mbyesnocancel,0)=mryes then
.........//执行语句
else
.........
end.
///////////////////////////////////////////
也可以写成if messagedlg('确认删除？'，mtconfirmation，[mbyes,mbNO],0)=mryes then
.........//执行语句
else
.........
end.
//////////////////////////////////////////////////
或者用messsagebox
procedure TForm1.Button1Click(Sender: TObject);
begin
if MessageBox(Form1.Handle,'确认删除？','删除框',MB_OKCANCEL+MB_DEFBUTTON2)=1 then
............//执行删除语句
else
..........
end;

Answer 2

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

Answer 3

MessageBox(0,'确定要删除吗','确认',mrOk);