在窗体创建的时候统一设置一下SkinData属性就可以了 uses TypInfo; procedure TFormXXX.FormCreate(Sender: TObject); var int1:Integer; PropInfo:PPropInfo; begin //设置皮肤控件 for int1:=0 to Self.ComponentCount-1 do begin PropInfo:=GetPropInfo( Components[int1],'SkinData' ); if PropInfo<>nil then SetObjectProp( Components[int1],PropInfo,bsSkinData1 ); end;end;
2:http://topic.csdn.net/u/20110410/22/065ea787-fbf6-4db9-8923-94016ee9cd24.html
uses TypInfo;
procedure TFormXXX.FormCreate(Sender: TObject);
var
int1:Integer;
PropInfo:PPropInfo;
begin
//设置皮肤控件
for int1:=0 to Self.ComponentCount-1 do
begin
PropInfo:=GetPropInfo( Components[int1],'SkinData' );
if PropInfo<>nil then
SetObjectProp( Components[int1],PropInfo,bsSkinData1 );
end;end;
感谢7楼的热心