fxgkc.pas.~3~

来自「delphi2007开发的汽车配件进销存系统.实用级的源码.」· ~3~ 代码 · 共 52 行

unit Fxgkc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxPC, cxControls, Menus, cxLookAndFeelPainters, cxLabel, cxContainer,
  cxEdit, cxTextEdit, cxDBEdit, StdCtrls, cxButtons;

type
  TFrmXGKC = class(TForm)
    cxPageControl1: TcxPageControl;
    cxTabSheet1: TcxTabSheet;
    cxButton1: TcxButton;
    cxButton2: TcxButton;
    cxDBTextEdit1: TcxDBTextEdit;
    cxDBTextEdit2: TcxDBTextEdit;
    cxDBTextEdit3: TcxDBTextEdit;
    cxDBTextEdit4: TcxDBTextEdit;
    cxDBTextEdit5: TcxDBTextEdit;
    cxDBTextEdit6: TcxDBTextEdit;
    cxDBTextEdit8: TcxDBTextEdit;
    cxLabel1: TcxLabel;
    cxLabel2: TcxLabel;
    cxLabel3: TcxLabel;
    cxLabel4: TcxLabel;
    cxLabel5: TcxLabel;
    cxLabel6: TcxLabel;
    cxLabel8: TcxLabel;
    cxLabel10: TcxLabel;
    cxTextEdit1: TcxTextEdit;
    procedure cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FrmXGKC: TFrmXGKC;

implementation

{$R *.dfm}

procedure TFrmXGKC.cxTextEdit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ((key<'0') or (key>'9'))and (key<>#8) then key:=#0;
end;

end.