Последние записи

made in programmersforum 1

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

1st
Июн

Обработчик на динамически созданный компонент

Posted by micher under Delphi

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

lexo



procedure MyButtonClick(Self : TComponent; Sender : TButton);

begin

(Self.FindComponent('edUser') as TEdit).Text := 'hello';

end;
procedure TForm1.Button1Click(Sender: TObject);

Var

frmUser: TForm;

btnUser: TButton;

edUser:TEdit;

memUser:TMemo;

Method : TMethod;

begin

frmUser := TForm.Create(Self);

frmUser.Caption := 'Message';

frmUser.Left := 290;

frmUser.Top := 196;

frmUser.Width := 368;

frmUser.Height := 437;

btnUser := TButton.Create(frmUser);

btnUser.Left := 296;

btnUser.Top := 344;

btnUser.Width := 25;

btnUser.Height := 25;

btnUser.Caption := '>';

btnUser.Parent := frmUser;
Method.Code := @MyButtonClick;

method.Data := frmUser; // Self будет твоя форма

btnUser.OnClick := TNotifyEvent (Method);
edUser := TEdit.Create(frmUser);

edUser.Name := 'edUser'; // Вот имя - обязательно. По нему будет обращение к компоненту

edUser.Left := 32;

edUser.Top := 344;

edUser.Width := 257;

edUser.Height := 25;

edUser.Text := '';

edUser.Parent := frmUser;
memUser:=TMemo.Create(frmUser);

memUser.Left := 32;

memUser.Top := 32;

memUser.Width := 289;

memUser.Height := 297;

memUser.Parent := frmUser;

memUser.Lines.Clear;
frmUser.Show;

end;