Как узнать, какой компонент вызвал событие?

← →
GIL © (2004-04-07 10:36) [0]

на форме есть куча лейблов, они используются как элементы управления, на все эти лейблы хотелось бы написать одну по одной процедуре на событие. Есть процедура на событие в лейбле, хочется, чтобы все лейблы ссылались на эту процедуру, и при этом для каждого она работала, как это сделать? Как узнать, какой компонент вызвал процедуру?

← →
Agent13 © (2004-04-07 10:38) [1]

см. свойство Tag

← →
Семен Сорокин © (2004-04-07 10:39) [2]

Sender + F1

← →
Рамиль © (2004-04-07 10:39) [3]

(Sender as TLable).Name

← →
pasha_golub © (2004-04-07 10:40) [4]

Agent13 © (07.04.04 10:38) [1]
В Одессу через Сахалин?

← →
GIL © (2004-04-07 10:49) [5]

незнаю при чем здесь таг, объясни пжлста

← →
NAlexey © (2004-04-07 10:56) [6]

Находишся постоянно в состоянии дежавю читая вопросы в этой ветке.

← →
Рамиль © (2004-04-07 10:59) [7]

> незнаю при чем здесь таг, объясни пжлста

Можно в каждой метке прописать Tag и идентифицировать объект по нему

← →
GIL © (2004-04-07 11:01) [8]

я сейчас не очень-то могу запускать дельфю и потому пишу в блокноте, это не совсем удобно, а за тагом я не замечал чего-либо такого, что могло бы мне помочь (вроде как он служит для объединения в группы)

← →
GIL © (2004-04-07 11:02) [9]

2 Рамиль -поподробнее пжлста, ведь для обращения к тагу надо суметь обратиться к компоненту?

> NAlexey © (07.04.04 10:56) [6]

Матрица - однако :о)

> GIL © (07.04.04 11:01) [8]
...(вроде как он служит для объединения в группы)
- не-а, он не служит, он может быть использован и для этого

[2],[3],[10] - оно самое что тебе нужно

← →
Saturn_ (2004-04-07 11:37) [12]

можеш попробовать сделать так:
procedure TForm1.Add_Label(Name,Capt:String;x,y,n:integer;Paren:TWinControl); Var New_Label:TLabel; begin New_Label:=TLabel.Create(Form1); New_Label.Top:=y; New_Label.Left:=x; New_Label.Name:=Name; New_Label.Height:=16; New_Label.Caption:=Capt; New_Label.Parent:=Paren; New_Label.AutoSize:=False; New_Label.OnClick:=OnClickLabel; end; Насоздавай нужных TLabel"ов procedure TForm1.OnClickLabel(Sender: TObject); Var i: integer; begin ... i:=0; While TEdit(TForm1.Controls[i]).name <> Name do i:=i+1; result:=TLabel(Panel5.Controls[i]);//Это поиск элемента по известному имени может сгодится. ... end; Сделай перебор например через if Чтото типа : If TControl(Sender).name = Name{это имя элемента} Then ....

спасибо

Как узнать, какой компонент вызвал событие? Найти похожие ветки