unit u_fee_do_fen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, RxLookup, bsSkinCtrls, StdCtrls;

type
  Tfrm_fee_do_fen = class(TForm)
    Label64: TLabel;
    bsSkinButton1: TbsSkinButton;
    bsSkinButton2: TbsSkinButton;
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_fee_do_fen: Tfrm_fee_do_fen;

implementation

{$R *.dfm}

procedure Tfrm_fee_do_fen.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    key:=#0;
    bsSkinButton1.SetFocus;
  end;
end;

end.