小妹?^_^?:捉虫：modal窗体的问题？

Question

我这里怎么没有你这样的问题？？放在这里就好了FormCloseQueryprocedure TFrm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if messagedlg('你要退出挡案输入系统吗？',mtinformation,[mbyes,mbno],0)=mryes then
  begin
        FrmDemo.Close
  end;
end;

Answer 1

那个Ｃａｎｃｅｌ　按钮直接写～～renshi_add_form.Close
  

Answer 2

把你那个Cancel按钮的ModalResult属性改成mrNone

Answer 3

if messagedlg('你要退出挡案输入系统吗？',mtinformation,[mbyes,mbno],0)=mrNo then
  begin
    ModalResult := mrNone; 
  end;

Answer 4

你不要在这个按纽下加代码要加只加CLOSE；
在form的ONCLOSe中加入
if messagedlg('你要退出挡案输入系统吗？',mtinformation,[mbyes,mbno],0)<>mryes then
  begin
    abort;  
  end;
再试试