如何实现改变颜色(5分)

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-13

• #1

各位老大:
我在窗体上放了500个Tshape控件和一个Tbutton控件，我想点击Button1使
500个Tshape控件的颜色都变为红色，如何实现？

 

Z

zhch_liu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-07-13

• #2

在ONbutton1Click事件中写如下代码:
var i:integer;
for i:=0 to controlcount-1do
if (control is Tshape) then
(control as Tshape).color:=clred;

 

城

城里的月饼

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-10-15

• #3

接受答案了.