Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 22-07-2011
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola yugi789.

Probá de este modo:
Código Delphi [-]
type
  TForm1 = class(TForm) 
    procedure FormShow(Sender: TObject);
    ...
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    procedure MouseEvent(var Msg: TMsg; var Handled: Boolean);
  public
  end;

...

implementation

(* CAPTURAR MENSAJE EVENTO MOUSE *)
procedure TForm1.MouseEvent(var Msg: TMsg; var Handled: Boolean);
begin
  if Msg.Message =  WM_MOUSEWHEEL then
   Handled:= True;
end;

(* DESACTIVAR MOUSEWHEEL Y SCROLLBAR VERTICAL *)
procedure TForm1.FormShow(Sender: TObject);
begin
  Application.OnMessage:= MouseEvent;
  EnableScrollBar(DBGrid1.Handle,SB_VERT,ESB_DISABLE_BOTH); // Scrollbar desactivado
end;

...

(* ACTIVAR MOUSEWHEEL Y SCROLLBAR VERTICAL *)
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  EnableScrollBar(DBGrid1.Handle,SB_VERT,ESB_ENABLE_BOTH); // ScrollBar activado
  Application.OnMessage:= nil;
end;

Edito: Si querés que también ignore las teclas arriba/abajo deberías evaluarlas en el evento OnKeyDown del DBGrid.

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 22-07-2011 a las 01:09:06.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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

Temas Similares
Tema Autor Foro Respuestas Último mensaje
marcar una fila seleccionada!! candido OOP 10 19-10-2007 15:53:46
Borrar fila seleccionada de un componente TStringGrid JM75 OOP 3 16-11-2006 10:31:06
cambiar color en fila seleccionada en un dbgrid gmontes OOP 2 05-05-2005 22:33:24
Fila seleccionada Dbgrid siempre en el centro Javier_A OOP 2 16-12-2004 16:39:51
como cambiar una fila seleccionada por otra en un DBgrid ? TURING Varios 1 04-08-2004 04:52:01


La franja horaria es GMT +2. Ahora son las 13:30:28.


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