delphi - 启用运行时主题时，FTouchManager 会导致 AV

Question

正如我所写的标题，当启用运行时主题时，我遇到了由 FTouchManager 引起的 AV 问题。在主窗体上，我有一个带有一个按钮的框架。 OnClick 事件调用主窗体方法，该方法必须销毁框架。如果我单击该按钮，我会在“Vcl.Controls”中看到 AV。当我禁用运行时主题时，一切都会正常工作。我该如何解决这个问题？

提前谢谢你，蒂姆

测试平台:Delphi XE3、XE6 平台:Win32

Vcl.Controls:

procedure TWinControl.WndProc(var Message: TMessage);
...
WM_MOUSEFIRST..WM_MOUSELAST:
        with FTouchManager do  
          if (GestureEngine <> nil) and (efMouseEvents in GestureEngine.Flags) then // <-- here I get AV error because FTouchManager = nil
            GestureEngine.Notification(Message);
...
end;

框架单位:

constructor TFrame2.Create(AOwner: TWinControl);
begin
  inherited Create(AOwner);
  Parent := AOwner;
end;

destructor TFrame2.Destroy;
begin
  Parent := nil;
  inherited;
end;

procedure TFrame2.Button1Click(Sender: TObject);
begin
    Form1.DestroyFrame;
end;

主窗体单元:

procedure TForm1.FormShow(Sender: TObject);
begin
    Frame2 := TFrame2.Create(Form2);
end;

procedure TForm1.DestroyFrame;
begin
    FreeAndNil(Frame2);
end;

Answer 1

您正在破坏框架，从而在其 OnClick 事件期间破坏所包含的按钮。因此，OnClick 事件之后的按钮和/或框架实例内的每个代码都引用已销毁的自身。在我看来这不太理智。

最好将消息发布到在消息处理程序中调用 DestroyFrame 的表单 (PostMessage)。