Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Общие вопросы > Примитивная анимация


Автор: drinkOut 9.3.2005, 21:03
smile
Код

procedure TMainForm.tmAnimateTimer(Sender: TObject);
begin
  Inc(slideIndex);
  if slideIndex > ImageList.Count then slideIndex := 0;
  ImageList.GetBitmap(slideIndex, Image.Picture.Bitmap);
  SendMessage(Image.Picture.Bitmap.Handle, WM_PAINT, 0, 0);
end;

Вот вроде бы всё правильно сделал, а изображение в Image не анимируется. smile
Помогите, пожалуйста, разобраться...

Автор: SPrograMMer 9.3.2005, 21:50
У тебя таймер на сколько Interval стоит, до и еще проверь, как там свойство Enabled чувствует, у него же

Автор: ~FoX~ 10.3.2005, 09:18
А я бы использовал функцию BitBlt.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)