各位師兄請教了,動態創建一個Form1,如何寫一個它的動態事件呢?怎樣來釋放它呢?(35分)

C

chenhaobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #1

請寫出簡單代碼阿!

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #2

先写好方法，动态给事件属性赋值

 

小

小師妹

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-14

• #3

form1.onclick := yourProcedure 阿

 

C

chenhaobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #4

難道就沒有人愿意回答這個簡單的問題嗎?大富翁里的人才都干什么啦?
分數是不是太少了,以后我可以加給你啊!
可是每天我才加5分!35分可是我一周的口糧啊!555~~~~~~~~~~~

 

A

ahxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #5

procedure myProc(sender: TObject);
begin
MessageBeep(0);
end;

.....

myForm := TForm1.create(...);
myForm.OnShow := myProc;
myForm.show;

就是这个意思，只是参数要正确就可以了。楼上的“小師妹”已经讲的很明确了

 

A

ahxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-15

• #6

忘记释放了，
myForm.OnShow := nil; 就可以。但是好像没有必要

 

C

chenhaobo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-16

• #7

凡參與者均有獎勵!