15问答网 > delphi中button退出mb怎么写如果要退出怎么写，不退出又怎么写

delphi中button退出mb怎么写如果要退出怎么写，不退出又怎么写

delphi中点下button退出mb_yesno如果要退出怎么写，不退出怎么写。

2024-11-07 21:29:46

推荐回答（2个）

回答1：

呵呵.徒弟,你的代码太烦琐了.
if MessageDlg('确定退出?',MtInformation,[mbYes,mbNO],0) = mrNo then
Exit;
//....下面是处理不退出的代码....

回答2：

procedure TForm1.Button1Click(Sender: TObject);
var
ee:word;
begin
ee:=messagedlgpos('你真要退出吗？',mtconfirmation,[mbyes,mbno],0,400,400);
if ee=mryes then close;
if ee=mrno then button1.SetFocus ;
end;