ich hab die dauerschleife aufgrund eines Tippes oben schon mit es etwas anderem ausgetauscht.
Projekt sieht jetzt schon so aus:
Delphi-Quellcode:
//Steuerung: Hoch
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := true;
end;
procedure TForm1.Button2MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := false;
end;
//Konsole für Hoch
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Top := Label1.Top - 10;
end;
//Konsole bei Start
procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.enabled := false;
timer2.enabled := false;
timer3.enabled := false;
timer4.enabled := false;
end;
Ich habe hier jetzt die anderen Richtungen mal weggelassen
Und wie schon gesagt, ich kann beim Interval eintragen was ich will, da verändert sich nichts an der Geschwindigkeit des Ticks. Ob ich da 10 - 100 - 1000 - 10000 Eintrage ist egal.
Fehler bei Lazarus in meiner Version kann nicht sein, oder?