procedure Tfrmclerktable.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not ((Key>='0') and (key<= '9')) then
if not (Key = #8) then
begin
Key := #0;
messagebox(0,'请输入数值型数字!','错误',mb_iconquestion+mb_OKCANCEL);
end;
begin
if not ((Key>='0') and (key<= '9')) then
if not (Key = #8) then
begin
Key := #0;
messagebox(0,'请输入数值型数字!','错误',mb_iconquestion+mb_OKCANCEL);
end;
谢谢您了
分给了,请查收!另外要想判断具体按下那个键
你有代码吗?
谢谢了!