FormKeyDown ohne Windows

[Mathias]

Ich habe folgen Code, welcher nur mit der unit Windos funktioniert.
Der Fehler liegt bei VK_???.
Was gibt es für eine Alternative dafür ?

Code: Alles auswählen

procedure TForm1.FormKeyDown(Sender: TObject; var Key: word; Shift: TShiftState);
begin
  if ssShift in Shift then begin
    Ich.Schritt := 0.03;
  end;
  case Key of
    VK_LEFT: begin
      if ssAlt in Shift then begin
        Richtung.Left := True;
      end else begin
        Richtung.RotLeft := True;
      end;
    end;
    VK_RIGHT: begin
      if ssAlt in Shift then begin
        Richtung.Right := True;
      end else begin
        Richtung.RotRight := True;
      end;
    end;
    VK_UP: begin
      Richtung.Front := True;
    end;
    VK_DOWN: begin
      Richtung.Back := True;
    end;
  end;
end;    

[Komoluna]

nimm doch die LCL.

Für VK_... nimm die Unit LCLType.

MFG

Komoluna

[Mathias]

Für VK_... nimm die Unit LCLType.

Danke, das war es.

[Komoluna]

in der LCL findest du viele Funktionen, die sonst nur in OS-Spezifischen Units enthalten sind.

MFG

Komoluna