请问如何为动态创建的组件添加click事件？(100分)

P

pnyexin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #1

下面的代码是我动态创建的Label控件，我想为它添加一个click事件，应该怎么做啊？谢谢[?][?]
mylabel:=TLabel.Create(self);
mylabel.Parent :=FlatPanel1;
mylabel.Caption :=inttostr(i);
mylabel.Alignment :=taCenter;
mylabel.Width :=84;
image.Height :=64;
mylabel.Height :=20;

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #2

定义一个过程，如：
procedure MyLabelClick(Sender :TObject);

然后
mylabel..OnClick:=MyLabelClick;

 

A

antic_ant

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #3

procedure clicklabel(sender: tobject);
begin
shellexecute(application.MainForm.Handle, nil, 'www.mofit.com', nil, nil, sw_show);
end;

在你的代码里面加上
mylabel.onclick:=clicklabel;
就可以了

 

D

desertsmoke

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #4

首先编写一个过程，用来处理OnClick时的处理过程
Procedure LabelOnClick();
begin
showmessage('okok!');
end;

然后在你上面的代码中添加一行：
mylabel.onclick := LabelOnClick;
即可

 

X

xjc_first

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #5

同意樓上.

 

雪

雪中漫步

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-22

• #6

我做的一般都在定义的过程中加上
with sender as tlabel do
begin
...
end;
其他的他们都说了

 

H

HeyTommy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-02

• #7

这么基本的还要问？我刚才看到好几个没人回答的简单问题，我都耐着性子回答了，
伙计们，如果要快速提高自己的水平，自己先多思考，多实践要有用得多哦！