frem og tilbage

Du kan vel bruge en timer og under dens procedure skrive
Image1.Left := Image1.Left + 10;

Dog bliver det ikke særligt dynamisk.

den skal jo også den anden vej igen... det er det jeg ikke kan få til at virke. det er lige meget om det bliver dynamisk, den skal bare frem og tilbage...

Så indsætter du to timere.

Proceduren under timer1:
if Image1.Left < Form1.ClientWidth then
Image1.Left := Image1.Left + 10
else
begin
Timer2.Enabled := True;
Timer1.Enabled := False;
end;

Timer2:
if Image1.Left > 1 then
Image1.Left := Image1.Left - 10
else
begin
Timer1.Enabled := True;
Timer2.Enabled := False;
end;

Forstår du idéen i det?

jeg kan godt forstå det men.... når jeg laver det kommer den med denne fejl

[Error] Unit1.pas(39): Statement expected but 'PROCEDURE' found

koden er:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if Image1.Left > 1 then
Image1.Left := Image1.Left - 10
else
begin
Timer1.Enabled := True;
Timer2.Enabled := False;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Image1.Left < Form1.ClientWidth then
Image1.Left := Image1.Left + 10
else
begin
Timer2.Enabled := True;
Timer1.Enabled := False;
end;

end.

hvad er der galt med den?

.....

implementation

{$R *.dfm}

procedure TForm1.Timer2Timer(Sender: TObject);
begin
  if Image1.Left > 1 then
Image1.Left := Image1.Left - 10
else
begin
Timer1.Enabled := True;
Timer2.Enabled := False;
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Image1.Left < Form1.ClientWidth then
Image1.Left := Image1.Left + 10
else
begin
Timer2.Enabled := True;
Timer1.Enabled := False;
end;
end;

end.

du manglede lige et par end;

den skifter stadig ikke retning...

nu har jeg fået det til at virke..
hvordan flytter man så flere billeder på een gang uden at skulle skrive hele koden hver gang?

ligemeget.... men du skal lige svare for at få point..

okay, håber du kunne bruge det til bare lidt. tak