Fórum Ao passar barra de rolagem, muda seleção dos dados... #321624

18/05/2006

0

Boa noite pessoal, eu novamente...
Fiz o seguinte:
Inseri um bdgrid, liguei ao datasource e ibquery....
eu tenho 2 edits: nome do pai de nome da mãe;
Quando clicar nas linhas do dbgrid, automaticamente iria mudar e mostrar o respectivo nome do pai e da mãe... então, isso eu fiz e tá funcionando... mas quando eu passo a barra de rolagem pra baixo ou pra cima os dados do pai e da mãe não mudam. Eu gostaria que mudasse... alguémpode me ajudar?

Att.
Flávio...


Flaviobrazuca

Flaviobrazuca

Responder

Posts

18/05/2006

Salupe

Se você estiver com o foco no dbgrid é só fazer a mesma programação que fez no clic no evento onkeyUp do dbgrid que ele vai colocar nos edits os valor a cada teclada que vc fizer.


Responder

Gostei + 0

18/05/2006

Flaviobrazuca

Amigo acho q me expressei mal, o onkeyup eu já setei com a mesma função de vizualização... o problema está quando eu clico pra baixo na barra de rolagem ou clico pra cima... os dados pai e mãe não são atualizados de acordo com a seleção...


Responder

Gostei + 0

19/05/2006

Flaviobrazuca

Pessoal... alguém aí pra me ajudar?

Att. Flávio.


Responder

Gostei + 0

20/05/2006

Paullsoftware

eu tenho essa dica pra rolar com o scrool...

procedure TForm1.Teste(var Msg: TMsg; var Handled: Boolean);
var
  i: SmallInt;
begin
  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;



procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage := Teste;
end;


espero ter ajudado :wink:


Responder

Gostei + 0

20/05/2006

Flaviobrazuca

Bom dia Paulo... até q funcionou, porém quando fecho esse form ele dá um erro de ´access violation´ além disso esse form ficou muito pesado... quando faço alguma solicitação ele fica lerdo pra passar pra outra linha e atualizar os dados...

Alguma outra sugestão? Valew...


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar