Смена изображений через определенное время

[Sciv]

Все работает, какие проблемы?

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Count: integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Interval:=100;
  Timer1.Enabled:=true;
  Count:=1;
  Image1.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+'\coleso'+IntToStr(Count)+'.bmp');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(Count);
  if Count>8 then Count:=1;
  Image1.Picture.LoadFromFile(ExtractFileDir(Application.ExeName)+'\coleso'+IntToStr(Count)+'.bmp');
end;

end.

Код не Ваш, сам накатал только что на Дельфи 7, юзая Ваши картинки (правда, пришлось в bmp перегонять).

[N.i.k.o.l.a.y.]

Меня любые советы устроят...)) А как по другому? Ну и главное как сделать что бы заработало?)

Программа зпускается, но при нажатии кнопки выдает ошибку...

[Volkogriz]

Вот помойму то что нужна)
Слепил))

unit Unit1;

interface

uses
  Windows, Messages, SysUtils,pngimage, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  png: array[1..8]of TPNGObject;
  i: integer;
  
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Form1.Color:= clWhite;
  form1.TransparentColor:=true://Форма не видна
  Form1.TransparentColorValue:= clWhite;
  for i:=1 to 8 do
  begin
    png[i]:=TPNGObject.Create;
    png[i].LoadFromFile(extractfilepath(Application.ExeName)+'coleso\coleso'+inttostr(i)+'.png');
  end;
  i:=1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  form1.Canvas.Draw(0,0,png[i]);
  FreeAndNil(png);
  form1.DoubleBuffered := True;
  inc(i);
  if i=9 then
    i:=1;
  case i of
    1..8: form1.Timer1.Interval:=50;
//    5..8: form1.Timer1.Interval:=100;
  end;
end;


end.

Я понял так что файлы, формата png
С уважением,
Volkogriz!

[ReportCube]

Нет освобождения созданных объектов. Нет отрисовки формы стандартной, между циклами таймера.

[N.i.k.o.l.a.y.]

У меня все равно ни че не работает(( Теперь даже не компилируется и выдает кучу ошибок(( я вообще не знаю че делать... простите школоту за назойливость... но мне все также нужна помощь..

[Volkogriz]

Выложил проект в delphi 7
Ваш проект не открылся у меня, помойму вам надо:
Удалить и переустановить вашу delphi
У вас delphi хе помойму, вот и не пашут наши примеры

[N.i.k.o.l.a.y.]

Завтра по пробую с другого компа зайти, там 7 delphi. Тогда посмотрю)

[Volkogriz]

Так это факт) проверенно и не раз!

[ReportCube]

Посмотрите на адреса файлов картинок, которые должны быть прочитаны. Они должны лежать в определённом месте, а у вас они лежат не там, где их пытаются читать. В коде десяток строк - прочитайте внимательно, подгонять проект под ваши адреса не есть правильно...

[Volkogriz]

unit Unit1;


interface

uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons,
Vcl.Imaging.jpeg, Vcl.ExtCtrls, Vcl.Imaging.pngimage;

type
TForm1 = class(TForm)
BitBtn2: TBitBtn;
Image1: TImage;
avto: TImage;
Button1: TButton;
Timer1: TTimer;
Button2: TButton;
Image2: TImage;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1; i:integer;

implementation

{$R *.dfm}




procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=False;
if TTimer(Sender).tag=3 then TTimer(Sender).tag:=1
else TTimer(Sender).tag:=TTimer(Sender). tag+1;
//Здесь я не пойму и всё
image2.Picture.loadfromfile('C:\Use rs\Пользователь\Desktop\Курсач\карт инки\колеса\coleso'+IntToStr(TTimer (Sender).tag)+'1.bmp');
//можно же так //extractfilepath(Application.ExeName )+'\coleso'+IntToStr(TTimer(Sender) .tag)+'1.bmp');
//или так 'coleso/coleso'+IntToStr(TTimer(Sender).tag )+'1.bmp';
end;

end.