J
jacklee
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure Tflxs.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not(key in['0'..'9',#8,#13,#110]) then
begin
key:=#0;
end;
end;
begin
if not(key in['0'..'9',#8,#13,#110]) then
begin
key:=#0;
end;
end;