Динамически создаваемые компоненты

[Aleksandr_59]

В процессе работы на форме создаётся компонент:

LabelTemp:=TLabel.Create(Self);
LabelTemp.Parent:=Self;
LabelTemp.AutoSize:=false;
LabelTemp.Font.Size:=12;
LabelTemp.Width:=200;
LabelTemp.Height:=50;
LabelTemp.Top:=100; LabelTemp.Left:=100;
LabelTemp.Color:=RGB(250,250,250);
LabelTemp.Alignment:=taCenter;
LabelTemp.Caption:=' ';

Как сделать обработчик события для этого компонента?

[Delphi_ProGer]

Для события OnClick :
// обьявляем сначала процедуру

TForm1 = class
public
procedure OnClickProc(Sender: TObject);

...

// Пишем сам код для обработки события
procedure OnClickProc(Sender: TObject);
begin
// код
end;

//

// Когда создаете лейбл, то добавте строку
LabelTemp.OnClick:=@OnClickProc;

P.S. Могут быть неточности, т.к. без компилятора. Но вроде должно работать.

[Aleksandr_59]

Спасибо, примерно то же самое надыбал на просторах инета.
Теперь, если определить один обработчик событий для нескольких элементов, то как определить в обработчике, какой из элементов среагировал? Через Self.Name поидёт?
Количество создаваемых элементов заранее неизвестно, раздельные обработчики неприемлемы.

[Delphi_ProGer]

Сообщение от Aleksandr_59

Спасибо, примерно то же самое надыбал на просторах инета.
Теперь, если определить один обработчик событий для нескольких элементов, то как определить в обработчике, какой из элементов среагировал? Через Self.Name поидёт?
Количество создаваемых элементов заранее неизвестно, раздельные обработчики неприемлемы.

Можно и через Self.Name, но если вам нужно что-то менять при клике на лейбл, то нужно делать так например:

Procedure OnClickProc(sender: Tobject);
begin
(sender as TLabel).Caption:='something'; //или TLabel(Sender).Caption:='smth'; - аналогично
//так будет изменяться назва лейбела, по которому был произведен клик
end;

[Пепел Феникса]

Можно и через Self.Name

нельзя.

только через Sender.

[Delphi_ProGer]

Сообщение от Пепел Феникса

нельзя.

только через Sender.

Емм...а почему?

Ааа...затупил)

Потому что Self у нас будет Form1.
А Sender - уже какой-то Label.

[Aleksandr_59]

Спасибо. Получилось через

(Sender as TLabel).Name

Тема закрыта.