动态的建立label的onclick事件。怎么做？？

Question

我的label是在formshow里动态的建立的。但是我想在他建立以后有一个动态的连接。我可以在我的代码里编写我label的字体。但是怎么加onclick事件啊？

Answer 1

procedure TForm1.Click(Sender: TObject);
begin
  showmessage('click');
end;procedure TForm1.formShow(Sender: TObject);
begin
  label1.onclick := click;
end;

Answer 2

可以先静态一个label,然后将动态的label调用静态的就可以了，静态的visible=false

Answer 3

var
    lbTemp:tlabel;
begin
    lbTemp := TLabel.Create(Self);
    lbTemp.Parent := Self;
    lbTemp.Top := 10;
    LbTemp.Left :=10;
    lbTemp.Caption:='temp label';
    lbTemp.OnClick := lbClick;
end;procedure TForm1.lbClick(Sender: Tobject);
begin
    MessageDlg('this is the lbTemp''s OnClick Event',mtInformation, [mbOK],0);
end;