Delphi：子类化和恢复控件的适当时间？

Question

开始对控件进行子类化的正确地点/时间是什么？

什么时候恢复原来的窗口进程合适？

现在我在表单创建期间进行子类化：

procedure TForm1.FormCreate(Sender: TObject);
begin
   FOldPanel1WindowProc := Panel1.WindowProc;
   Panel1.WindowProc := Panel1WindowProc;
end;

并且在表单销毁期间恢复子类化：

procedure TForm1.FormDestroy(Sender: TObject);
begin
   Panel1.WindowProc := FOldPanel1WindowProc;
end;

只要我不使用ThemeManager，其子类控制自身。一旦尝试子类化 ThemeManager 也子类化的控件，我就会遇到非常讨厌的错误。

我认为这是因为我不应该在创建期间启动子类并在销毁期间恢复它。那么，在 Delphi 中子类化和取消子类化控件的正确记录时间是多少？

Answer 1

您的问题尚不清楚，但我假设您在尝试在表单的 OnDestroy 事件处理程序中恢复旧窗口过程时遇到错误。

在处理控件的 WM_DESTROY 时，ThemeManager 会恢复其子类化。因此，您可能必须执行相同的操作：在新窗口过程中监视 WM_DESTROY 并首先恢复子类化，然后调用旧窗口过程（并让 ThemeManager 执行相同的操作）。

我还没有测试过这个，但我认为它应该有效。