过程中的问题(初学者问题,别嫌简单吆)

Question

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,l:integer;
begin
  screen.Cursor:=crAppStart;
  for i:=0 to 65 do
    for j:=0 to 65 do
      for k:=0 to 65 do
      ;
  screen.Cursor:=crDefault;
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,l:integer;
begin
  Screen.Cursor:=crHourGlass;
  for i:=0 to 65 do
    for j:=0 to 65 do
      for k:=0 to 65 do
      ;
  Screen.Cursor:=crDefault;
end;

Answer 2

我想知道的不仅仅是此问题本身.
比如我有遇到过这种情况:
procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,l:integer;
begin
  Button1.color:=clRed;
  for i:=0 to 65 do
    for j:=0 to 65 do
      for k:=0 to 65 do
      ;
  Button1.color:=clYellow;
end;
而实际上,程序执行时Button1的颜色根本就没有变化.
首先感谢fei1995(飞子)

Answer 3

  Screen.Cursor:=crAppStart;
  Sleep(1000);
  Screen.Cursor:=crDefault;

Answer 4

颜色变不了，是因为这段循环计算机根本只需要很短的时间。
用sleep（timecount）吧。

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
i,j,k,l:integer;
begin
  //Button1.color:=clRed;//编译不通
  Button1.Font.Size := 20;
  Application.ProcessMessages(); 
  for i:=0 to 65 do
    for j:=0 to 65 do
      for k:=0 to 65 do
      ;
 // Button1.color:=clYellow;//编译不通
  Button1.Font.Size := 9;
end;

Answer 6

Application.ProcessMessages(); 
交出控制权，否则系统没有反应，所以不会变化！

Answer 7

BigBen(江南草):但我曾经有一程序的执行时间够长的,但就时变不了呀

Answer 8

wisenowa(无人喝彩)　的答案更好，用函数。
sleep的参数单位为秒，不过不知道准不准，哈。

Answer 9

sleep(),param is milliseconds
记住用try finally end;

Answer 10

设计时设为默认色,程序运行时为clRed,运行结束为clYellow.
但程序运行时没有变为红色,
结束时结果为黄色的.
程序执行的时间时足够长的

Answer 11

改变颜色后需要刷新一下，试试下面的代码：
var
    i:integer;
begin
    Form1.Color:=clRed;
    Form1.Refresh;
    Sleep(10000);
    Form1.Color:=clYellow;
end;

Answer 12

gzmhero(hihihi):能变了!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 13

再看一个:http://www.csdn.net/expert/topic/470/470228.shtm