Получить имя компонента

← →
dest81 © (2007-02-21 17:15) [0]

var
lab:tlabel;

Припустим есть на форме 5 label-ов
нужно по клику на любой из лабелов, чтоб переменной lab присваивалось имя лабела по которому кликнули.

← →
Игорь Шевченко © (2007-02-21 17:23) [1]

Каждому label назначить общее событие OnClick, в котором написать
lab := Sender as TLabel

← →
webpauk (2007-02-21 17:31) [2]

lab := (Sender as TLabel).Name

← →
Kolan © (2007-02-21 17:34) [3]

> [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:38) [4]

> Kolan © (21.02.07 17:34) [3]

если событие определено только для Tlabel (общее) - if (Sender is TLabel) - не надо. Sender уже и так Tlabel!
lab - переменная! lab.Caption - ошибка!
ну и напоследок: можно - Tlabel(Sender).Name

Получить имя компонента Найти похожие ветки