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; |