牛
牛龙
Unregistered / Unconfirmed
GUEST, unregistred user!
Please help me!
这是一个与线程有关的问题
以下是我的程序
unit1:
unit1
uses classes,uni3;
...
Tabc=class(TThread);
...
procedure Tabc.execute;
var
~~~~~
form3:Tform3;
~~~~~~~~~~~~~~
begin
form3:=Tform3.create(form3);
form3.showmodal;
end;
end.
unit3 是Tform3的单元.
但是一运行就在 'form3.showmodal;'的地方出错.后来我作了如下改动
就好了:
将 form3 定义为 Tabc的一个域.
代码如下:
unit1:
unit1
uses classes,uni3;
...
Tabc=class(TThread);
protect:
form3:Tform3;
~~~~~~~~~~~~~~
...
procedure Tabc.execute;
begin
form3:=Tform3.create(form3);
form3.showmodal;
end;
end.
我不知道这是因为什么原因,有谁能给我解答一下.谢谢
这是一个与线程有关的问题
以下是我的程序
unit1:
unit1
uses classes,uni3;
...
Tabc=class(TThread);
...
procedure Tabc.execute;
var
~~~~~
form3:Tform3;
~~~~~~~~~~~~~~
begin
form3:=Tform3.create(form3);
form3.showmodal;
end;
end.
unit3 是Tform3的单元.
但是一运行就在 'form3.showmodal;'的地方出错.后来我作了如下改动
就好了:
将 form3 定义为 Tabc的一个域.
代码如下:
unit1:
unit1
uses classes,uni3;
...
Tabc=class(TThread);
protect:
form3:Tform3;
~~~~~~~~~~~~~~
...
procedure Tabc.execute;
begin
form3:=Tform3.create(form3);
form3.showmodal;
end;
end.
我不知道这是因为什么原因,有谁能给我解答一下.谢谢