Wednesday, January 5, 2011

Scroll your form with pgUP and pgDn

Q.   How can you do scrolling functions in a TForm component
using  keyboard commands?  For example, scrolling up and down
when a  PgUp or PgDown is pressed.  Is there some simple way to
do this or does it have to be programmed by capturing the
keystrokes and manually responding to them?

A.    Form scrolling is accomplished by modifying the
VertScrollbar  or HorzScrollbar Postion properties of the
form.  The following code demonstrates how to do this:
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;

Twitter Delicious Facebook Digg Stumbleupon Favorites More

Design by Kang Iwan K-sev | Thank's for your visit To My Site - Ridwan Mulyana | Cibeureum