查看详细资料

正在学习Delphi，希望对同样的菜鸟有帮助。


限制为只接收数字：

复制内容到剪贴板

代码:

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

限制编辑框只接收字母输入：

复制内容到剪贴板

代码:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
　　　begin
　　　if not(key in['a'..'Z',#8]）then
　　　　begin
　　　　　key:=#0;
　　　　　MessageBeep(1);
　　　　end;
　　　end;