03.05.2010, 14:45
|
|
Постоянный
Регистрация: 02.07.2008
Сообщений: 472
Провел на форуме:
3728999
Репутация:
444
|
|
хотел сделать такое:
при нажатии на кнопку появляется картинка(анимация), идёт задержка sleep и картинка снова пропадает, но столкнулся с такой проблемой что анимация не проигрывается во время задержки. подскажите как это исправить.
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Visible:=true;
Application.ProcessMessages;
sleep(1000);
Image1.Visible:=false;
end;
|
|
|