| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Получить имя компонента [D6, D7]
dest81 © (2007-02-21 17:15:00)var
lab:tlabel;
Припустим есть на форме 5 label-ов
нужно по клику на любой из лабелов, чтоб переменной lab присваивалось имя лабела по которому кликнули.
webpauk (2007-02-21 17:38:00) [1]
> Kolan © (21.02.07 17:34) [3]
если событие определено только для Tlabel (общее) - if (Sender is TLabel) - не надо. Sender уже и так Tlabel!
lab - переменная! lab.Caption - ошибка!
ну и напоследок: можно - Tlabel(Sender).Name
Kolan (2007-02-21 17:34:00) [2]> [2] webpauk (21.02.07 17:31)
> lab := (Sender as TLabel).Name
По телепатировать можно и так:
if (Sender is TLabel) and (lab <> nil) then
lab.Caption := (Sender as TLabel).Name;
webpauk (2007-02-21 17:31:00) [3]lab := (Sender as TLabel).Name
Игорь Шевченко (2007-02-21 17:23:00) [4]Каждому label назначить общее событие OnClick, в котором написать
lab := Sender as TLabel
| |
