【结贴】键位问题

毁灭代码

键盘的 向下箭头的键位值是多少?
网上说是40  但在代码里面写了怎么没反应呢?

procedure TMAINFORM.DataGrid1KeyPress(Sender: TObject; var Key: Char);//键位
begin
  if key =#40 then
  begin
    dialogs.ShowMessage('下');
  end;
end;

zfang

DataGridKeyDown事件中写代码试试吧

FBO

楼主，可以了吗，这样可以的：
procedure TMAINFORM.DataGrid1KeyDown(Sender: TObject; var Key: Char);//键位
begin
  if key =40 then
  begin
    dialogs.ShowMessage('下');
  end;
end;

毁灭代码

不好意思~昨天下午一直没时间上来看贴~
放在DataGridKeyDown 问题就解决了  
谢谢两位解答~
结贴吧