procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
begin for i:=1 to 10 do begin
label1.Caption :=intToStr(i);
application.ProcessMessages;
sleep(100);
//form1.Refresh;
end;end;
var
i: integer;
begin for i:=1 to 10 do begin
label1.Caption :=intToStr(i);
application.ProcessMessages;
sleep(100);
//form1.Refresh;
end;end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货