VclSkin v2.60 For D567 含105个皮肤 (破解修正版)

useswinskindlg;TypeTMySkinManage=class(TSkinManage);procedureTForm1.btn1Click(Sender:TObject);//破解后的2.6版不能够动态改变窗体的caption，下面是补充解决办法varP:Pchar;beginP:=Pointer(TMySkinManage(SkinManager).FindSkinForm(Handle));ifP=nilthenexit;P:=P+104;//D5的话请将104改为88，未经测试Pstring(P)^:='Edit1.Text';Caption:='