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;
相關文章
相關標籤/搜索