在运行时创建的对象上双击事件 - Delphi答案

【问题标题】：Double click event on object created at run time - Delphi在运行时创建的对象上双击事件 - Delphi
【发布时间】：2016-07-06 06:42:09
【问题描述】：

我创建了一个带有按钮的简单 Delphi 表单，当按下该按钮时，会在运行时创建一个标签对象。我为在屏幕上显示消息的标签创建了一个双击事件。问题是创建标签后，我必须在双击事件对标签起作用之前双击表单。显然这并不理想，因为我希望能够双击标签并触发事件而不必先双击表单。

这是我的表单的代码：

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
    { Private declarations }
    LabelObject: TLabel;
  public
    { Public declarations }
  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 事件中分配LabelObject.OnDblClick。
@LURD 完美，非常感谢！
如果您在表单的双击处理程序中为标签分配双击处理程序，那么您应该不会惊讶标签仅在您双击表单后对双击作出反应。
@RudyVelthuis 是的，现在说得通了，愚蠢的错误哈哈。但是一直在学习！非常感谢您的解释。

标签： delphi object events runtime

【解决方案1】：

问题是创建标签后，我必须在双击事件对标签起作用之前双击表单。

在创建标签时分配LabelObject.OnDblClick，即在Button1Click事件内。

【讨论】：