KeyPress Problem

[Uwe Raabe]

@HighSpeed: Da war dann doch ein end zuviel...

Etwas anders formuliert funktioniert es auch:

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Key = 39 then begin
    if ssCtrl in Shift then
      Panel1.left := Panel1.left + 1
    else 
      Panel1.left := Panel1.left + 10;
    Key := 0; // optional, damit kein anderes Control mehr auf den Key reagieren kann
  end;
end;