Fokus auf Form1 setzen

[funky]

Hi,

Also bin neu hier und ich weis der Titel sagt einigen erstmal nix.
Mein Problem ist folgender:

Ich habe ein Spielfeld(Image1) und einen Button1 mit dem auf Image1 das Spielfeld und die Figur gezeichnet werden.

Jetzt habe ich bei "FormKeyDown" die Tastenabfrage rein gemacht, also wenn man die Pfeiltaste nach oben drückt soll sich die Figur nach oben bewegen.
Allerdings geht das nicht. Sobald ich auf Button1 klicke reagiert das Programm nicht auf die Tastenabfrage wie es soll.

Ich könnte bei Button1 unter "OnKeyDown" dasselbe wie bei "FormKeyDown" reinmachen. Dann funktioniert es auch. Da habe ich dann aber auch wieder das Problem, dass ich es bei jedem Button, dass ich in das Formular reinmache den Code reinmachen muss und dann ist der Code nur unnötig lang/unsauber.

Ich hoffe ihr habt verstanden wo mein Problem liegt.

MfG funky

[DeddyH]

Setz mal die Eigenschaft KeyPreview der Form auf true.

[Matze]

Hallo,

versuche mal "KeyPreview" des Formulars auf "true" zu setzen (entweder per Code oder im OI).

Güße
Matze

Edit: Och Mensch, Deddy ...
Edit 2: Dass der Beitrag nicht ganz umsonst ist: Herzlich Willkommen in der DP, funky!

[DeddyH]

[OT] Der Turbo-Opa hat wieder zugeschlagen :lol: :zwinker: [/OT]

[funky]

Nein funktioniert nicht.
Sobald ich einen Button auf mein Formular setze reagiert er nicht mehr auf meine Tastenabfrage.

Edit:
Ich weis nicht ob das was bringt aber ich benutze "Embarcadero RAD Studio 2010"

[DeddyH]

Das mag ich nicht recht glauben.

[funky]

Was magst du nicht glauben? oO
Soll ich dir meine Projektdateien schicken?

[DeddyH]

Zeig doch einfach mal den Quelltext(den relevanten Teil).

[funky]

Also das ist der Teil wo er die Figur bewegt oder eben nicht bewegt:

Delphi-Quellcode:

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


    if (Key = VK_UP) then
  begin
     if (arFelder[PosY-1,PosX] = 0) or (arFelder[PosY-1,PosX] = 2) then
     begin
        PosY := PosY-1;
        Image1.Canvas.Brush.Color:= clYellow;
        Form1.Image1.canvas.Rectangle(PosX * Abstand, PosY * Abstand, Abstand + (PosX * Abstand),
        Abstand + (PosY * Abstand));

           if arFelder[PosY,PosX] = 2 then
           begin
            ShowMessage('Sieg!')
           end;

     arFelder[PosY,PosX] := 4;
     end;

  end



   else if (Key = VK_Down) then
  begin
     if (arFelder[PosY+1,PosX] = 0) or (arFelder[PosY+1,PosX] = 2) then
     begin
        PosY := PosY+1;
        Image1.Canvas.Brush.Color:= clYellow;
        Form1.Image1.canvas.Rectangle(PosX * Abstand, PosY * Abstand, Abstand + (PosX * Abstand),
        Abstand + (PosY * Abstand));

           if arFelder[PosY,PosX] = 2 then
           begin
            ShowMessage('Sieg!')
           end;

     arFelder[PosY,PosX] := 4;
     end;

  end



    else if (Key = VK_Right) then
  begin
     if (arFelder[PosY,PosX+1] = 0) or (arFelder[PosY,PosX+1] = 2) then
     begin
        PosX := PosX+1;
        Image1.Canvas.Brush.Color:= clYellow;
        Form1.Image1.canvas.Rectangle(PosX * Abstand, PosY * Abstand, Abstand + (PosX * Abstand),
        Abstand + (PosY * Abstand));

           if arFelder[PosY,PosX] = 2 then
           begin
             ShowMessage('Sieg!')
           end;

     arFelder[PosY,PosX] := 4;
     end;

  end



   else if (Key = VK_Left) then
  begin
     if (arFelder[PosY,PosX-1] = 0) or (arFelder[PosY,PosX-1] = 2) then
     begin
        PosX := PosX-1;
        Image1.Canvas.Brush.Color:= clYellow;
        Form1.Image1.canvas.Rectangle(PosX * Abstand, PosY * Abstand, Abstand + (PosX * Abstand),
        Abstand + (PosY * Abstand));

           if arFelder[PosY,PosX] = 2 then
            begin
             ShowMessage('Sieg!')
            end;

     arFelder[PosY,PosX] := 4;
     end;

  end



end;

Und dann ist da noch der Teil wo das Spielfeld gezeichnet wird.

[DeddyH]

Und was steht im OnClick des Buttons?