Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
na dann mach ich mich mal ans Werk... (wobei ich schon fast glaube, dass ich die Nacht durchmache, weil morgen muss der Spaß fertig sein :? )
Nunja falls mir noch jemand nützliche Tips geben will dann immer her damit :)
ich meld mich, falls etwas nicht geht.
Achso und ein dickes Danke an die fleißigen da oben :hello:
Grüße ...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Nein, dass würde mir Delphi sagen.
Man braucht bei einer If-Bedinung kein begin und end zu benutzen; wenn man nur einen Befehl dahinter schreibt falls du dass meinst.
Es fehlt höchstens ein End; durchs kürzen
EDIT:Wenn ich etwas nicht benutze, dann bin ich mir damit unsicher oder kann es nicht =)
Könnts mir ja gerne Versuchen zu erklären
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
if runter=1 then {nichts, da es in dem ersten durchlauf nichts zu löschen gibt} else rectangle(x,y,x1,y2); {löschen des voherigen Blockes, also der vorherigen Position}
Brush.color:=clmaroon; {ändern der Farbe}
rectangle(x,y1,x1,y3);{neue Position}
Ich werd bald wahnsinnig...
wenn diese doofe Tastenerkennung gehen würde wäre der rest schon viel einfacher
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Ich glaub ich bin immernoch zu doof dazu
also ich hab nun folgendes:
case zblock1 of
1:begin {langes}
with canvas do
begin
x:=114;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Wie würde dass dann aussehen? Wie gesagt kenn mich nicht grade gut aus :(
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Also unterbricht das tastendruck-ereignis den TimerZyklus?
Außerdem ist mein Problem, dass trotz keiner gedrückten Taste der Timer2 seine Befehle nichts ausführt, aus welchem Grund auch immer :pale:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Na ja in dem Timer-Zyklus will ich ja abfragen was für eine Taste gedrückt wird.
Darum gehts ja
Wie setzt man das um? >.<
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Es soll ein auf Canvas basierendes Tetris werden (Nicht mit Lines-Abbau sondern mit Zeit).
Ich kann es ja mal Hochlanden, falls es fertig wird. Hier jedenfalls erstmal der schlecht sortierte Code.
Niveau ist nicht so hoch(nur Schulprojekt).
...
var
zblock1,zblock2,over,unten,runter,timer2z,test,spielaktiv,winkel:integer;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Ok!
Jetzt hab ich bei meinem Timer unter "Eingabe" Enabled auf True gestellt, wodurch gleich auch noch unter "Aktion" Enabled und unter "Visuell" auf True gestellt worden sind (hoffe das ist normal).
Doch nun führt der Timer die Befehle nicht mehr aus.
Wenn ich es wieder zurückstelle geht es wieder.
woran könnte das nun liegen? :gruebel:
Danke im voraus
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Hi,
danke für die schnelle Antwort, aber wo geht das?
einfach am anfang des Programms
KeyPreview.Enabled:=true;
oder wie?
greetz
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
by Fabbe,
26. Mai 2008
Tagchen, :angel2:
Ich versuch den Spaß jetzt schon seit etwa 2 Stunden und komm einfach nicht vorwärts. Hab auch schon fleißig gesucht und bin auf ziemlich knapp gehaltenen Erklärungen gestoßen.
So hab ich z.B. das:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case key of
{Escape} VK_ESCAPE: close;