Cita:
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.