i:=MessageDlg('是否要关闭该窗口?',mtConfirmation,[mbYes,mbNo],1);你的写法是正确的,问题可能在于i你没有定义,delphi不象vb。 var i: word; begin i:=MessageDlg('是否要关闭该窗口?',mtConfirmation,[mbYes,mbNo],1); ....end;
if MessageDlg('是否要关闭该窗口?',mtConfirmation,[mbYes,mbNo],0) then begin Close; end;MessageBox是带句柄的,不 同之处是在任务栏上有个按钮
if MessageDlg('是否要关闭该窗口?',mtConfirmation,[mbYes,mbNo],0) then begin Close; end; 除此之外可以使用MessageBox,它的优点是可以改变窗体的标题。 用法为: MessageBox(Handle,'内容','标题',MB_ICONINFORMATION+MB_OK); 返回值为:mrOK,mrCancel等。 MB_ICONINFORMATION 可以替代为: MB_ICONQUESTION,MB_ICONWARNNING,MB_ICONERROR MB_OK可以替代为:MB_OKCANCEL,MB_YESNO,MB_OKCANCELIGNORE等等
Close;
end;
除此之外可以使用MessageBox,它的优点是可以改变窗体的标题。
用法为:
MessageBox(Handle,'内容','标题',MB_ICONINFORMATION+MB_OK);
返回值为:mrOK,mrCancel等。
MB_ICONINFORMATION 可以替代为: MB_ICONQUESTION,MB_ICONWARNNING,MB_ICONERROR
MB_OK可以替代为:MB_OKCANCEL,MB_YESNO,MB_OKCANCELIGNORE等等
我在写的时候为什么没有,MB_ICONINFORMATION+MB_OK都要我自己写进去啊!谢谢
var
i: word;
begin i:=MessageDlg('是否要关闭该窗口?',mtConfirmation,[mbYes,mbNo],1);
....end;
Close;
end;MessageBox是带句柄的,不 同之处是在任务栏上有个按钮
Close;
end;
除此之外可以使用MessageBox,它的优点是可以改变窗体的标题。
用法为:
MessageBox(Handle,'内容','标题',MB_ICONINFORMATION+MB_OK);
返回值为:mrOK,mrCancel等。
MB_ICONINFORMATION 可以替代为: MB_ICONQUESTION,MB_ICONWARNNING,MB_ICONERROR
MB_OK可以替代为:MB_OKCANCEL,MB_YESNO,MB_OKCANCELIGNORE等等