Проблема с движением 2D человека.

[FomAW]

Написал программу передвижения человека по экрану, периодически меняя картинку, создавая эффект движения. Для всех трех картинок использовал компонент TImage. При однократном нажатии на клавишу d человек передвигается по экрану отлично т.е. все три картинки меняются в нужной последовательности! Но если её удерживать, появляются только две картинки из трех. В программировании новичек. Но очень хочу разобраться с этим! Может подскажите, что делать?

[s-andriano]

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

Может подскажите, что делать?

Самое первое - учиться правильно в письменном виде формулировать свои мысли.
Поверьте, не важно, на русском пишет человек или на Delphi - это умение одинаково важно.
"все нормально" - это как?
"идет с ошибками" - а это?

[nuberod]

юнит 2 пас найти не может

[Rin]

for nuberod
Просто путь к Unit2.pas прописан как "Unit2 in '...\Man-Two scrin\Unit2.pas' {Form2};"
Вот поэтому и не может найти.
for FomAW
А зачем вам 3 таймера и 2 имайджа?
Тут можно обойтись нажатием кнопок и наложением с помощью BitBlt.
Картинку взял отсюда.
Вот пример:

[FomAW]

Rin Спасибо! Но как я уже говорил в программировании я новичек. Не могли бы вы немного по подробнее объяснить мне об этих функциях?

[Rin]

В переменную BM:TBitMap загружается картинка. TBitMap по сути растр, и в него можно грузить картинки bmp формата.
Сначала для переменной BM нужно выделить память. Это делается
строкой

BM:=TBitMap.Create;

Далее нужно загрузить в нее картинку. Это делается строкой

BM.LoadFromFile('путь и имя файла с расширением');

Правда, нужно было ещё добавить структуру "try finally". Почитайте про нее ТУТ.

Строка

if key=39 then

говорит о том, что если нажали "стрелка вправо, то"
39- её код в ASCII. Если интересны другие коды клавиш, то об этом можно почитать ТУТ
Теперь мы должны взять определенную область с нашей картинки.
За это отвечает строка

BitBlt(Form1.Canvas.Handle,0,0,107,136,
BM.Canvas.Handle,kadrx*107,Kadry*136,SRCCOPY)

Эта функция копирует (если последний параметр равен SRCCOPY) растровую область из источника в приемник. Она может не просто копировать, но и инвертировать цвета, копировать маски, но должны стоять другие значения.
Параметры этой функции:
1) дескриптор приемника ([b]Handle[\b]) типа HDC;
2) координата Х левого верхнего угла области, в которую копируем;
3) тоже самое, только для Y;
4) размер области приемника по Х;
5) размер области приемника по Y;
6) дескриптор источника ([b]Handle[\b]) типа HDC;
7) координата Х левого верхнего угла области, из которой копируем;
8) тоже самое, только для Y;
9) код растровой операции.
Про другие коды растровых операций можно почитать здесь или
здесь

Ну, и при закрытии программы нужно освободить память, выделенную под нашу картинку.
Это делает строка

BM.Free

[FomAW]

for Rin
Спасибо! Очень помогли.