Simular Teclas

Delphi

16/07/2008

Olá pessoal, estou com um problema assim...


Tenho um TShellListView, e tenho alguns botões que servem pra simular as setas direcionais (Para cima, baixo, esquerda, direita) dentro deste componete...


Alguém poderia me ajudar??

Williame Rocha


Wdrocha

Wdrocha

Curtidas 0

Respostas

Rodc

Rodc

16/07/2008

Use as mensagens WM_VSCROLL e WM_SCROLL para mover na vertical e horizontal, respectivamente.
Segue um exemplo de uso:
ShellListView1.Perform(WM_VSCROLL, SB_LINEDOWN, 0);

Consulte o help do SDK (menu Ajuda) para saber os parâmetros aceitos.


GOSTEI 0
Wdrocha

Wdrocha

16/07/2008

Muito obrigado cara...


era isso mesmo q eu precisava....funcionou perfeito...


Vlw



Abraços,

Williame Rocha


GOSTEI 0
Wadojr

Wadojr

16/07/2008

Olá pessoal, dentro desta duvida talvez alguém possa me ajudar...

Eu preciso que após um bloco de código qualquer, a Tecla Enter seja acionada. É possivel fazer isso???

Se alguem puder ajudar, agradeço desde já...!!!


GOSTEI 0
Wdrocha

Wdrocha

16/07/2008

Bom dia, explique melhor o q vc quer....


se possível.....dê um exemplo desses tais blocos...




Flw....


GOSTEI 0
Wadojr

Wadojr

16/07/2008

Bom, eu uso a suite de componentes DevExpress, e num grid preciso fazer alguns calculos quando tiro o foco do da linha, estou usando o evento onValidate, porém se eu editar a linha e pressionar ENTER, ok, funciona perfeitamente, mas, se eu pressionar as teclas para baixo ou para cima da erro.

O que eu penso e fazer com que a tecla ENTER seja pressionada logo após a execução do código...
Aplic_ha := BancoPlanejamento.cdsAuxAssAPLICAR_HA.AsFloat; BancoPlanejamento.cdsAuxAss.Edit; BancoPlanejamento.cdsAuxAssAPLICAR.AsFloat := Aplic_ha * BancoPlanejamento.cdsCentroProd_Inftam_area.AsFloat;


Após este código a tecla enter teria de ser prossionada para disparar o evento OnValidate...

Obrigado!!!


GOSTEI 0
Thiago Vidal

Thiago Vidal

16/07/2008

Segue a função:
procedure SendKey(Key: Word);
begin
  keybd_event(Key, 0, 0, 0);
  keybd_event(Key, 0, KEYEVENTF_KEYUP, 0);
end;


Uso:
  SendKey(VK_RETURN);



GOSTEI 0
Wadojr

Wadojr

16/07/2008

É exatamente isso Thiago Vidal, funcionou, antes eu estava tentando somente colocando keybd_event(Key, 0, 0, 0); mas dava o som de alerta do windows(pam!!) rsrsrs...


Valew demais moçada, Obrigado!!!


GOSTEI 0
POSTAR