两个问题都不难但我不会

[delfans]

1、我在form里有一个Label1控件，我在搜索目录时不断变换Label1.Caption的内容好让它显示我正在搜索的目录，可执行时它根本不变，直到最后才显示出最后搜索的目录，为何？怎么解决？

2、一个ProgressBar控件，指定其Min和Max后，在程序中变化其Position，但运行时看不到变化。

[ghz2000]

Label1.Caption
改变问题我可能要看你的源码才知道怎么回事？
大概估计你可能是将Label1.Caption:=***写在 do while的外面了
呵呵！

[C_Sharp]

1.加句Label1.Refresh看看。

2。你写了StepIt吗？

[colacoca]

要转让控制权,在循环前加上
Application.ProcessMessages;
即可

[colacoca]

要转让控制权,在循环前加上
Application.ProcessMessages;
即可,给分吧

[xclxd]

同意colacoca。

[hlfsoft]

label.refresh和application.processmessages都可以

[delfans]

源码是这样：
proBar.min:=0;
proBar.max:=high(DirList);
proBar.position:=0;

for i:=0 to high(DirList) do
begin
proBar.Position:=i;
Label1.Caption:='正在查找'+DirList[i]+'...';
end;

[ghz2000]

proBar.min:=0;
proBar.max:=high(DirList);
proBar.position:=0;

for i:=0 to high(DirList) do
begin
proBar.Position:=i;
proBar.update;
Label1.Caption:='正在查找'+DirList[i]+'...';
end;

[colacoca]

你可以改为这样,一定行的:
proBar.min:=0;
proBar.max:=high(DirList);
proBar.position:=0;

//*****
Application.ProcessMessages; //只添加此句即可
//*****

for i:=0 to high(DirList) do
begin
proBar.Position:=i;
Label1.Caption:='正在查找'+DirList[i]+'...';
end;

[colacoca]

而且你可以把:
Label1.Caption:='正在查找'+DirList[i]+'...';
改为:
Label1.Caption:='正在查找'+DirList[i]+StringOfChar('.',Mod(i,3)+1);
这样就可以让后面的点由一个到三个循环变化


不知道你的high(DirList)大不大,如果代码执行的太快,就可以在Label.Caption前加上
Sleep(200);
用于延迟200毫秒

[nisky]

如果你是在一个循环中的话，他不会变的，因为眼睛来不及看。

[colacoca]

不要意思,打错了,应该是:
Label1.Caption:='正在查找'+DirList[i]+StringOfChar('.',(i mod 3)+1);

[zy61]

你的查找部分在哪里

[zy61]

我是说你查找目录的那段程序写在什么地方

[delfans]

我试了一下，用label1.refresh就可以，
但用Application.ProcessMessages;还是没效果哦

另外，我想在搜索时可以单击一个button来停止搜索，但现在一开始搜索后form里的所有button都不接受点击了怎么办？

[C_Sharp]

新建线程来搜索。

[C_Sharp]

或者，在搜索里加上Application.ProcessMessages;就可以处理另外的消息了。

[delfans]

to C_Sharp:

>>或者，在搜索里加上Application.ProcessMessages;就可以处理另外的消息了。

应该加在什么位置呢？

[C_Sharp]

循环里

[stella53]

循环中加一句：
Label1.Update；
就OK了，我做过，没有问题。。。