Mover ScollBar

31/07/2008

1

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


Responder

Posts

31/07/2008

Wdrocha

ah pessoal, tow usando SendMessage para enviar as mensagens...



vlw


Responder

31/07/2008

Wdrocha

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


Responder