| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
MarlonDelphi
Aprendiz
Registrado: Domingo, 5 de Janeiro de 2014
Mensagens: 117
|
 Enviada: Qui Set 18, 2014 6:46 pm Assunto: Barra de Rolagem DBGRID |
 |
|
| Boa Tarde Pessoal, meu problema é o seguinte. Estou com uma dbgrid aqui e quando eu vou la naquela barrinha do lado com o cursor do mouse e clico em cima, sacou? Ao invés de eu usar o scroll eu estou clicando na barra e descendo ou subindo. O problema é que a lista da grid nao move junto com o rolar da barra. Qual será o problema? |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Sex Set 19, 2014 8:29 am Assunto: |
|
|
vc quer usar o scroll do mouse?
coloque isso no applicationEvents do form principal:
| Código: | procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
var i: SmallInt;
begin
// rolagem do scroll do mouse no DBGrid
if Msg.message = WM_MOUSEWHEEL then
begin
Msg.message := WM_KEYDOWN;
Msg.lParam := 0;
i := HiWord(Msg.wParam);
if i > 0 then
Msg.wParam := VK_UP
else
Msg.wParam := VK_DOWN;
Handled := False;
end;
end; |
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
MarlonDelphi
Aprendiz
Registrado: Domingo, 5 de Janeiro de 2014
Mensagens: 117
|
| Enviada: Sex Set 19, 2014 8:32 am Assunto: |
|
|
| Não, nao quero usar o scroll. Quero clicar na Barra de Rolagem e arrastar ela pra cima e pra baixo e os itens mudarem juntos. entendeu? |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
