OpuBF,有请(0分)

N

netbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #1

我按您的说法去做，就是关于动态建立的控件后，它的事件的问题，还是不行。请问我该如何做？谢谢。

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #2

呵呵,你是新浪的那个<b>nbu98</b>吗? 哪个问题?

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #3

看到那个问题了,他们说的没错啊! 你是怎么写的,把代码贴出来.
你的出错信息又是什么?

BTW: OpuBF是谁? 没见到叫这个名字的.

 

N

netbug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #4

我是这样写的：
procedure MyBtnClick(Sender : TObject);
begin
.......
end;
然后:
var Abutton:TButton;
procedure button1click(Sender : TObject);
begin
Abutton:=TButton.Create(Self)

AButton.Parent:=Self
{************************}

{************************}
ABtuuon.OnClick = MyBtnClick
end;

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #5

首先,把
procedure MyBtnClick(Sender:TObject);
放到form的定义里面去,比如public或private部分

然后,在implementation部分,这样写
procedure <b>TForm1.</b>MyBtnClick(Sender:TObject);
注意,因为MyBtnClick现在是form的成员函数,所以要加<b>TForm1.</b>

当然,procedure button1click(Sender : TObject);也应该写成:
procedure <b>TForm1.</b>button1click(Sender : TObject);

最后,ABtuuon.OnClick -> AButton.OnClick (是笔误?)

 

W

wrench

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #6

to cAkk:
OpuBF是个新人，是我的同学，是被我拉进大富翁的

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-23

• #7

To cAKK:我见过OpuBF

http://www.gislab.ecnu.edu.cn/delphibbs/Dispuser.asp?UserName=OpuBF

 

W

wjiachun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-23

• #8

接受答案了.