image create, timer create

[Matze]

Hi

Delphi-Quellcode:

var
  myImage: TImage;
  myTimer: TTimer;

  // ...

  // Image erstellen
  myImage := TImage.Create(Application.MainForm);
  myImage.Parent := Form1;
  myImage.Left := 0;
  // ...
  myImage.Picture.LoadFromFile('c:\abc.bmp');

  // Timer erstellen;
  myTimer := TTimer.Create;
  myTimer.Interval := 1000;

Damit der Timer auch diverse Events besitzt, musst du diese natürlich auch zuweisen:

Delphi-Quellcode:

procedure TForm1.myTimerTimer(Sender: TObject);
begin
  // ...
end;

// ...

myTimer.OnTimer := myTimerTimer;

Alles ungetestet.



Nachtrag: Evtl. reicht es dir auch, wenn du diese Komponenten einfach auf's Formular ziehst.