Как выполнить действия с компонентом?

[artemavd]

Сообщение от саша40

Есть такое замечательное в TComponent и называется FindComponent. Если, компонент принадлежит форме, то надо иметь ещё и дескриптор этой формы(Handle), его получаем через FindWindow. Дальше приводим типы к типу TForm. А уже из него вызываем FindComponent, который приводим к типу компонента или TWinControl. А у него уже изменяем свойства.
Если действия происходят в классе формы, на которой компонент, то искать форму не надо. Можно сразу FindComponent.
Пример кода:

//процедура описанная в классе формы.
begin
(FindComponent('Имя_Компонента') as TWinControl).Height:=0; //изменяем свойство Height у компонента. 
//P.S. Компонент должен быть наследником TWinControl. 
end;

А почему не работает-то так?

begin
(FindComponent('Имя_Компонента') as TPanel).Color:=clRed; 
end;

Только странно почему нельзя поменять цвет когда TWinControl?

[Stilet]

А почему не работает-то так?

Еще раз спрашиваю: Какого класса у тебя компонент?

почему нельзя поменять цвет когда TWinControl?

Наверное потому что у него нет свойства Color )
Именно поэтому нужно приведение типов. А вот во что - это ты должен сказать.

[artemavd]

Сообщение от Stilet

Еще раз спрашиваю: Какого класса у тебя компонент?

TsPanel. Если я правильно тебя понял.

[Stilet]

TsPanel

Вот. А теперь посмотрим на твой код:

(FindComponent('Имя_Компонента') as TPanel).Color:=clRed;

Разницу видишь? Ты приводишь не к тому что нужно типу.

[саша40]

Свойство Color у TPanel правильно будет описано в классе TCustomPanel. К этому типу приводить надо.