C
charlyisme
Unregistered / Unconfirmed
GUEST, unregistred user!
在一个线程中是否不能showmessage?
这里有一个例子程序，Button1一点击，会有异常出现，什么'Canvas not allow drawing'之类的。
不知道是怎么回事。
……
type
TShowMsgThread = class(TThread)
protected
procedure Execute;override;
end;
implementation
procedure TShowMsgThread.Execute;
var
i:integer;
begin
for i:=1 to 5 do
showmessage('ThisMsg is No.'+inttostr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TShowMsgThread.Create(false) ;
end;
这里有一个例子程序，Button1一点击，会有异常出现，什么'Canvas not allow drawing'之类的。
不知道是怎么回事。
……
type
TShowMsgThread = class(TThread)
protected
procedure Execute;override;
end;
implementation
procedure TShowMsgThread.Execute;
var
i:integer;
begin
for i:=1 to 5 do
showmessage('ThisMsg is No.'+inttostr(i));
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
TShowMsgThread.Create(false) ;
end;