＝＝＝问大家一个很简单的问题＝＝＝

Question

你这是一个AV错误，你的btnOk是那个窗体的是主窗体的还是另外一窗体的，你要注btnOk.enabled:=false写在适当的位置！看一下你Close的源代码！

Answer 1

什么是AV错误啊？我试了以下两种方法
1：
TMainForm.aaaaa;
...
...
...
SubForm.ShowModal;
/////////
SubForm:
...
...
...
Close;
Release;
MainForm.btnOK.Enabled := false;
2:
TMainForm.aaa;
...
...
...
SubForm.ShowModal;
btnOK.Enabled := false;/////////
SubForm:
...
..
...
Close;
Release;用以上两种方法，都是出现同一个错误，请问这是为什么呢？应该怎样改？

Answer 2

参考下面
procedure TMyDialogBox.OKButtonClick(Sender: TObject);begin
  ModalResult := mrOK;
end;procedure TMyDialogBox.CancelButtonClick(Sender: TObject);
begin
  ModalResult := mrCancel;end;
procedure TForm1.Button1Click(Sender: TObject);begin
  if (MyDialogBox1.ShowModal = mrOK) or (MyDialogBox1.ShowModal = mrCancel)then
    //设置end;

Answer 3

你的错误在：Release;一句如果你想释放窗体：Action:=caFree;