|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
02.12.2007, 10:00 | #1 |
Регистрация: 02.12.2007
Сообщений: 6
|
Слайдшоу
подскажите пожалуйста почему не работает
procedure TForm1.Button4Click(Sender: TObject); var i:integer; n:integer;a:integer; begin Timer1.Enabled:=True; i:=1; Timer1.Interval:= i;//устанавливаем интервал на таймер n:= ListBox1.Items.Count; a:=0; Image1.Picture.LoadFromFile(ListBox 1.Items.Strings[a]); a:=a+1; end; |
02.12.2007, 10:55 | #2 |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Код:
поставьте i:=3000; Это в таймере: перерисовку окна не помешает сделать form1.repaint; и обработку внешних соообщений (чтоб не подвисало) application.processmessage; (по памяти пишу, возможно чуть по другому пишется). |
02.12.2007, 13:00 | #3 |
Регистрация: 02.12.2007
Сообщений: 6
|
Последовала вашему совету, но рисунки все равно не сменяют друг друга. Отображается первый рисунок и начинает мигать через некоторое время, которое указано в таймере=(
|
02.12.2007, 13:03 | #4 |
Старожил
Регистрация: 13.12.2006
Сообщений: 3,859
|
обработчик таймера покажи
ICQ не для вопросов, а для предложений. Для вопросов используйте форум
IRC канал клуба программистов|Мои статьи |
02.12.2007, 13:09 | #5 |
Регистрация: 02.12.2007
Сообщений: 6
|
procedure TForm1.Timer1Timer(Sender: TObject);
begin Form1.Repaint; Application.ProcessMessages; end; |
02.12.2007, 13:28 | #6 |
With best regards
Участник клуба
Регистрация: 20.04.2007
Сообщений: 1,448
|
Переменные делаем глобальными
Код:
Life is too short, play more...
Как правильно задавать вопросы Последний раз редактировалось Alex21; 02.12.2007 в 14:12. |
02.12.2007, 13:37 | #7 |
Регистрация: 02.12.2007
Сообщений: 6
|
Спасибо огромное=)
все же есть еще в нашем мире добрые люди... |