能帮忙给我写段delphi中 当我点击delete按钮时 弹出确定删除和取消的代码吗?
答案:3 悬赏:60
解决时间 2021-03-07 18:21
- 提问者网友:相思瘸子
- 2021-03-07 10:06
能帮忙给我写段delphi中 当我点击delete按钮时 弹出确定删除和取消的代码吗?
最佳答案
- 二级知识专家网友:抱不住太阳的深海
- 2021-03-07 10:30
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;
.........//执行语句
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;
全部回答
- 1楼网友:寂寞的炫耀
- 2021-03-07 11:47
你好!
if MessageBox(form1.Handle,'您确定要删除吗?','系统提示',MB_OKCANCEL)=IDOK then
begin
end
else
begin
end;
如有疑问,请追问。
- 2楼网友:虚伪的现实
- 2021-03-07 10:59
MessageBox(0,'确定要删除吗','确认',mrOk);
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯