Так. Расставим все по местам.
Если нужно, чтобы флаг ездил по форме - то надо чистить и рисовать флаг.
Если это делать через TImage - то нужно один раз (например при старте формы) нарисовать на TImage картинку и двигать TImage. Чистить ничего не надо.
Если нужно, чтобы флаг ездил по экрану - то нужно один раз (например при старте формы) нарисовать на TImage картинку, и потом двигать форму. Чистить ничего не надо.
Это три разных случая. Если второй или третий, то надо взять код, приведенный мной выше, и везде X и Y заменить на 0. Это будет отрисовка флага на TImage.
Если третий случай, то по событию таймера (которое создается двойным кликом на компоненте TTimer) написать код для перемещения формы.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
|