发信人: redfox (Z掉了几乎所有的版...), 信区: BorlandDev
标  题: Delphi编程 -- 2.20 怎样使用PD/PU滚动窗体
发信站: 哈工大紫丁香 (2000年09月01日13:42:30 星期五), 站内信件

怎样使用PD/PU滚动窗体 

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;

Shift: TShiftState);

const

  PageDelta = 10;

begin

  With VertScrollbar do

    if Key = VK_NEXT then

      Position := Position + PageDelta

    else if Key = VK_PRIOR then

      Position := Position - PageDelta;

end;

 

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.107]