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;