超级初学者提一个问题，各位大哥请帮忙

Question

if MessageDlg('确实要退出吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
    Close;这个有什么错误吗？

Answer 1

没错.
楼主的意思是不是想退出系统前,提示!
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if MessageDlg('确定退出！', mtConfirmation,
    [mbYes, mbNo], 0) = mrNo then
    canclose:=false;
end;

Answer 2

进到小类:
刷新 | 全文检索 | 搜索 | 提问| 未解决 | 已解决 | 精华区 | FAQ | 专题 | 帮助

Answer 3

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  canclose:=false;
  if MessageDlg('确定退出！', mtConfirmation,[mbYes, mbNo], 0) = mrNo  then
    exit;
  canclose:=true;
end;

Answer 4

if MessageDlg('确实要退出吗？',mtConfirmation,[mbYes,mbNo],0)=mrYes then
    Close;这个有什么错误吗？
=================
没有，要不就换用 MessageBox