这是一个关于WINDOWS关闭的问题

Question

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
//CanClose为False时，表示禁止关闭Windows
if MessageDlg('数据尚未存盘，关机吗?',mbYesNoCancel,0)= mrYes then //28
CanClose:=true
else
CanClose:=False;
end;[Error] Unit1.pas(28): Incompatible types: 'TMsgDlgType' and 'Set'
请问怎么回事呀！

Answer 1

try if MessageDlg('确定要删除吗',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin try datamodule2.usr_righ.Close;

Answer 2

正确代码
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  //CanClose为False时，表示禁止关闭Windows
  if MessageDlg('数据尚未存盘，关机吗?', mtConfirmation, [mbYes,mbNo,mbCancel], 0)= mrYes then //28
    CanClose:=true
  else
    CanClose:=False;
end;

Answer 3

MessageDlg('数据尚未存盘,关机吗?',mtConfirmation,[mbYes,mbNo,mbCancel], 0);

Answer 4

那请问，如何捕获WINDOWS系统的关机信息呢