Непрерывное движение Image

[Andreyqw]

Здравствуйте. Нужна помощь. Есть одна картинка. Необходимо, чтобы она двигалась (желательно именно по диагонали) по всей форме до границ. При этом, дойдя до границ, она должна, как бы, оттолкнуться от нее (выходит, что угол должен быть 90 градусов) и продолжить путь. При нажатии на нее, она должна исчезнуть и появится в случайном месте и продолжать так же двигаться. И так бесконечно. Завершение программы: красный крестик вверху.

[ResourceSpace]

По таймеру менять координаты. Несколько переменных-флагов куда двигаться - лево/право/верх/низ. Сравнивать положение картинки её размеров и размеры клиентской области.

[Andreyqw]

Спасибо, уже разобрался. Но возник такой вопрос: как сделать автоматическую смену картинок? Имеется Image и ImageList. Необходимо, чтобы при нажатии на Image происходила смена картинок. Нажать нужно только ОДИН раз. Смена проходит автоматически. При достижение последней картинки, появляется Image и при следующем клике снова все повторяется.
Думаю делается это через Timer, но не пойму как

[ResourceSpace]

Можно в том же таймере. Можно во втором, смотря с какой скоростью двигается и меняется. Переменная "номер текущего кадра". При нажатии сбрасываем её в ноль и включаем второй таймер. А в таймере смена кадра на тот который в переменной и увеличение переменной. Если она стала больше чем есть кадров - таймер сам себя выключает.

[Andreyqw]

Сообщение от ResourceSpace

Можно в том же таймере. Можно во втором, смотря с какой скоростью двигается и меняется. Переменная "номер текущего кадра". При нажатии сбрасываем её в ноль и включаем второй таймер. А в таймере смена кадра на тот который в переменной и увеличение переменной. Если она стала больше чем есть кадров - таймер сам себя выключает.

Спасибо. А вы не могли бы написать сам код? А то я не совсем понял, как это записать

[Stilet]

Навскидку:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 if Image1.Tag<ImageList1.Count then Image1.Tag:=Image1.Tag+1
 else Image1.Tag:=0;
 ImageList1.Draw(Image1.Canvas,0,0,Image1.Tag);
end;

Не проверял, ибо не работаю с этими компонентами давненько.