AlphaControls 对 NoteBook 非首页未开启皮肤问题解决

时间 2019-12-13

标签 alphacontrols notebook 首页开启皮肤问题解决繁體版

原文原文链接

AlphaControls 是著名的 Delphi 第三方皮肤组件,使用很是方便，只需加一个 TsSkinManager 组件，再指定所用皮肤名，便可对 Delphi 开发的程序进行美化。但使用中发现有一个组件 NoteBook， TsSkinManager仅对其首页进行了美化，当 NoteBook有多个页面时，转到其余页面，发现其中的控件都没有美化，目前最新版是 13.19, 全部版本这个问题一直存在。这里给出了解决的办法：code

if btn1.Tag = 0 then // 若是还没有 美化，则美化处理
  begin
    sknmngr1.BeginUpdate;
    nb1.pageindex := 0;
    sknmngr1.EndUpdate(True);
    btn1.Tag := 1;
  end else // 已经处理过，直接转到相应页面便可
    nb1.pageindex := 0;