如何让Edit只能输入数字和字母？

[smalldisk]

如题，谢谢！

[xiaobb1984]

用系统API设置，setwindowlong(self.edit1.handle,参数，参数）；

[wtg476]

if not (key in['0'..'9','a'..'z','A'..'Z'#8,#13]) then
begin
key:=#0;
end;

[heyan_zjsx]

用正则表达式
[a-zA-Z0-9]

[看那山瞧那水]

procedure TForm1.edt1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ['0'..'9','A'..'Z','a'..'z',#8]) then
key:=#0;
end;

[Teng_s2000]

if not (key in['0'..'9','a'..'z','A'..'Z'#8,#13]) then
begin
key:=#0;
end;

[大河V5]

mark