Показать сообщение отдельно
  #11  
Старый 02.05.2011, 01:33
Аватар для Bargest
Bargest Bargest вне форума
Профессионал
 
Регистрация: 19.10.2010
Адрес: Москва
Сообщения: 2,390
Версия Delphi: XE3/VS12/FASM
Репутация: 14665
По умолчанию

Так. Расставим все по местам.
Если нужно, чтобы флаг ездил по форме - то надо чистить и рисовать флаг.
Если это делать через TImage - то нужно один раз (например при старте формы) нарисовать на TImage картинку и двигать TImage. Чистить ничего не надо.
Если нужно, чтобы флаг ездил по экрану - то нужно один раз (например при старте формы) нарисовать на TImage картинку, и потом двигать форму. Чистить ничего не надо.

Это три разных случая. Если второй или третий, то надо взять код, приведенный мной выше, и везде X и Y заменить на 0. Это будет отрисовка флага на TImage.

Если третий случай, то по событию таймера (которое создается двойным кликом на компоненте TTimer) написать код для перемещения формы.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
Ответить с цитированием