Обращение через TComponent

[Marsel737]

Всем доброго времени суток!

Подскажиет пожалуйста каким образом через TComponent можно обращаться, например, к ко всем лэйблам лежащим на панели?

[dr.Chas]

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

Всем доброго времени суток!

Подскажиет пожалуйста каким образом через TComponent можно обращаться, например, к ко всем лэйблам лежащим на панели?

Так:

for i:=1 to 6 do
  begin
    cp:=FindComponent('Label'+IntToStr(i));
    (cpt as Label).Caption:='';
  end;

или так:

for i:=0 to componentcount-1 do
    if (Components[i].Name = 'Label1') then
    (components[i] as TControl).caption:='';

[Marsel737]

dr.Chas, спс, кое что начинает проясняться. Только я имел в виду немного другое, у меня есть пять лэйблов и нужно для всех этих лэйблов написать одну процедуру, которая для всех них обрабатывала бы событие OnClick. А есл конкретнее, нужно загружать из файла текст в мемо, в зависимости от выбранного лэйбла, причем должно быть реализовано ч/з TComponent

[DarkEvil]

(components[i] as TLabel).OnClick := proc_name

[BARNEY]

а в инспекторе объектов, на вкладке события, нельзя поставить руками процедуру?

просто не понятна логика зачем гонят всё через цикл.. когда можно поставить так

[Marsel737]

BARNEY, если честно, мне логика такая тоже непонятна, я написал одну универсальную процедуру которая, которая открывает определенный текст в мемо, меняет шрифт у выбранного лэйбла, загружает определенные картинки и т.д.,в зависимости от i, а уже у каждого лэйбла на OnClick прописал:

procedure TfrmBook.lblPoint1Click(Sender: TObject);
begin
  i:=1;
  frmBook.OpenLabel;
end;

Зато препод сказал что лучше делать не так, а обращатся к лэйблам на панели, как к потомкам панели.

А вот как это так обращатся я не знаю, может кто поможет, там примерная конструкция должна быть вот такой:

...
if потомок in предок then
...

Это мне так на словах объяснили.

[mihali4]

Можно и так:

procedure TForm1.Label1Click(Sender: TObject);
begin
if (Sender as TLabel).Parent=Panel1 then
Label2.Caption:=(Sender as TLabel).Caption;
end;