ScrollBox - como usar as setas acima e abaixo para rolar o scrollbox

Top  Previous  Next

// a scrollbox nao permite usar o keydown do form use isso:

 

private

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

 

 

procedure TxPrinterPreviewGraficoForm.CMDialogKey(var Msg: TCMDialogKey);

begin

  with CaixaScroll.VertScrollBar do

    case Msg.CharCode of

      VK_DOWN: Position := Position + Increment;

      VK_UP  : Position := Position - Increment;

      else

        inherited;

    end;

end;