Fokus auf Form1 setzen

[funky]

Da muss nichtmal etwas drinstehen:

Jetzt habe ich mal folgendes rein gemacht:

[CODE?Delphi]procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Test');
end;[/CODE]

Edit:
Also so sieht das Formular aus:
http://www.imgupload.org/images/32_qwertz.png

[DeddyH]

Stimmt, KeyDown geht dann nicht mehr. Nimm stattdessen doch KeyPress und WASD, das sollte das Einfachste sein

[funky]

Habe es jetzt so gemacht:

Delphi-Quellcode:

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


    if (Key = 'W') 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 = 'S') 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 = 'D') 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 = 'A') 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;

Jetzt reagiert er allerdings gar nicht mehr auch wenn ich keine Buttons mehr habe.

[DeddyH]

Weil Du vermutlich nicht die Shift-Taste drückst. Wandle doch den Key zunächst in LowerCase oder Uppercase um, dann kannst Du besser vergleichen.

[funky]

Oh ja. Hast recht.
Jetzt funktioniert es wie es sein soll.
Danke

[Hawkeye219]

Hallo,

wenn man das Ereignis OnShortCut des Formulars verwendet, dann lassen sich die Pfeiltasten abfragen - auch ohne gesetztes KeyPreview.

Gruß Hawkeye