在Delphi中按Enter键时如何切换输入字段

时间:2019-02-04 18:37:35

标签: delphi

我试图通过按Enter来切换输入字段TEdit。这可能吗?如何在Delphi中实现?

下面是我的代码:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons;

type
  TfrmChooseYourLanguage = class(TForm)
    lblName: TLabel;
    lblSurname: TLabel;
    lblAge: TLabel;
    editName: TEdit;
    editSurname: TEdit;
    editAge: TEdit;
    bitbtnLekker: TBitBtn;
    btnAfrikaans: TButton;
    btnEnglish: TButton;
    btnSpanish: TButton;
    procedure bitbtnLekkerClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmChooseYourLanguage: TfrmChooseYourLanguage;

implementation

{$R *.dfm}

procedure TfrmChooseYourLanguage.bitbtnLekkerClick(Sender: TObject);
begin
  editName.Clear;

end;

procedure TfrmChooseYourLanguage.FormCreate(Sender: TObject);
begin

end;

end.

0 个答案:

没有答案