| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Смена картинок [D6, WinXP]

Spartak ©   (2004-02-26 18:29:00) 

Народ помогите с такой проблемой. Хочу сделать смену картинок в цикле прекращающимся при нажатии клавиши. Я попробовал что-то вроде этого(См ниже) но на форме вообще ни куда ножать не могу.
function init: integer;
begin
 repeat
   s:=dir+inttostr(k)+'.bmp';
  pic.picture.loadFromFile(s);
  sleep(100);
  s:=dir+'5.bmp';
  pic.picture.loadFromFile(s);
  sleep(100);
 until (Rb1.checked=true) or (RB2.checked=true);
 if rb1.checked=true then init:=1 else init:=0;
end;

---

Zeqfreed   (2004-02-26 19:13:00) [1]

Пожалуйста, я рад что ты поблагодарил хоть, а то все обычно молчат, не поймешь, помогло, не помогло :(

---

Spartak   (2004-02-26 19:09:00) [2]

Большое спасибо

---

Zeqfreed   (2004-02-26 18:44:00) [3]

function init: integer;
begin
repeat
  s:=dir+inttostr(k)+'.bmp';
 pic.picture.loadFromFile(s);
 sleep(100);
 s:=dir+'5.bmp';
 pic.picture.loadFromFile(s);
 sleep(100);
  Application.ProcessMessages;
until (Rb1.checked=true) or (RB2.checked=true);
if rb1.checked=true then init:=1 else init:=0;
end;

А так?

---

Наверх