Tips (1541)

Tip Bewertung (9):

private
  procedure CMDialogKey(var Msg: TCMDialogKey); message CM_DIALOGKEY;
end;


implementation

procedure TForm1.CMDialogkey;
begin
  with Scrollbox1.VertScrollBar do
  begin
    case Msg.CharCode of
      // Delphi takes care of Position < 0 or Position > Range
      VK_DWON: Position := Position + Increment; // down arrow key
      VK_Up: Position   := Position - Increment; // up arrow key
      else
        inherited;
    end;
  end;
end;