Changing the color of the list of component on a panel

STC

Delphi Developer

Mon, 08 Jul 2002 03:00:00 GMT

Changing the color of the list of component on a panel

I need to change the color of a group of components at run time. The
components may include TEdit, TMemo, TlookupCombo... and they are sitting on
a TPanel.
The most efficient way is the iterate throught the list of components and
change their color property using

for c:=0 to Panels.ComponentCount-1
begin
Panels.Components[c].Color:=clRed
end

However, the color property of the component is protected at TComponent
level.

How can I solve this problem?

Thanks
SIA

Udo Nesshoeve

Delphi Developer

Mon, 08 Jul 2002 03:00:00 GMT

Re:Changing the color of the list of component on a panel

On Thu, 20 Jan 2000 12:26:23 +0800 STC wrote:

Quote

> I need to change the color of a group of components at run time. The
> components may include TEdit, TMemo, TlookupCombo... and they are sitting on
> a TPanel.

> for c:=0 to Panels.ComponentCount-1
> begin
> Panels.Components[c].Color:=clRed
> end

> the color property of the component is protected at TComponent level.
> How can I solve this problem?

Do a type cast for every component like
if Panels.Components[c] is TEdit then
TEdit(Panels.Components[c]).Color:= clRed else
if Panels.Components[c] is TMemo then
TMemo(Panels.Components[c]).Color:= clRed else
...

Bye, Udo

Other Threads

1. how do I change text color on components and change color on Tab Page components

2. Changing panel color based on graphic adapter??

3. D7 + Manifest ==> Cannot change Panel color

4. TXPmanifest changes panel color - why?

5. List View - changing color of one line

6. Change Highlight color in a list box?

7. How to use 256 color common palette colors for shapes and panels without dithering

8. Change color in TMemo component

9. Help, Please : Changing Color of DBGrid Component

10. Changing background colors of components in one routine