皮肤控件BusinessSkinForm问题!在线等(100分)

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-23

• #1

窗体上有很多bsSkinEdit,bsSkinCombobox,bsSkinPanel如何动态地用循环把所有窗体上的皮肤类的SkinData指向一个bsSkinData1

 

W

wangxumian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-23

• #2

不应该把精力放在这个方面。手动指定不就行了？

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-23

• #3

为什么不在设计期就把属性设好？
var
i:integer;
begin
for i:=0 to ComponentCount-1do
if Components is TbsGraphicSkinControl then
TbsGraphicSkinControl(Components).SkinData:=bsSkinData1
else
if Components is TbsCustomEdit then
TbsCustomEdit(Components).SkinData:=bsSkinData1
else
if Components is TbsSkinControl then
TbsSkinControl(Components).SkinData:=bsSkinData1
else
if Components is TbsSkinBevel then
TbsSkinBevel(Components).SkinData:=bsSkinData1
else
if Components is TbsSkinMemo then
TbsSkinMemo(Components).SkinData:=bsSkinData1;
end;

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-23

• #4

我觉着手动麻烦,不知是否有办法实现?

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-23

• #5

to hs-kill
else
if Components is TbsCustomEdit then
TbsCustomEdit(Components).SkinData:=bsSkinData1
这里编译通不过
[错误] UGL.pas(1793): Undeclared identifier: 'SkinData'
[严重错误] PGL.dpr(9): Could not compile used unit 'UGL.pas'

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-23

• #6

哦 错了 应该是 TbsSkinCustomEdit

 

H

hying95

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2008-05-23

• #7

to hs-kill
多谢你了.给你加分