W
wanglonga
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.Button1Click(Sender: TObject);
begin
load_p2p.Create(false);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('dddd');
end;
我的多线程代码是：
procedure load_p2p.Execute;
begin
form1.Button2.Click;
end;
执行之后说：canvasdo
es not allow drawing.
begin
load_p2p.Create(false);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
showmessage('dddd');
end;
我的多线程代码是：
procedure load_p2p.Execute;
begin
form1.Button2.Click;
end;
执行之后说：canvasdo
es not allow drawing.