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