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

Дмитрий Завьялов ]]>]]> Пользователь Сообщений: ]]>156]]> Баллов: 125 Регистрация: 04.02.2011	]]>#1]]> 16.02.2011 12:08:59 Всем доброго времени суток! Подскажиет пожалуйста каким образом через TComponent можно обращаться, например, к ко всем лэйблам лежащим на панели?

Дмитрий Завьялов

]]>]]>

Пользователь

Сообщений: ]]>156]]> Баллов: 125 Регистрация: 04.02.2011

]]>#2]]>

16.02.2011 12:10:43

Так:

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

или так:

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

Дмитрий Завьялов

]]>]]>

Пользователь

Сообщений: ]]>156]]> Баллов: 125 Регистрация: 04.02.2011

]]>#3]]>

16.02.2011 12:11:15

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

Дмитрий Завьялов

]]>]]>

Пользователь

Сообщений: ]]>156]]> Баллов: 125 Регистрация: 04.02.2011

]]>#4]]>

16.02.2011 12:11:47

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

Дмитрий Завьялов ]]>]]> Пользователь Сообщений: ]]>156]]> Баллов: 125 Регистрация: 04.02.2011	]]>#5]]> 16.02.2011 12:12:06 а в инспекторе объектов, на вкладке события, нельзя поставить руками процедуру? просто не понятна логика зачем гонят всё через цикл.. когда можно поставить так

Дмитрий Завьялов

]]>]]>

Пользователь

Сообщений: ]]>156]]> Баллов: 125 Регистрация: 04.02.2011

]]>#6]]>

16.02.2011 12:13:10

Можно и так:

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

Логин:
Пароль:
	]]>Войти]]> ]]>Регистрация]]> ]]>Забыли?