Как заставить событие двойного клика срабатывать на динамически созданной метке в Delphi

Delphi , Компоненты и Классы , Свойства и События

При разработке приложений на Delphi, часто возникает необходимость создания элементов интерфейса во время выполнения программы. Одной из таких задач является назначение событий на созданные элементы. В данной статье мы рассмотрим проблему, связанную с назначением события двойного клика на метку, созданную в runtime, и научимся решать её.

Проблема

Разработчик создал форму в Delphi с кнопкой, которая при нажатии генерирует метку (label) во время выполнения программы. На созданную метку назначено событие двойного клика, которое должно отображать сообщение. Однако, для того чтобы событие срабатывало, необходимо сначала выполнить двойной клик по форме. Это не является желаемым поведением, так как пользователь должен иметь возможность сразу же активировать событие двойного клика по метке.

Пример кода

Вот пример кода, который иллюстрирует описанную проблему:

unit Unit4;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm4 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormDblClick(Sender: TObject);
    procedure MyLabelDblClick(Sender: TObject);
  private
    LabelObject: TLabel;
  public
  end;

var
  Form4: TForm4;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
  LabelObject := TLabel.Create(Self);
  LabelObject.Left := 100;
  LabelObject.Top := 100;
  LabelObject.Width := 200;
  LabelObject.Height := 20;
  LabelObject.Visible := True;
  LabelObject.Parent := Self;
  LabelObject.Caption := 'My Run Time Label';
  LabelObject.Cursor := crHandPoint;
end;

procedure TForm4.FormDblClick(Sender: TObject);
begin
  LabelObject.OnDblClick := MyLabelDblClick;
end;

procedure TForm4.MyLabelDblClick(Sender: TObject);
begin
  ShowMessage('You double clicked My Run Time Label');
end;

end.

Решение проблемы

Чтобы событие двойного клика срабатывало сразу после создания метки, необходимо назначить обработчик события непосредственно при создании метки, то есть внутри обработчика события нажатия кнопки Button1Click. Вот исправленный код:

procedure TForm4.Button1Click(Sender: TObject);
begin
  LabelObject := TLabel.Create(Self);
  LabelObject.Left := 100;
  LabelObject.Top := 100;
  LabelObject.Width := 200;
  LabelObject.Height := 20;
  LabelObject.Visible := True;
  LabelObject.Parent := Self;
  LabelObject.Caption := 'My Run Time Label';
  LabelObject.Cursor := crHandPoint;
  LabelObject.OnDblClick := MyLabelDblClick;
end;

Таким образом, после нажатия на кнопку и создания метки, пользователь сможет сразу же выполнить двойной клик по метке, и событие будет активировано.

Заключение

Назначение обработчика событий на динамически созданные элементы в Delphi требует внимательности. Важно не забывать назначать обработчики сразу после создания элементов, чтобы обеспечить их корректное функционирование.

Создано по материалам из источника по ссылке.

При разработке приложения на Delphi необходимо правильно назначить обработчик события двойного клика на динамически созданную метку, чтобы оно срабатывало сразу после её создания.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Свойства и События ::