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

[artemavd]

Добрый день!
Если известно имя компонента, которое хранится в строковой переменной, то как можно сделать что-то с компонентом, имя которого хранится в переменной, не нажимая кнопкой мыши на это компоненте? Например, изменить цвет или изменить ширину компонента или его высоту. Как бы не "трогая" сам компонент на форме, а просто зная его имя.

[MODBUS]

var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
   if Components[i].Name = 'Panel2' then (Components[i] as tpanel).color:= clred;

[artemavd]

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

var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
   if Components[i].Name = 'Panel2' then (Components[i] as tpanel).color:= clred;

Не работает. Ничего не изменяется на компоненте цвет. Если это важно, то я использую компоненты Alpha Controls.

[Stilet]

var c:TComponent;
...
c:=FindComponent('Компонент1');
if c<>nil then begin
 TPanel(c).чет делаем;
end;

я использую компоненты Alpha Controls.

А ты типы привел правильно?

[artemavd]

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

var c:TComponent;
...
c:=FindComponent('Компонент1');
if c<>nil then begin
 TPanel(c).чет делаем;
end;

А ты типы привел правильно?

Данный код тоже не работает.
Типы? В смысле? Поясни.

[MODBUS]

...код рабочий, не надо ля-ля. Проблема в некорректном использовании набора альфы-контролс.

Дополнено

...например для скроллбара:

var
  i:integer;
begin
  for i:=0 to ComponentCount-1 do
   if Components[i].Name = 'bla-bla-bla' then (Components[i] as TsScrollBar).Position:= 20;

p.s.: и вообще, подход изменить бы ...имхо рациональнее иметь дело с динамическим набором объектов и обращаться к нужному по индексу в наборе, без переборов и поисков.

[Smitt&Wesson]

А реал пименить, США запретило?
Бл..., а ох.....ю. Молодёжь, совершенно думать разучилась.
Ну, мы умрём и чё?, каменный век?

[саша40]

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

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

[саша40]

О ещё, проверяй наличие компонента. FindComponent выдаст nil, если компонента нет(он не создан!). Так же можно проверить и форму. Функция FindWindow выдаст 0, если форма не создана.

[Stilet]

Типы? В смысле? Поясни.

Ну приведение типов. Какой компонент ты хочешь обрабатывать?
Покажи пример своего кода.

О ещё, проверяй наличие компонента. FindComponent выдаст nil

Если что в своем примере я это учел.