帮忙看下这段程序,谢谢拉~~~

Question

unit dlg;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
 if MessageDlg('想睡了吗？',mtConfirmation,[mbYes,mbNo],0)=mbYes then
   begin
    ShowMessage('甭玩了！');
    Close;
    end
    else
    ShowMessage('快攻关吧！');
end;end.
其中  if MessageDlg('想睡了吗？',mtConfirmation,[mbYes,mbNo],0)=mbYes then
总提示有不协调的类型,为什么呀?

Answer 1

看到了 是Corresponding return value

Answer 2

if MessageDlg('想睡了吗？',mtConfirmation,[mbYes,mbNo],0) = idYes 别和ModalResult的返回值混淆了，呵呵。

Answer 3

对不起，楼上在说梦话，请无视 -_,- (记成了MessageBox了...)应该这样:
if MessageDlg('想睡了吗？',mtConfirmation,[mbYes,mbNo],0) = mrYes