Mover ScollBar
Olá pessoal....boa tarde....
Através do clik do mouse eu pego a posição do mouse na tela e com a posição eu pego o handle e a classe da janela q foi clicada....e logo após eu envio uma mensagem...uma letra, por exemplo, sempre pra última janela q foi clicada...
o q quero é...qdo for uma classe ScrollBar e eu enviar o código das teclas direcionais...
quero q o mesmo mova...para cima ou para baixo....
Tow no aguardo....
Vlw....
Através do clik do mouse eu pego a posição do mouse na tela e com a posição eu pego o handle e a classe da janela q foi clicada....e logo após eu envio uma mensagem...uma letra, por exemplo, sempre pra última janela q foi clicada...
o q quero é...qdo for uma classe ScrollBar e eu enviar o código das teclas direcionais...
quero q o mesmo mova...para cima ou para baixo....
Tow no aguardo....
Vlw....
Wdrocha
Curtidas 0
Respostas
Wdrocha
31/07/2008
ah pessoal, tow usando SendMessage para enviar as mensagens...
vlw
vlw
GOSTEI 0
Wdrocha
31/07/2008
Já resolvi o problema...
Fiz assim...para subir o ScrollBar
//******************************************************************************
Procedure TFrmTecladoReduzido.BtTeclaCimaClick(Sender: TObject);
Begin
SetActiveWindow(0);
If ClasseComponent = ´ScrollBar´ Then
Mouse_Event (MOUSEEVENTF_WHEEL, 0, 0, 110, 0)//Sobe
Else
KeyBd_Event(VK_UP, 0, 0, 0);
End;
//******************************************************************************
De qualquer forma....vlw pessoal...
Fiz assim...para subir o ScrollBar
//******************************************************************************
Procedure TFrmTecladoReduzido.BtTeclaCimaClick(Sender: TObject);
Begin
SetActiveWindow(0);
If ClasseComponent = ´ScrollBar´ Then
Mouse_Event (MOUSEEVENTF_WHEEL, 0, 0, 110, 0)//Sobe
Else
KeyBd_Event(VK_UP, 0, 0, 0);
End;
//******************************************************************************
De qualquer forma....vlw pessoal...
GOSTEI 0