Kasten mit Pfeiltasten bewegen

[Spiderpig_GER_15]

Hi, ich lerne momentan Delphi mit einem Buch,
und so weit ich das gesehen habe steht dort nichts darüber drin
wie man beispielsweise ein rechteck mit den pfeiltasten über die
form bewegen kann.
Ich habe momentan noch keinen Ansatz wie das funnktionieren könnte, da
ich bis jetzt nur Programme mit Button-Klick Methoden programmiert habe.

Weil mich das sehhhr interessiert, würd ich gerne jemanden bitten der ein bissl Zeit
übrig hat mal einen Quelltext zu posten, bei dem man mit den Pfeiltasten ganz schlicht
nen kasten bewegen kann. Ich denke wie das Funktioniert kann ich mir selbst zusammen reimen,
Also brauch ich wahrscheinlich nichtmal ne erklärung.

Also vielen Dank wenn sich jemand die Zeit nimmt das zu machen. :stupid: :stupid:

MfG Spiderpig

[Fussball-Robby]

Am besten benutzt du das OnKeyDown-Ereignis der Form (KeyPreview auf True), überprüfst, welche taste gedrückt wurde(vk_UP, vk_DOWN, vk_LEFT, vk_RIGHT) und bewegst dementsprechend dein Rechteck(Top, left).

Mfg

[Spiderpig_GER_15]

thx für die schnelle antwort, aber momentan kann ich mir nur vorstellen das ich das dann für ein tastenklick um ien pixel verschiebe, aber es soll ja solange rumgeschoben werden, wie ich gedrückt halte

geht das vielleicht mit ner schleife?

repeat
//verschieben...
until keyup(oder so)?

[alleinherrscher]

Guck dir mal die Ereignisse

Delphi-Quellcode:

Form1.OnKeyDown
Form1.OnKeyPress
Form1.OnKeyUp

an.

Bei dem Ereignis OnKeyPress wird ein Charakter "Key" übergeben, der deiner Taste entspricht die du drückst:

Delphi-Quellcode:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

end;

Dann musst du nur noch vergleichen ob dein Key der nach links oder nach rechtstaste entspricht und auf die Eigenschaft Top bzw Left deiner Box auf dem Desktop einen bestimmen wert draufaddieren bzw abziehen

[Fussball-Robby]

Wenn du es ins KeyDown machst, wid die Aktion (wie der Name schon sagt) solange ausgeführt, wie die Taste RUNTERgedrückt (down) ist.

[Spiderpig_GER_15]

ah okay, das wolt ich genau gerade fragen xD

[Spiderpig_GER_15]

sry for double post...

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin


end;

das bedeutet doch das er(mein laptop schatz) das ausführt sobald cih irgendeine taste drücke?
Wie mache ich es dann so das er nur dann die positionswerte von meinem rechteck verändere, wenn ich 'runter' drücke?

[alleinherrscher]

Hust ich will dir nicht deinen Drag bzw. Wunsch zum Ausprobieren klauen...aber ich habs mal fix programmiert...

[Spiderpig_GER_15]

ich nimms dir echt nicht übel, alleinherrscher

danke genau das wollte ich ja!!


THX :!: :!: :!:

:witch:

[alleinherrscher]

Zitat:

Zitat von Spiderpig_GER_15

*drecksangeber grummel ^^*, nee scherz, danke genau das wollte ich ja!!

LOL sorry, so sollte das nicht rüberkommen :-)

Gute nacht :-)