Question

我创建了一个带有按钮的简单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.

提前感谢您对此事的任何帮助。

Answer 1

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

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

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

1 个答案: