Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
das mit dem Button nicht loslassen, war mir schon die ganze Zeit klar :D
Habe ja oben auch schon geschrieben, dass mein Problem gelöst ist. Der Übernimmnt es nur nicht aus dem Objektinspektor. Aber wenn ich es ins FormCreate eintrage klappt es.
Meine Danksagung steht oben ja auch schon :D
Freundlichste Grüße, der Eme
Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
das klappt ja auch alles wunderbar :)
Meine Nachfrage war dann eben noch (steht irgendwo auf Seite 1 =P) wie ich die Tickgeschwindigkeit verändern kann, da es bei mir irgendwie nichts bringt, die Interval Eigenschaft zu verändern :)
Edit:
Moment, habe nochmal eine Idee. Ich versuch es kurz ^^
Edit:
Oke, Problem gelöst. Der Objektinspektor scheint wohl buggy zu sein. Wenn ichs im...
Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
ich hab die dauerschleife aufgrund eines Tippes oben schon mit es etwas anderem ausgetauscht.
Projekt sieht jetzt schon so aus:
//Steuerung: Hoch
procedure TForm1.Button2MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Timer1.Enabled := true;
end;
Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
oke, also.
Bei mir steht im Objektinspektor nur (also beim Timer jetzt)
Interval | 1000
Also standartmäßig. Ich hab schon sehr kleine und sehr große Zahlen versucht, trotzdem verändert sich da nichts.
Tut mir leid, falls ich ein bissle schwer von verstand sein sollte :/
Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
Ok, supi. So spart man sich echt den ganzen Umstand mit den extra Werten, dankeschön :D
Trotzdem krieg ich das leider nicht hin, den Interval richtig umzustellen. Also bei der Interval Eigenschaft im Obejekt-Inspektor kann ich reinschreiben was ich will, das Objekt bewegt sich immer gleichschnell. hmm.
Hätte evt. jemand ein Beispiel, wie man das Umsetzen könnte, vll. versteh ich es dann...
Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
Hmm, moment, ich kann ja nochmal den Quelltext posten, vielleicht ja irgendwas falsch gemacht.
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;
Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
Alles klar. Verstehe den Sinn dahinter :D
Supi, jetzt hab ich immerhin schonmal zugriff auf die Anwendung. Jetzt neues Problem ^^
Die Dauerschleife läuft trotzdem weiter, egal was ich mache (jetz isses wie snake =P)
Gibt es irgendeinen Befehl, womit man irgendwas bestehendes "stoppen" kann? Wäre dann auch für andere meiner Programme nützlich :)
Forum: Lazarus (IDE)
by Emerold,
29. Mär 2013
Hallo liebe Delphi-Praxis Community.
Habe mir schon länger auf dieser Seite geholfen und mir auch mal einen Account erstellt, denn ich komme bei einem Problemchen einfach nicht weiter. (Bin auch noch ganz schöner Anfänger)
Und zwar ist mein Problem folgendes.
Ich möchte ein Objekt, in diesem Falle ein einfaches Label zum Test, mit Buttons über das Bild laufen lassen, während der Button...