Показать сообщение отдельно
  #3  
Старый 05.09.2017, 14:44
Terran_Star Terran_Star вне форума
Прохожий
 
Регистрация: 02.09.2017
Сообщения: 9
Версия Delphi: Lazarus
Репутация: 10
По умолчанию

NumLock
Да, Вы правы, ListView не для этого.
Изменил задачу.
Есть ImageList1, в который загружено 6 картинок. Есть поле Image1. Требуется по нажатию Image1 перебирать изображения из ImageList1 поочерёдно.
Пишу вот так:
Код:
procedure TForm1.Image1Click(Sender: TObject);
var i: integer;
begin
  for i:= 0 to 5 do
  Imagelist1.GetBitmap(i, Image1.Picture.Bitmap);
end;

Что-то не работает. Отображает только 6-ю картинку и всё.
Ответить с цитированием