1. 程式人生 > >Delphi控制元件TEdit只接受數字鍵和退格鍵的實現方法

Delphi控制元件TEdit只接受數字鍵和退格鍵的實現方法

新增Edit的ONKeyPress事件,具體實現如下。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', Char(8)]) then //Char(8)為退格鍵
    Key:=#0 ;
end;
 

如果需要是浮點數,還應有'.';實現如下。

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', Char(8), '.']) then
    Key:=#0 ;
end;