Evento en Barra de Desplazamiento DBgrid

[yugi789]

Hola, necesito que se active un evento al hacer click en las flechitas de la barra de desplazamiento del dbgrid. Me pueden decir cual es ese evento o alguna manera de realizarlo?.Muchas gracias.

[ecfisa]

Empezado por yugi789

Hola, necesito que se active un evento al hacer click en las flechitas de la barra de desplazamiento del dbgrid. Me pueden decir cual es ese evento o alguna manera de realizarlo?.Muchas gracias.

Hola yugi789.

Hasta donde sé, no hay un evento que se dispare ante el click de las flechas del ScrollBar. Pero podrías detectar el click sobre el área del ScrollBar (incluyendo las flechas).

Ejemplo:

Código Delphi [-]
...
 TForm1 = class(TForm)
    ...
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
     procedure AppEventMessage(var Msg: tagMSG; var Handled: Boolean);
  public
  end;
....
implementation

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

procedure TForm1.AppEventMessage(var Msg: tagMSG; var Handled: Boolean);
begin
  if (Msg.message = WM_NCLBUTTONDOWN)and(Msg.hwnd = DBGrid1.Handle) then
     Caption:= 'Click en Scroll Bar'
  ...
end;
...

Saludos.

[yugi789]

Muchisimas gracias! Tu respuesta soluciono mi problema completamente.Saludos.