Как отключить стили VCL в Delphi

Question

Я использую новую систему стилей VCL в Delphi XE2. Он отлично работает, но я хочу отключить его для конкретной формы, на которой есть несколько изображений (всплеск/форма). Проблема в том, что я не могу найти свойство формы, которое связывает его с определенным стилем, и поэтому не может отключить его только для этой формы. Кажется, что существует только глобальный класс TStyleManager, который кажется статическим.

Имея это в виду, это единственный способ достичь этого, позвонив по номеру TStyleManager.TrySetStyle('Windows'), покажите форму и затем верните ее в исходный стиль, когда форма закрыта?

Answer 1

VCL Styles применяют скин ко всем приложениям VCL, но вы можете отключить стили VCL для определенного класса управления. Поэтому, если вы хотите отключить стили VCL для определенной формы, вы можете использовать функцию RegisterStyleHook, передающую тип формы и класс TStyleHook, который является пустым классом класса hook.

Эта строка кода отключит Стили VCL во всех формах типа TFormChild:

TStyleManager.Engine.RegisterStyleHook(TFormChild, TStyleHook); 

Теперь, если вы запустите этот код все элементы управления формы, TFormChild по-прежнему окрашены Стили VCL , так что исправить, что вы должны отключить крюк стиля по умолчанию для всех элементов управления в форме, используя трюк, как этого

unit uChild; 

interface 

uses 
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, 
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; 

type 
    TButton = class(Vcl.StdCtrls.TButton); //This declaration is only for disabling the TButton of this form 
    TFormChild = class(TForm) 
    Button1: TButton; 
    private 
    { Private declarations } 
    public 
    { Public declarations } 
    end; 

и теперь вы можете отключить стили VCL на TButton этой формы, а с этим кодом

TStyleManager.Engine.RegisterStyleHook(uChild.TButton, TStyleHook); 

Если вы хотите получить больше информации о использовании TStyleHook класса, проверьте статью Exploring Delphi XE2 – VCL Styles Part II.

Answer 2

Самый простой способ - поместить всплеск в отдельную DLL. Таким образом, стайлер не будет трогать его.