TDBGrid отловить событие мышки (переход на строку)

[KBO]

Доброе время суток,
Мне нужно отловить нажатие левой кнопки мышки именно на TDBGrid, при переходе на другую строку (знать, что это пользователь нажал кнопку мышки на TDBGrid).
В TDBGrid такого события нет
Как это сделать?

Заранее спасибо
P.S.
Событие - TDataSource.OnDataChange - конечно же не подходит

Нашел только такой метод (на сайте):

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids;

type
  TForm1 = class(TForm)
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    FOldDBWndProc : TWndMethod;
    procedure NewWndProc(var Msg : TMessage);
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  FOldDBWndProc := DBGrid1.WindowProc;
  DBGrid1.WindowProc := NewWndProc;
end;

procedure TForm1.NewWndProc(var Msg: TMessage);
begin
  if Msg.Msg = WM_LBUTTONDOWN then
    begin
      //обрабатывам
    end;
  FOldDBWndProc(Msg);
end;

end.

[Stilet]

В TDBGrid такого события нет

OnMouseDown нет?

[KBO]

Сообщение от Stilet

OnMouseDown нет?

Создал новый проект с работой БД.
Вот cобытие "OnMouseDown" - не работает при нажатии кнопки мышки на DBGrid,
а событие "OnCellClick" - работает.

А в моем основном приложении, работает только код приведенный в #1

Нашел в чем причина, но пока не могу обяснить.
Итак, у меня есть
1. обработчик DataSet:

procedure TFMain.ibdsWordAfterScroll(DataSet: TDataSet);
//процедура AfterScroll перенесена из-за того, что ее иногда нужно запускать как в самом AfterScroll, так и вне события AfterScroll;
begin
  if WORK_SCROLL then
    AFTER_SCROLL;
end;

2. имеется функция:

function TFMain.WORK_SCROLL: boolean;
//permit work AfterScroll & BeforeScroll
begin
  if ((sbSearch.Down)
    or (mmModeDataEdit.Checked)
    or (sbActivization.Down = false))
    and (Pr_UserClick = false) then
begin
showmessage('Pr_UserClick = false');
    Result := false
end
  else
begin
showmessage('Pr_UserClick = true');
   Result := true;
end
end;

3. и обработчик grig'а

procedure TFMain.dbgrWordsCellClick(Column: TColumn);
begin
showmessage('click on grid');
  Pr_UserClick := true;
end;

Если в 1. закоментировать только условие (только первую строчку), то 3. срабативает на всех ячейках grid'а, вклчая переход с строки на строку.
Если не коментировать (оставить все как есть), то 3. работает только при переходах по колонкам на каждой из строк

[Stilet]

showmessage

А это зачем? Фокус только сбрасывать.
Вообще что именно ты хотел описать по условию перехода по записям?

то 3. работает только при переходах по колонкам на каждой из строк

Потому что AfterScroll реагирует только на смену активной записи, а переход по колонкам это смена активного поля записи
Т.е. ibdsWordAfterScroll просто не должно выполняться, если скакать по колонкам.

[Stilet]

Может лучше когда он нажмет на "Enter",

Вопрос в том что нужно. Я так до конца и не понял зачем эти обработчики да еще и такие сделаны были.

[KBO]

Сообщение от Stilet

А это зачем? Фокус только сбрасывать.
Вообще что именно ты хотел описать по условию перехода по записям?

просто, уменя есть процедура "AFTER_SCROLL" которая должна выполняться при некоторых уловиях, описанных в 2.,
а одно из условий "Pr_UserClick = true;", говорит, что это пользователь нажал на ячейку мышкой, и процедура должна выполнится.

Сообщение - просто, чтоб видеть, что это событие сработало (в первичном коде его НЕ будет)

Сообщение от Stilet

Потому что AfterScroll реагирует только на смену активной записи, а переход по колонкам это смена активного поля записи
Т.е. ibdsWordAfterScroll просто не должно выполняться, если скакать по колонкам.

Нет, подождите 3., казалось должно выполняться при всех условиях. Я же щелкаю по grid. Это к "AfterScroll" отношения не имеет

[Stilet]

3., казалось должно выполняться при всех условиях.

Но это же не обычный грид. Поставь бряк в эти события и посмотри в какой последовательности они будут выполняться. Вполне вероятно, что Click перебивается событиями. Я давно не работаю с этим компонентом, поэтому никогда таких проблем не имел.

[KBO]

Да, правда, сначало "BeforeScroll" и "AfterScroll", ну а потом и смысла нет в "CellClick".
Придется воспользоваться кодом #1. Который работает как мне нужно.

[Аватар]

Та нормально OnCellClick в DBGrid работает. Накрутил не пойми чего

[KBO]

Сообщение от Аватар

Та нормально OnCellClick в DBGrid работает. Накрутил не пойми чего

Эт.., точно

Но при таком раскладе

procedure TForm1.bvDBGrid1CellClick(Column: TColumn);
begin
  showmessage('click on dbgrid');
end;

procedure TForm1.IBDataSet1AfterScroll(DataSet: TDataSet);
begin
 showmessage('afterscroll');
end;

procedure TForm1.IBDataSet1BeforeScroll(DataSet: TDataSet);
begin
 showmessage('beforescroll');
end;

сообщение 'click on dbgrid' - тоже не выводится