Скачать: CL | DM;

Смена картинок   Найти похожие ветки 

← →
Spartak ©   (2004-02-26 18:29) [0]

Народ помогите с такой проблемой. Хочу сделать смену картинок в цикле прекращающимся при нажатии клавиши. Я попробовал что-то вроде этого(См ниже) но на форме вообще ни куда ножать не могу.
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 18:44) [1]

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;

А так?

---

← →
Spartak ©   (2004-02-26 19:09) [2]

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

---

← →
Zeqfreed ©   (2004-02-26 19:13) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.037 c