请教：如何定义空格和PageUp、PageDown用于翻页？

Question

像AcdSee似的前后翻页功能？
我使用Ado和Acess数据库做了个图片管理程序，字段有索引、说明、日期、图片等，现在想
增加用空格、PageUp、PageDown移动记录的功能，不知道如何做？顺便问一下：Acdsee的全屏显示如何做啊？如果觉得分不够，再加之。

Answer 1

在窗体的
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);过程中case key of
    32://空格 
        do.......
    33://PageUp
        do.......
    34://pagedown
        do......
end;

Answer 2

谢谢！
但是窗口有几个Tbutton，老是获得焦点，一按空格就执行那个Tbutton，如何让这些能获得焦点的控件去掉焦点呢？

Answer 3

用Button.canfoucus也太费劲了！！！！