VPF::Обработка событий при непрерывном цикле

DelphianOracle

Дата 4.10.2007, 18:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 20.5.2007

Репутация: нет
Всего: нет

Доброго всем времени суток!
Есть вопрос.
Я использую для движения спрайта следуйщий код:

Код


   while true do
   begin
      dx:=round(Speed*(now-oldTm)*secsperday);
      dx:=round(Speed*(now-oldTm)*secsperday);
      oldTm:=now;
      X:=X+dx;
      Y:=Y+dy;
      with form1 do
      begin
         Buffer.Canvas.CopyRect(rect(0,0,screen.Width,screen.Height),
                        fon.Canvas,rect(0,0,screen.Width,screen.Height));
         Buffer.Canvas.Draw(x,10,leftDuck.Picture.Graphic);
         FScreen.Canvas.CopyRect(rect(0,0,screen.Width,screen.Height),
                        Buffer.Canvas,rect(0,0,screen.Width,screen.Height));
      end;
      application.ProcessMessages;
      sleep(1);
   end;

но, к величайшему моему сожалению, при этом никакие события не проходят. Приходится делать Program reset. Что делать?

Alexeis

Дата 4.10.2007, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

DelphianOracle, рисовать следует в OnPaint.

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

DelphianOracle

Дата 4.10.2007, 20:21 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 20.5.2007

Репутация: нет
Всего: нет

>DelphianOracle, рисовать следует в OnPaint.
FScreen - и есть OnPaint

Alexeis

Дата 4.10.2007, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

FScreen - это объект, а OnPaint это обработчик предназначенный для отрисовки.

--------------------

DelphianOracle

Дата 5.10.2007, 19:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 69
Регистрация: 20.5.2007

Репутация: нет
Всего: нет

Пробовал, не помогает.
Поставил вместо цикла таймер с минимальным интервалом, заработало.

Alexeis

Дата 5.10.2007, 19:47 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 34
Всего: 459

DelphianOracle, так в таймере нужно было вызывать Invalidate, а рисовать в OnPaint.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »