如何在程序中动态产生对象（如：button等）(50分)

H

hrt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #1

我在程序中成功产生了button，但不能定义其onclick事件请指教。
var
dd:tbutton;
begin
dd:=tbutton.create(self);
dd.parent:=self;
dd.caption:='ok';
dd.top:=120;
dd.left:=100;
dd.width:=30;
end;

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #2

tyourclass=class(tobject)
private
procedure MyClick(Sender:TObject);
end;

tyourclass.MyClick(Sender:TObject);
begin
{....}
end;



var
dd:tbutton;
begin
dd:=tbutton.create(self);
dd.parent:=self;
dd.caption:='ok';
dd.top:=120;
dd.left:=100;
dd.width:=30;
<font color=red>dd.Onclick:=Myclick;</font>
end

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #3

拣分了！！！
定义一个过程
procedure OnClickProc(Sender: TObject);
begin
...
end;

然后
dd.Onclick:=OnClickProc

给分！！！

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #4

沈前卫竟然比我快？！

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #5

wrench:
为什么不能比你快! ^_^

 

X

xinglong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #6

我最慢了。呜……呜…… （谁在哭，不是我了）

 

左

左轻侯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #7

wrench的方法比沈前卫的好
为了处理一个事件，就得自己派生一个类，太过分了吧！

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #8

左轻侯:
Only for example!!!

 

A

aimingoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #9

wrench的方法可能会不能运行！

因为如果方法声明成for object，则必须使用类对象的方法，才能赋给otherObject.onclick.

试试就明白了。

 

J

Jetideas

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #10

wrench的方法似乎行不通
一定要对象方法指针才能赋值给事件，也就说自定义事件方法只能放在类里面。

 

阿

阿蒙

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #11

在窗体类中定义过程就行
type
Tform=class(tform)
procedure OnClickProc(Sender: TObject);
而对应的应为
procedure tform1.OnClickProc(Sender: TObject);

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #12

Jetiteas说的对，昨天一时疏忽
应如阿蒙所言
Sorry

 

H

hrt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #13

接受答案了.