P
peterwang
Unregistered / Unconfirmed
GUEST, unregistred user!
我在form上放一个label,一个programbar,一个button，希望在按下
button时，label先显示一行字，然后programbar再前进，但如下代码
的结果是：programbar完了以后，label才显示，真怪！
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
label1.Caption:='show some information!';
i:=0;
while i<=100do
begin
i=i+1;
end;
end;
button时，label先显示一行字，然后programbar再前进，但如下代码
的结果是：programbar完了以后，label才显示，真怪！
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
label1.Caption:='show some information!';
i:=0;
while i<=100do
begin
i=i+1;
end;
end;