Hmm, moment, ich kann ja nochmal den Quelltext posten, vielleicht ja irgendwas falsch gemacht.
Delphi-Quellcode:
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label2.Caption := '2';
Wert := StrToInt(Label2.Caption);
end;
procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label2.Caption := '0';
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if wert>=1 then
begin
Label1.Top := Label1.Top - 10;
form1.refresh;
sleep(100);
end;
end;
Edit:
Moment, ich glaube, ich hab den Fehler. Ich überprüfe kurz
-Edit:
Jap, Fehler gefunden. Die 0 muss ja natürlich auch noch zur Variable eingebunden werden wenn der klick vorbei ist
Super, das Problem ist gelöst. Großes Danke für die schnelle Hilfe.
Ach ja,
kann ich irgendwie die Tickgeschwindigkeit des Timers regeln. Also wenn ich bei 'Interval' den Wert verändere passiert da irgendwie nichts. Vll. kann mir da ja auch noch jemand helfen
