Question

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

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

Answer 1

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

Answer 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;