Entwickler-Ecke
Grafische Benutzeroberflächen (VCL & FireMonkey) - Wie lass ich ein shape bewegen
Zlatan - Di 22.02.11 17:55
Titel: Wie lass ich ein shape bewegen
Ich habe hier einen Quelltext.
Das shape soll sich immer hin und her bewegen
DAs Problem ist: In welche Procedur schreibe ich diesen Quelltext ( das shape ist auf Form8)
FromShow ist wohl falsch
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
| procedure TForm8.FormShow(Sender: TObject);
begin
AutomatikAus:=false;
repeat
shape1.Left:=shape1.Left +32;
Zeit.SetPause(50);
shape1.Left:=shape1.left +32;
Zeit.SetPause(50);
shape1.Left:=shape1.Left +32;
Zeit.SetPause(50);
shape1.Left:=shape1.Left -32;
Zeit.SetPause(50);
shape1.Left:=shape1.Left -32;
Zeit.SetPause(50);
shape1.Left:=shape1.Left -32;
Zeit.SetPause(50);
until AutomatikAus=true;
end; |
Moderiert von 
Narses: Titel geändert, war: "Quelltext korrekt aber...".
jaenicke - Di 22.02.11 17:58
Keine Ahnung was Zeit.SetPause ist, aber es sieht so aus als würdest du nach der Komponente TTimer suchen.
Zlatan - Di 22.02.11 18:00
Zeit. setPAuse ist nicht das Problem(ist alles richtig [ist halt eine Pause])
DEr Text ist schon so wie er sein soll :)
ICh weiß nur nicht wohin mit dieser Prozedur
Es gibt ja soviele(FormCreate=geht nicht, FormShow=geht nicht .........)
jaenicke - Di 22.02.11 18:07
In gar keine, weil es so keinen Sinn macht, da so alles blockiert wird... nimm einfach einen Timer...
HenryHux - Di 22.02.11 18:08
Wo ist denn genau das Problem?
Wenn du die Form öffnest, werden die Befehle in dem FormShow event abgearbeitet.
Du könntest ja mal testen, ob er überhaupt was macht, wenn du die Form startes, z.b mit showmessage('');
Zlatan - Di 22.02.11 18:09
Wenn ich die Form öffne steht das shape an der Ausgangsposition
jaenicke - Di 22.02.11 18:11
FormShow wird direkt bevor das Formular angezeigt wird abgearbeitet. Deshalb siehst du davon auch nichts. Theoretisch kannst du das ins OnActivate schreiben, aber Sinn macht es trotzdem keinen. :roll: Ein Timer ist deutlich besser geeignet.
Zlatan - Di 22.02.11 18:22
Funktionieren dann auch noch die anderen Prozeduren?
Irgendwie nicht
Zumindest bewegt sich das shape jetzt :roll:
jaenicke - Di 22.02.11 18:27
Ein Timer löst nur in einem bestimmten Abstand ein Ereignis aus (wie du ja sicher schon in der Hilfe gelesen hast... :roll:). Deshalb kannst du dir die Schleife dann sparen.
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!
