Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 10-05-2011
cmfab cmfab is offline
Miembro
 
Registrado: jun 2010
Posts: 419
Poder: 14
cmfab Va por buen camino
MyDacs

Hola a todos estoy usando las componentes MyDacs para accesar a una BD MySQL. sucede que una tabla necesito que se autorefresque cada 3 segundos ya que muchos usuarios interactuan y realizan cambios en ella
le asigno la proiedad de autorefresh y los 3 segundos. lo que sucesde es que cada vez que uno de los usuarios navega por la tabla usando el scrool del dbgrid, este se refresca cada 3 segundos y vuelve arriba donde estaba posionado el registro en la tabla. existe alguna forma de capturar el scrool para desactivar el autorefresh y despues volverlo a activar ?

Gracias por sus atenciones
Responder Con Cita
  #2  
Antiguo 10-05-2011
Avatar de oscarac
[oscarac] oscarac is offline
Miembro Premium
 
Registrado: sep 2006
Ubicación: Lima - Perú
Posts: 2.010
Poder: 20
oscarac Va por buen camino
no tengo delphi a la mano pero creo que puedes usar los bookmark

var _Position :TBookmarkStr;

_position := qryAnexos.Bookmark; /// graba la posiciom

qryAnexos.Bookmark := _position; /// establece la posicion
__________________
Dulce Regalo que Satanas manda para mi.....
Responder Con Cita
  #3  
Antiguo 11-05-2011
cmfab cmfab is offline
Miembro
 
Registrado: jun 2010
Posts: 419
Poder: 14
cmfab Va por buen camino
Gracias por la respuesta, pero la complicacion es que en que posicion
capturo el scrooll, en que evento ? para poder pasar el focus del registro


Gracias
Responder Con Cita
  #4  
Antiguo 11-05-2011
cmfab cmfab is offline
Miembro
 
Registrado: jun 2010
Posts: 419
Poder: 14
cmfab Va por buen camino
Bueno logre adecuar este codigo

Código Delphi [-]
 
procedure TForm1.ApplicationEvents1Message
   (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;

Todo funciona de maravillas, pero necesito hacer lo mismo cuando el usuasrio
arrastra el scrooll bars por el boton que tiene en la barra de desplazamiento vertical. algo importante es que la rejilla de datos que utilizao es el cxGrid de las devexpress por si alguien las utiliza tambien

Gracias
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 08:33:09.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi