我试图通过按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.