Pfeiltasten benutzen zum Bewegen eines Shapes

[Maurooon]

Hallo,

ich hoffe ihr hattet alle schöne Feiertage.

Hier zu meiner Frage: Ich habe ein Shape und mehrere Buttons auf meiner Maske. Ich möchte nun das Shape mit den Pfeiltasten bewegen. drücke ich aber die Pfeiltasten, dann bewegt sich der Cursor sag ich mal nur auf den Buttons, wie man das eben kennt. was muss ich tun, damit sich tatsächlich NUR das Shape beweget?

Meine Prozedur sieht wie folgt aus:

Code:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
  );
begin
  if key = vk_left then
   Shape16.Left := Shape16.Left - 2;
  if key = vk_right then
   Shape16.Left := Shape16.Left + 2;
  if key = vk_up then
   Shape16.Top := Shape16.Top - 2;
  if key = vk_down then
   Shape16.Top := Shape16.Top + 2;
end;

LG

[a.def]

Setz in deinem FormCreate-Event mal KeyPreview := True dann sollte es klappen. Sicher bin ich mir nicht.

[himitsu]

Ich würde das ja gleich im OI setzen.

Und dann muß man aufpassen, dass der Fokus nicht in einem Control liegt, welches diese Tasten vorher abfängt.

[a.def]

Oder so
Ich persönlich mag es lieber im Code denn dann hat man alles an zentraler Stelle und muss nicht erst im IO suchen.

[stahli]

Nach der Behandlung kann man m.E. Key noch auf #0 setzen, damit ein focusiertes Control nicht noch auf die Taste reagiert.

[Maurooon]

Zitat von a.def:

Setz in deinem FormCreate-Event mal KeyPreview := True dann sollte es klappen. Sicher bin ich mir nicht.

Also jetzt funktioniert schon mal das Bewegen des Shapes, vielen Dank! Aber trotzdem bewegt sie der Cursor auf den Buttons. Da ich unter den Buttons auch eine Trackbar hab verstellt diese sich auch unglücklicherweise noch und führt so noch andere Dinge aus.... Jemand eine Lösung dafür?

[himitsu]

Zitat von Maurooon:

Aber trotzdem bewegt sie der Cursor auf den Buttons.
...
Jemand eine Lösung dafür?

stahli

Zitat von a.def:

Ich persönlich mag es lieber im Code denn dann hat man alles an zentraler Stelle und muss nicht erst im IO suchen.

Du erstellst auch alle Controls manuell und setzt deren Properties im Code?

[Papaschlumpf73]

Nimm statt des Ereignisses FormKeyDown einfach FormShortCut (OnShortCut) des Formulars.

Die Tasten kannst du da so auswerten:

if Msg.CharCode = VK_LEFT then begin [DeinCode]; Handled:=true; end;
Durch das Handled:=true wird dann der Tastenanschlag nicht mehr an andere Komponenten weiter gegeben.

[a.def]

Zitat von Papaschlumpf73:

Nimm statt des Ereignisses FormKeyDown einfach FormShortCut (OnShortCut) des Formulars.

Die Tasten kannst du da so auswerten:

if Msg.CharCode = VK_LEFT then begin [DeinCode]; Handled:=true; end;
Durch das Handled:=true wird dann der Tastenanschlag nicht mehr an andere Komponenten weiter gegeben.

Oder so

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if Key = vk_left then
  Shape1.Left := Shape1.Left - 2;
 if Key = vk_right then
  Shape1.Left := Shape1.Left + 2;
 if Key = vk_up then
  Shape1.Top := Shape1.Top - 2;
 if Key = vk_down then
  Shape1.Top := Shape1.Top + 2;

 Key := 0; // <==
end;

[Maurooon]

Zitat von stahli:

Nach der Behandlung kann man m.E. Key noch auf #0 setzen, damit ein focusiertes Control nicht noch auf die Taste reagiert.

Da ich aber ja key: word habe, motzt er rum wenn ich key := #0 setzen möchte