如何使用 TStyleManager::UnRegisterStyle(） 取消注册样式

答案已更新！再。

好吧，我不是VCL风格的非常有经验的用户，但我会尝试解释如何避免您的问题。在您进一步阅读之前，我应该告诉您：没有办法取消注册任何样式。

风格与否

首先，您必须知道VCL的样式使用内部FRegisteredStyles字典来存储所有注册的样式。风格在TStyleManager.LoadFromFile(YourStyleName)被调用后注册。不幸的是，样式永远不会从字典中删除。

请勿使用UnregisterStyle程序。它根本不会取消注册样式。只需从可用样式列表中删除指定的样式。因此，在调用UnregisterStyle(YourStyle)后，您只需从内部列表中擦除YourStyle，而不是从前面提到的字典中清除，并且无法设置此样式。

成功调用UnregisterStyle()后，您可以调用LoadFromFile()方法并想知道为什么应用程序说：

样式"祖母绿"已注册。

发生这种情况是因为LoadFromFile()该方法加载指定的样式并检查其在注册样式的内部字典中的存在。此检查始终返回true因为UnregisterStyle()过程不会从字典中删除指定的样式。

同样的事情也与财产StyleNames有关。此属性返回样式名称，使用内部FRegisteredStyles字典获取具有指定索引的样式名称。

如果你想知道我的意见，这种风格的行为很奇怪。方法UnregisterStyle()还应从字典中删除指定的样式。也许我错了，但这是一个真正的错误。另一方面，没有错误 - 您正在尝试使用未记录的方法。真相就在附近。

样式化结果

作为结论，我建议您使用直接访问样式来决定是否可以使用所选样式。请参阅下面的代码(假设您打开了应用程序的样式(：

procedure TForm1.Button1Click(Sender: TObject);
begin
if Assigned(TStyleManager.Style['Emerald']) and TStyleManager.Style['Emerald'].Available then
// Do your code
else
ShowMessage('Specified style is not available!');
end;  

如果您有VCL.Themes来源，您可以轻松检查我在这里所写内容的合理性。

高技术

我已经为TStyleManager创建了class-helper，允许检查样式文件是否已注册并在需要时取消注册。为了用 style-file 中的实际值填充TStyleInfo记录，我们需要将指定的样式保存到TMemoryStream然后将 stream 传递给IsValidStyle函数。我们也可以使用物理路径来样式(例如C:EmbarcaderoDelphiStylesEmerald.vsf(而不是流的变体，但后者看起来更优雅。

不幸的是，根据Remy 的评论(我不知道如何链接到它(，C++ Builder(OP 使用(不支持class-helper功能。唯一的解决方案是创建包含class-helper所需的所有代码的简单单元。使用它就足够了，将这样的单元添加到子句uses并调用适当的公共过程\函数。

该单元具有以下结构：

unit StyleManager_CH;
interface
uses
VCL.Themes;

function IsStyleRegistered_CH(var AStyle: TCustomStyleServices): Boolean;
procedure UnregisterStyleEx_CH(var AStyle: TCustomStyleServices);

implementation
uses
System.SysUtils, System.Classes, System.Generics.Collections;

type
TStyleManagerHelper = class helper for TStyleManager
public
class function IsStyleRegistered(var AStyle: TCustomStyleServices): Boolean;
class procedure UnregisterStyleEx(var AStyle: TCustomStyleServices);
end;

class function TStyleManagerHelper.IsStyleRegistered(var
AStyle: TCustomStyleServices): Boolean;
begin
Result := Assigned(AStyle) and
TStyleManager.FRegisteredStyles.ContainsKey(AStyle.Name);
end;
class procedure TStyleManagerHelper.UnregisterStyleEx(var
AStyle: TCustomStyleServices);
var
MS: TMemoryStream;
StyleInfo: TStyleInfo;
SourceInfo: VCL.Themes.TStyleManager.TSourceInfo;
begin
if Assigned(AStyle) then
begin
MS := TMemoryStream.Create;
try
AStyle.SaveToStream(MS);
MS.Position := 0;
if AStyle.IsValidStyle(MS, StyleInfo) then
begin
if TStyleManager.FRegisteredStyles.ContainsKey(StyleInfo.Name) then
begin
SourceInfo := TStyleManager.FRegisteredStyles.Items[StyleInfo.Name];
if Assigned(SourceInfo.Data) then
FreeAndNil(SourceInfo.Data);
TStyleManager.FStyles.Remove(AStyle);
TStyleManager.FRegisteredStyles.Remove(StyleInfo.Name);
FreeAndNil(AStyle);
end;
end;
finally
MS.Free;
end;
end;
end;
function IsStyleRegistered_CH(var AStyle: TCustomStyleServices): Boolean;
begin
Result := TStyleManager.IsStyleRegistered(AStyle);
end;
procedure UnregisterStyleEx_CH(var AStyle: TCustomStyleServices);
begin
TStyleManager.UnregisterStyleEx(AStyle);
end;

end.

附录_CH代表class-helper缩写。还修复了一些内存泄漏。

我不确定是否有另一种方法可以"即时">重新加载样式文件。