Скачать: CL | DM;

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

← →
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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.03 c