触摸动态表单时访问冲突？

Question

我正在动态创建一个窗体，但是关闭它的例程位于我的主窗体的单元中，因为它与我的主窗体 (TSkype) 上的控件相关联。该事件是 SkypeAsyncSearchUsersFinished。当 SkypeAsyncSearchUsersFinished 例程完成时，我尝试将 ModalResult 设置为动态表单的 mrOk。但是，这会产生访问冲突。

这是搜索完成时触发的代码：

   if SIDList.Count = 0 then
   begin
     frmSearcher.tmrFadeOut.Enabled := True;
   end;

我尝试调试它，并在 frmSearcher.tmrFadeOut 处设置了一个断点...然后我进入下一行（例程 End;），这就是 AV 出现的时候。

tmrFadeOutTimer 事件执行 ModalResult := mrOk;

这就是我创建动态表单的方式：

Function ShowSearcher():Boolean;
Var
   dlg : TfrmSearcher;
Begin
  Result := False;
  dlg := TfrmSearcher.Create(Forms.Application);


  dlg.tmrFadeIn.Enabled := True;


    if dlg.ShowModal = mrOk then
         Begin
         // Do nothing here

         End;

  Result := True;
  dlg.Release;

End;

是的，我确信计时器只会启用一次。 :)

是的，我确定表单是“活动的”。 :)

实际上，如果我删除 tmrFadeOut.Enabled 代码，一切正常，但表单不会关闭。执行 frmSearcher.ModalResult := mrOk; 也会产生 AV。

如果您需要更多信息，我会添加。 :)

非常感谢！ :)

Answer 1

由于您是手动创建 TfrmSearcher 表单，请删除 IDE 生成的变量 frmSearcher，修复您将遇到的编译错误，一切都会好起来的。

您获得了 AV，因为 frmSearcher 为 NIL。

Answer 2

您正在将新的 TfrmSearcher 对象实例分配给其他方法无法访问的本地 dlg 变量。您的其他例程正在尝试使用您未分配任何值的 frmSearcher 变量访问对话框。

Answer 3

我将其添加为答案，因为我想格式化代码。这不是试图回答这个问题，我可能会在适当的时候删除，特别是如果我得到很多反对票（同行压力）。

我想展示的是如何创建、展示和销毁表单。你这样做：

procedure ShowMyForm;
var
  Form: TMyForm;
begin
  Form := TMyForm.Create(nil);
  try
    Form.ShowModal;
  finally
    Form.Free;
  end;
end;

在您的代码中：

1. 无需将所有者传递给构造函数，因为您正在确定表单的生命周期。
2. 函数的返回变量毫无意义，因为你总是返回True。唯一的失败模式是通过异常但函数没有返回值。
3. 不要打电话给Release，原来的Free才是你想要的。您在处理消息时调用Release，并且希望在处理当前队列中的任何消息后表单消失。