在多线程程序里面设了一个对象，我想在该对象的方法里写点东东，怎样做啊？ ( 积分: 100 )

W

willyxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-25

• #1

举一个例子：
在多线程的程序里，实例了一个Form1:=TForm,我想在form1的onActive方法中写段代码，怎么做啊？

 

W

willyxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-25

• #2

举一个例子：
在多线程的程序里，实例了一个Form1:=TForm,我想在form1的onActive方法中写段代码，怎么做啊？

 

D

dongy_143

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-28

• #3

procedure TForm1.FormActivate(Sender: TObject);
begin
//写你的代码，这样有问题么？
end;

 

J

jianshangcao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-29

• #4

同意楼上!!

 

H

hbk777

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-05-30

• #5

可以 这样 做 ,,
procedure myOnActive(Sender:Tobject)
begin
... 这里 是 事件内 处理代码 ...
end;
使用 时 ,, Form1.OnActive= myOnActive;
就可以了,
程序 在 执行 时 就 会 自动 调用 这个自定义的事件 了..