难道要用双线程?delphi

来源:百度知道 编辑:UC知道 时间:2024/06/19 18:31:44
我用delphi写了一个小程序,Form1.Button1,Button2,Edit1.

procedure TForm1.Button1Click(Sender: TObject);
var
i:longint;
begin
for i:=1 to 1000000000 do
edit1.Text:='3';
end;
程序出现停止响应.如果用双线程,应该怎么操作?我是菜鸟,希望得到详细解答.谢谢!

procedure TForm1.Button1Click(Sender: TObject);
var
i:longint;
begin
for i:=1 to 1000000000 do
begin
application.ProcessMessages;//长循环里加一句这,就好多了。
edit1.Text:='3';
end;
end;