在StringGrid里键入“↓”时，若当前的单元格为空，则不允许向下移动。如何实现？

[wzds2000]

在StringGrid里键入“↓”时，若当前的单元格为空，则不允许向下移动。如何实现？
其实用鼠标和键盘对StringGrid进行操作时若当前的单元格为空时都是不可以移动的，鼠标的已经搞定了，但是键盘的好像不相应＃40。。。大家帮忙呀！

[hongqi162]

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=40 then
showmessage('');
end;

[hongqi162]

if key=40 then
begin
....//如果是空
key:=0
end;

应该可以了

[lxhong1980]

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (StringGrid1.Cells[i,j]='') and (key=40) then //VK_DOWN = 40;
begin
key:=0;
end;
end;

[47522341]

procedure TForm1.StringGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (StringGrid1.Cells[i,j]='') and (key=40) then //VK_DOWN = 40;
begin
key:=0;
end;
end;

[wzds2000]

最近脑子有些木了。。。搞定，揭帖。