Цикл

← →
Opera © (2003-09-22 01:04) [0]

Помогите как сделать вот это циклом?
сначала
NewImageList1.GetBitMap(0,Image16.Picture.BitMap);
потом
NewImageList1.GetBitMap(1,Image16.Picture.BitMap);
потом
NewImageList1.GetBitMap(2,Image16.Picture.BitMap);
потом
NewImageList1.GetBitMap(3,Image16.Picture.BitMap);
И чтобы разница была 10 секунд так можно?

← →
konstantinov © (2003-09-22 01:34) [1]

For I := 0 to 3 do
begin
NewImageList1.GetBitMap(I,Image16.Picture.BitMap);
Application.ProcessMessages;//Хотя, может быть и не надо!?
Sleep(10000); //Задержка в милисекундах
end;

← →
Opera © (2003-09-22 03:04) [2]

А как сделать Image16 изменяемым? Чтобы по нажатию на Button17 картинки изменяльсь в Image17?
Тоесть:
begin
For i := 0 to 3 do
begin
NewImageList1.GetBitMap(i, Image17.Picture.BitMap);
Application.ProcessMessages;
Sleep(5000);
end;

← →
ЮЮ © (2003-09-22 06:36) [3]

var image: Timage;

image:= TImage(FindComponen("Image" + Copy(TButton(Sender).Name, 6, 2));
if image= nil then exit;
...
NewImageList1.GetBitMap(i, image.Picture.BitMap);

Sender as TImage.Picture.BitMap

Точно точно. Лучше стараться избегать обращения по имени... А Sleep(Interval) вообще завесит выполнение программы на время Interval. Представляешь, на 10 сек ты ничего не сможешь с ней сделать, ни мышкой кликнуть, не обновить, ничего. Неприятное зрелище. Используй таймер чтоли...

Цикл Найти похожие ветки