else
begin
if y=5 then
begin
if Pos('.',StringGrid1.Cells[5,x])>0 then
begin
if key=#8 then key:=#8
else if (key<'0') or (key>'9') then key:=#0;
end
else
begin
if key=#8 then key:=#8
else
if key='.' then
else
if (key<'0') or (key>'9') then key:=#0;
end;
end;
if (y=1) or (y=4) then//判断不是第8列出货说明
if key=#8 then key:=#8
else if (key<'0') or (key>'9') then key:=#0;
end;
end;
end;
//选择出货商品
procedure TCHPZGL.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#27 then//按Esc隐藏DBGrid1
begin
DBGrid1.Visible:=False;
StringGrid1.SetFocus;
StringGrid1.Col:=1;
end;
上一篇:
MC_BTSZ_KT.pas
下一篇:
爱情只不过就是,爱与不爱