Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
ВнизЦикл Найти похожие ветки
← →
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);
← →
Anatoly Podgoretsky (2003-09-22 08:51) [4]Sender as TImage.Picture.BitMap
← →
NAlexey (2003-09-22 09:32) [5]Точно точно. Лучше стараться избегать обращения по имени... А Sleep(Interval) вообще завесит выполнение программы на время Interval. Представляешь, на 10 сек ты ничего не сможешь с ней сделать, ни мышкой кликнуть, не обновить, ничего. Неприятное зрелище. Используй таймер чтоли...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.10.02;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c