OnTimer unter Laufzeit Problem...

[DXC]

Hallo,

ich habe ein problem bei folgendem Delphi-Quellcode;

Delphi-Quellcode:

...
procedure DoTimer (Sender: TObject);
private
    { Private-Deklarationen }
...



var
     NewTimer: TTimer;        // Ist Global Definiert !
     NewImage: TImage;
...



procedure TForm1.Button1Click(Sender: TObject);
begin
  NewTimer := TTimer.Create (Nil);
  NewTimer.Interval := 20;
  NewTimer.Enabled := True;
  NewTimer.OnTimer := DoTimer;
  begin
    NewImage := TImage.Create(Nil);
    with NewImage do
      begin
      Top := 144;
      Left := 8;
      Picture.LoadFromFile('xxx.bmp');
      Parent := Form1;
      Name := 'xxx';
      end;
  end;
end;


procedure TForm1.DoTimer(Sender: TObject);
begin
  NewImage.Top := NewImage.Top - 3;
end;

Der Quellcode ergibt dass das Bild nach oben verschoben wird (über den Timer)...

Nur wenn ich zweimal schnell auf denselben Button klicke dann wird das zweite bild doppelt so schnell verschoben was aber nicht sein soll.

Weiß jemand wie ich dieses problem lösen kann ?

wäre dankbar..

MFG
DXC

[Sharky]

Zitat von DXC:

...Nur wenn ich zweimal schnell auf denselben Button klicke

Dann erzeugst Du wohl zwei Timer welche unabhängig von einander alle 20ms (die differenz zwichen beiden ist die Zeit die Du für den zweiten "Klick" brauchst).
Du solltest also im OnClick des Buttons diesen als erstes auf enabled := False setzen.

[DXC]

Geht es aber nicht mit einem TIMER ?

MFG
DXC

[Surrounder]

wieso setzt du denn nicht die Komponente Timer auf dein Formular? Wenn Du ihn nicht zur laufzeit von Hand jedesmal erzeugst dann gibt es ihn auch nur einmal

[DXC]

Weil es ganze einfach so sein muss...

naja

MFG
DXC

[Surrounder]

na ja ok, dann schau doch einfach bevor Du ihn erzeugt ob es ihn schon gibt

[DXC]

[kiar]

lies doch einfach was Sharky geschrieben hat.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NewTimer := TTimer.Create (Nil);
  NewTimer.Interval := 20;
  NewTimer.Enabled := True;
  NewTimer.OnTimer := DoTimer;
  begin
    NewImage := TImage.Create(Nil);
    with NewImage do
      begin
      Top := 144;
      Left := 8;
      Picture.LoadFromFile('xxx.bmp');
      Parent := Form1;
      Name := 'xxx';
      end;
  end;
  Button1.enabled:=false; // <-- das hier
end;

raik

[DXC]

Nein, Nein, Nein es soll so sein dass wenn ich den Button 2x hintereinander drücke dass dann das zweite bild sich genauso schnell bewwegt wie das erste ....

Oh Man danke immer nöch für jede Antwort ...

MFG
DXC

[Olli]

Zitat von DXC:

Oh Man danke immer nöch für jede Antwort ...

Lies doch bitte erstmal die vorhandenen Antworten durch, nimm dir die Zeit länger als 5 Sekunden drüber nachzudenken. Tu' dies intensiv und sorgfältig - voila, du wirst sehen die Lösung steht bereits da. Es sei denn du hast dein Problem falsch beschrieben, dann wäre Sharkys Rezept vielleicht doch nicht richtig - liegt aber daran, daß die meisten DP-Mitglieder keine guten Telepathen sind, bitte entschuldige das.