delphi keydown enter

procedure TForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if (Key = #13) then  //#13 enter
  begin
    Key := #0;  //clear key press
    {enter extra code}
    Perform(WM_NEXTDLGCTL, 0, 0);  {Move to next object in turn}
  end;
end;
  
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case Key of
    VK_RETURN: {enter extra code};
  end;
end;

Are there any code examples left?
Create your free account to grow your data skills
Sign up
Develop soft skills on BrainApps
Complete the IQ Test
Made with love
This website uses cookies to make IQCode work for you. By using this site, you agree to our cookie policy

Pleased to see you again

Sign up to unlock all of IQCode features:
  • Master useful skills
  • Improve learning outcomes
  • Share your knowledge
Create an account
Sign in
Recover lost password
Or log in with

Create a Free Account

Sign up to unlock all of IQCode features:
  • Master useful skills
  • Improve learning outcomes
  • Share your knowledge
Create an account
Sign up
Or sign up with
By signing up, you agree to the Terms and Conditions and Privacy Policy. You also agree to receive product-related marketing emails from IQCode, which you can unsubscribe from at any time.
Creating a new code example
Code snippet title
Source