delphi - 使用 VCL 样式对 TOpenDialog 和 TOpenPictureDialog 进行换肤

Question

是否可以使用 VCL 样式为 TOpenDialog 和 TOpenPictureDialog 换肤？

Answer 1

简短的回答是“否”，当前使用 Delphi XE2 或 XE3 不可能将 Vcl 样式直接应用于非 VCL 表单(或在 VCL 应用程序外部创建的表单)。

现在的答案很长，从技术上讲，将 Vcl 样式应用于此类对话框是可能的，但这需要大量的工作(相信我，这需要大量的工作)。

关键是使用 WH_CBT Hook，检测HCBT_CREATEWND代码，然后检查窗口的类是否为 #32770 (对话框的类。)从这里您可以使用 SetWindowLong 替换窗口过程具有 GWL_WNDPROC 索引的函数。

这是简单的部分，现在您可以控制窗口对话框发送的消息您必须迭代子控件并使用以下命令再次替换窗口过程GWL_WNDPROC 索引。这可以通过为 Windows 对话框中使用的每个控件(按钮、syslistview32、组合框等)创建包装类(这是一项艰苦的工作)来完成

这是 syslistview32 windows 类的包装器类的定义示例。

  TListViewWnd = class(TCustomListView)
  private
    FNewWndProc  : Pointer;
    FOrgWndProc  : Pointer;
    Fhwnd: THandle;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
    procedure DestroyWnd; override;
    procedure WndProc(var Message: TMessage); override;
  public
    constructor Create(hwnd: THandle);
    destructor  Destroy;override;
  end;

最后，您可以使用为 Vcl 控件(如 TListView)定义的现有 VCL 样式钩子(Hook)

TStyleManager.Engine.RegisterStyleHook(TListViewWnd, TListViewStyleHook);

我已经完成了上述部分任务，但尚未完成，因此此类项目需要大量时间。