我为什么不能在dll中开辟新线程

[hstod]

{ 声明 }
type
Thread = Class(TThread)
private
Procedure Execute;Override;
end;
...
procedure Thread.Execute;
Var
i:integer;
begin
inherited;
ShowMessage('b');
for i:=0 to 10000 do
form3.memo1.lines.add(inttostr(i));
end;
...
procedure TForm3.Button1Click(Sender: TObject);
begin
Thread.Create(false);
end;
请问高手我什么地放错了
同样的代码在exe中执行无误

[sunhuiNO1]

ShowMessage('b');在线程中要挂掉，在那都不能用的！！！

[wxjh]

受不了了，你在线程中能在.execute中直接访问vcl。厉害，厉害~~呵呵

[wxjh]

type
Thread = Class(TThread)
private
Procedure Execute;Override;
end;
...
procedure Thread.Execute;
Var
i:integer;
begin
inherited;
Synchronize(ssss);
end;
procedure TForm3.Button1Click(Sender: TObject);
begin
Thread.Create(false);
end;
procedure ssss;
var
i:integer;
begin

for i:=0 to 10000 do
form3.memo1.lines.add(inttostr(i));

end;

[醉马不肖]

type
Thread = Class(TThread)
private
Procedure Execute;Override;
end;
...
procedure Thread.Execute;
Var
i:integer;
begin
inherited;
ShowMessage('b');
for i:=0 to 10000 do
form3.memo1.lines.add(inttostr(i));----------------,这是那来的.
end;
...
procedure TForm3.Button1Click(Sender: TObject);
begin
Thread.Create(false);
end;

[yansea]

不是说在dll中吗……

[hstod]

procedure Thread.Execute;
Var
i:integer;
begin
inherited;
for i:=0 to 10000 do
form3.memo1.lines.add(inttostr(i));
end;
是要改成这种吗？？
不过这种我也试过了 不行呀！！ 帮帮忙吧

[hstod]

form3是个窗体
是的 在dll内有个窗体
怎么了??不可以吗？？

[milpas]

不好意思，我拿上面的代码改一下

type
Thread = Class(TThread)
private
Procedure Execute;Override;
end;

Var
i:integer;
...
procedure Thread.Execute;
begin
inherited;
for i:=0 to 10000 do
Synchronize(ssss);
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Thread.Create(false);
end;

procedure ssss;
begin
form3.memo1.lines.add(inttostr(i));
end;

[qiume]

Thank you very much,I am learing.