....
btn:=TButton.Create(Form1);
btn.Caption:='xxxxx';
btn.OnClick:=Form1.btncl;
btn.Tag:=111;
....
procedure TForm1.btncl(Sender: TObject);
....
тут мне нужно плучить Сaption и Tag
....
Sender и свойства объекта
Во всех обработчиках сообщений окна используеться параметр Sender. Как из этого Sendera получить доступ к свойствам объекта?
Пример:
Пример:
Код:
TButton(Sender).Caption
TButton(Sender).Tag
или
(Sender as TButton).Caption
(Sender as TButton).Tag
TButton(Sender).Tag
или
(Sender as TButton).Caption
(Sender as TButton).Tag
Цитата:
Во всех обработчиках сообщений окна используеться параметр Sender. Как из этого Sendera получить доступ к свойствам объекта?
Sender - это адрес объекта, вызвавшего обработчик сообщения.
Точнее, Sender - это указатель типа TObject, являющегося базовым для любого объекта VCL
Для того, чтобы использовать этот объект в обработчике, его можно привести к указателю соответствующего типа. В Delphi для проверки возможности приведения (а вдруг Sender указывает не на TLabel, а на TEdit) используется оператор is
Код:
if (Sender is TLabel)