key 限制字符的输入

//限制字符的输入

{ 只能输入以下字符 }

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   If (Key in [ '\', '/', ':', '*', '?', '<', '>', '|']) then     Key := # 0;   If not(Key in [ '0' .. '9', 'a' .. 'z', 'A' .. 'Z']) then     Key := # 0; end;

只能数字且只能输入一个小数点

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin   if not(Key in [ '0' .. '9', '.', # 8]) then     Key := # 0;   if (Key = '.') and (Pos( '.', Edit1.Text) > 0) then     Key := # 0; // 只能数字且只能输入一个小数点 end;

  

//只允许输入数字的TEdit组件

procedure TForm1.FormCreate(Sender: TObject); var     wl:Integer; begin     wl:=GetWindowLong(Edit1.Handle, GWL_STYLE);     SetWindowLong(Edit1.Handle, GWL_STYLE, wl or ES_NUMBER); end;

//Delphi XE4

Edit1.NumbersOnly:=True;

//让edit 或memo右键无效措施:

//1. 设置edit或memo的ContextPopup事件 设置: Handled:=True; 即使右键对当前控件无效
//2.可以使用一个的空的PopupMenu1 这样可以视为右键无效
//右键粘贴无效

procedure TForm1.Edit1ContextPopup(Sender: TObject; MousePos: TPoint;   var Handled: Boolean); begin     Handled :=True; end;

 

来自为知笔记(Wiz)