为了方便自动编译、避免异地安装控件的麻烦和日后维护的方便，我们一般是把这个控件选定版本的源码放在项目源码中，通过动态创建的方式来使用这套vcl控件。

比如在delphi项目的源码目录src中，增加一个third目录存放第三方vcl控件，把AlphaControls的源码放到 src/third/ac目录下。在delphi项目的搜索路径中增加./third/ac，即可。

动态创建的代码：

skin := TsSkinManager.Create(self);  //创建皮肤管理器对象
skin.SkinDirectory := extractfilepath(application.ExeName)+'skins\';  //设置皮肤文件目录
skin.SkinName := skinfilename;  //指定皮肤
skin.ExtendedBorders := true;
skin.IsDefault := true; skin.SkinnedPopups := true; skin.SkinningRules :=[srStdForms, srStdDialogs, srThirdParty]; // 皮肤使用规则 skin.Active := true; // 激活皮肤

好了，运行后发现空白窗体的皮肤效果已经出来了。但增加了TMemo等控件后，发现这些控件并没有被影响，还是原生界面。因为缺省除AlphaControls提供的同类控件外，其它的控件都属于第三方控件，得单独处理才能有皮肤效果。

再增加以下代码：

//  with skin.ThirdLists[ord(tpEdit)] do
//  begin
//    Add('TEdit'); // Add('TMemo'); // Add('TListBox'); // Add('TCheckListBox'); // Add('TRichEdit'); // Add('TDateTimePicker'); // end; // with skin.ThirdLists[ord(tpButton)] do // begin // Add('TButton'); // end; // with skin.ThirdLists[ord(tpBitBtn)] do // begin // Add('TBitBtn'); // end; // with skin.ThirdLists[ord(tpCheckBox)] do // begin // Add('TCheckBox'); // Add('TRadioButton'); // Add('TGroupButton'); // end; // with skin.ThirdLists[ord(tpGroupBox)] do // begin // Add('TGroupBox'); // Add('TRadioGroup'); // end; // with skin.ThirdLists[ord(tpPanel)] do // begin // Add('TPanel'); // end; // with skin.ThirdLists[ord(tpComboBox)] do // begin // Add('TComboBox'); // Add('TColorBox'); // end; // with skin.ThirdLists[ord(tpPageControl)] do // begin // Add('TPageControl'); // end; // with skin.ThirdLists[ord(tpTabControl)] do // begin // Add('TTabControl'); // end; // with skin.ThirdLists[ord(tpStatusBar)] do // begin // Add('TStatusBar'); // end; // with skin.ThirdLists[ord(tpVirtualTree)] do // begin // Add('TVirtualStringTree'); // end; // with skin.ThirdLists[ord(tpUpDownBtn)] do // begin // Add('TUpDown'); // end; // with skin.ThirdLists[ord(tpSpeedButton)] do // begin // Add('TSpeedButton'); // end;

注意，要查看效果请先去掉代码前的注释符号，这样，常用的Delphi控件就都会有皮肤效果了。

可能会注意到上面的代码都被注释掉了，因为我们其实可以更方便让通用第三方控件(对AlphaControls来说)自动具有皮肤效果。

把上面的支持第三方控件的代码去掉，找到./third/ac目录下的sDefs.inc文件，在

// << 3rdparty support start <<

后增加一行：

{$DEFINE RUNIDEONLY}

保存后，重新编译，就会发现其实Delphi自带的控件就已经具有皮肤效果了。

当然，非官方的控件，还是需要通过类似上面的代码自己分类添加才会有效果。比如TVirtualStringTree，就得增加代码：

with skin.ThirdLists[ord(tpVirtualTree)] do
begin
  Add('TVirtualStringTree'); end;

对于一些特殊的控件包，比如TntControls、DevExpress等，可以通过sDefs.inc进行设置进行支持。