Смена картинок

← →
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]

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

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

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