Ergebnis der Suchanfrage

• Forum: Sonstige Fragen zu Delphi

  Re: KeyPress Problem

    Delphi
    by hitzfeld, 22. Jan 2009
  procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
  begin
  if ((Key = 17) and (Key = 39)) then begin
  Panel1.left:= Panel1.left+1;
  end;
  
  if ((Key <> 17) and Key = 39)) then begin
  Panel1.left:= Panel1.left+10;
  end;