标签：style blog http color 使用 os for 2014
//限制字符的输入{ 只能输入以下字符 }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 XE4Edit1.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;
标签：style blog http color 使用 os for 2014
原文地址：http://www.cnblogs.com/xe2011/p/3876237.html
