Guten Abend,
wenn etwas beschleunigen soll, dann solltest Du die Schrittweite der Schritte vergrößern
oder das TimerInterval verkleinern.
Grüße
Klaus
Delphi-Quellcode:
procedure TForm4.vxTimerTimer(Sender: TObject);
begin
inc(counter);
Form4.DoubleBuffered:=true;
if links then image1.Left:=image1.Left-sqr(counter) else
if rechts then image1.Left:=image1.Left+sqr(counter) ;
end;
Delphi-Quellcode:
procedure TForm4.FormCreate(Sender: TObject);
begin
counter:=0;
keypreview:=true;
end;
Delphi-Quellcode:
type
TForm4 = class(TForm)
vxTimer: TTimer;
Image1: TImage;
aTimer: TTimer;
procedure aTimerTimer(Sender: TObject);
procedure TasteUp(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure vxTimerTimer(Sender: TObject);
procedure TasteDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormCreate(Sender: TObject);
private
counter:Integer;