请问如何让程序在制定的点,停止一秒在执行.

Question

请问如何让程序在制定的点,停止一秒在执行.

Answer 1

在要停止的地方调用seelp(1000);

Answer 2

在程序的要停止的地方  delay(1000)

Answer 3

同志们:经过测试win2000中可以,98中无效
 image1.Visible:=false;
 sleep(1000);
 image1.Visible:=true;delay(1000);好像不行;

Answer 4

放个TIMER来搞定,在TIMER的ONTIMER事件中写
if image1.visible:=false then
begin
 image1.Visible:=true;
 timer1.enable:=false;
end;
.......手头没有DELPHI不写了，就这样肯定行！呵呵。

Answer 5

如果你这个程序是多线程的
你要：
首先锁定线程
然后sleep
最后解锁线程

Answer 6

同志们sleep()好像是作用于整个函数之间(同层函数),对于代码之间好像无效?

Answer 7

对sleep(1000)就完全可以了。具体的参数说明可以查看 delphi的帮助文件

Answer 8

谁能解决这个问题
我想大家一定能看懂,但程序的效果是当点击按钮时,先听五秒,再发声,最后显示2.jpg,为何总是跳过1.jpg.
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   image1.Picture.LoadFromFile('1.jpg');
   sleep(5000);
   playsound('sound/go.wav',hInstance,SND_FILENAME or SND_SYNC);
   image1.Picture.LoadFromFile('2.jpg');end;
这个少了一段,但图片是最后显示的.(先停五秒,再发生....)
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   image1.Picture.LoadFromFile('1.jpg');
   sleep(5000);
   playsound('sound/go.wav',hInstance,SND_FILENAME or SND_SYNC);
end;
如何显示1.jpg,五秒后再显示2.jpg呢??