Delphi. DBGridEh. Как получить данные ячейки при наведении на неё курсора мыши?

Question

[KTG]

Хочу при наведении на ячейку DBGridEh получать ID записи и что бы в правой части ячейки появлялась кнопка.
Кнопка одна для всех записей, представляет из себя TPanel в инвизе с событием OnClick.

Я навожу курсор мыши на ячейку, панель перемещается в нужно место, меняет свойство Visible и Enable на true, в её событии нажатия обрабатываю запись с ID в этой же ячейки. (Выбранная запись в DBgridEh не меняется).

Нашел такой способ:

procedure TFSprav.DBGridEh2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 grCoord: TGridCoord;
 aGrid: TCrackDBGrid;
 NewActiveRecord, oldActiveRecord: integer;
 delta: string;
begin
  aGrid := TCrackDBGrid(Sender);
  grCoord := aGrid.MouseCoord(X, Y);
    aGrid.DataSource.DataSet.DisableControls;
      oldActiveRecord := aGrid.DataLink.ActiveRecord; // запоминаем текущую строку (отображаемую) не номер записи
      newActiveRecord := grCoord.Y - aGrid.DataLink.ActiveRecord; // получаем положение строки на которой наведена мышка.
    aGrid.DataLink.MoveBy(newActiveRecord);
    delta := aGrid.DataLink.DataSet.FieldByName('Name').AsString;
   if grCoord.X > 0 then
    begin
     caption := delta;
    end;
   aGrid.DataLink.ActiveRecord := oldActiveRecord; // возвращаем положение к изначальной строке
   aGrid.DataSource.DataSet.EnableControls;
end;

Но возникла трудность.
На DataSource стоит обработчик события OnDataChange, который передает ID выбранной в гриде записи в параметры другого ADOQuery.

По отдельности оба методы работают, а вместе - нет. Программа залипает в тот момент когда происходит MoveBy у DataSet при изменении положения курсора, он вызывает событие OnDataChange, что при перерисовке видимо опять получает положение мыши и вызывает MoveBy и так по кругу, пока курсор мыши не уберу с грида.

Как поправить?

Answer 1

[KTG]

type
  TCrackDBGrid = class(TDBGridEh)
  end;
...
var
  MoveFlag: integer;
...
procedure TFSprav.DBGridEh2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
 grCoord: TGridCoord;
 aGrid: TCrackDBGrid;
 NewActiveRecord, oldActiveRecord: integer;
 delta: string;
begin
  if MoveFlag <> 1 then
    begin
      MoveFlag := 1;
      aGrid := TCrackDBGrid(Sender);
        grCoord := aGrid.MouseCoord(X, Y);
        aGrid.DataSource.DataSet.DisableControls;

          oldActiveRecord := aGrid.DataLink.ActiveRecord; 
          newActiveRecord := grCoord.Y - aGrid.DataLink.ActiveRecord; 

      aGrid.DataLink.MoveBy(newActiveRecord);
      delta := aGrid.DataLink.DataSet.FieldByName('Name').AsString;

      if grCoord.X > 0 then
        begin
         caption := delta;
        end;

     aGrid.DataLink.ActiveRecord := oldActiveRecord;
     aGrid.DataSource.DataSet.EnableControls;

      MoveFlag := 0;
    end;
end;


procedure TFSprav.dsMainCatDataChange(Sender: TObject; Field: TField);
begin
  if MoveFlag = 0 then
  begin
  qCat.Active := false;
    qCat.Parameters.ParamByName('id_MainCat').Value := dsMainCat.DataSet.FieldByName('id').AsInteger;
  qCat.Active := true;
  end;

end;

Comments

[KTG]

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

С DBgridEg все оказалось легче.
Ставим на DBgrid параметр ShowHint := true;
Дальше у колонки на событии OnDataHintShow вешаем код:
[code]
var
rect: TRect;
rectX, rectY : extended;
begin
rect := Sender.CellRect(Cell.X, Cell.Y);
rectX := Rect.TopLeft.X + Rect.Width;
rectY := Rect.TopLeft.Y + Rect.Height/2 + Rect.Height - 1;

btn_delMainCat.Visible := true;
btn_delMainCat.Left := trunc(rectX - btn_delMainCat.Width/2);
btn_delMainCat.Top := trunc(rectY);

caption := Sender.DataSource.DataSet.FieldByName('Name').AsString;
[/code]

[KTG]

KTG: без всяких явных переходов по записям, без дополнительных запоминаний где-то там текущей записи, без глюков с контролами.
"Все уже украдено* до нас" (*разработано) :D

Answer 2

[Alex]

Ну дак в момент MoveBy
DBGridEh2.OnMouseMove := nil
а после манипуляций
DBGridEh2.OnMouseMove := DBGridEh2MouseMove

Comments

[KTG]

показалось хорошая идея, но нет. все равно почему-то залипает

Суть залипания такая:
В первом гриде выводятся названия категорий, во втором гриде названия элементов категорий.
Если я нажимаю на пустую категорию - все ок. Грид выделяет её.
Если нажимаю на НЕ пустую категорию - в этом же гриде запись не переключается и не выделяет, во втором начинает моргать вертикальный скроллбар. Как только мышку вывожу за пределы грида, все срабатывает.

В OnDataChange делаю так:

qCat.Active := false;
    qCat.Parameters.ParamByName('id_MainCat').Value := dsMainCat.DataSet.FieldByName('id').AsInteger;
  qCat.Active := true;

[Alex]

qCat.DisableControls

[KTG]

Alex: да. теперь запись выделяется. во втором гриде сразу же отображаются записи, но теперь второй грид скидывает выделенную запись.

Может изначально подход не правильный?

[Alex]

KTG: Скорее всего.Я так и не понял, зачем там плавающая панель и что то еще...

[KTG]

Alex: есть список категорий. я хочу что бы при наведении на любую категорию, справа от нее появлялась кнопка удаления этой категории, но при этом, текущая выбранная категория не менялась.

[KTG]

Спасибо за идею. По крайне мере дало сподвижки. Объявил глобальную переменную MoveFlag. В событии OnMouseMove выполняю код если равно 0. Как только в событие зашло, берет = 1. По завершения опять 0.
В событии OnDataChange так же код срабатывает если MoveFlag равен 0.

По итогу не нужно будет отвязывать событие и отключать у qCat контролс.

[Alex]

KTG: НУ как то странно всеравно. Т.е. без клика что то выделять...

[KTG]

Нет. Не выделяет. Выделяю кликом, или стрелочками, или скроллом мыши. А при наведении я лишь получаю дополнительно данные строки под мышкой.

Грубо говоря, на примере 10-ой винды, у тебя открыто на панели задач 5 вкладок и тебе достаточно навести курсор на иконку, что бы получить картинку-миниатюру открытого окна или приложения. Или что бы закрыть, не надо переключаться, просто жмешь правой кнопкой мыши и в меню "закрыть".
А активное окно, браузера, по прежнему отображается на экране )))

[Alex]

KTG: Все равно не понимаю, зачем тогда какие то действия с курсором?

Answer 3

[Константин Цветков]

aGrid := TCrackDBGrid(Sender);

Не надо ломать DBGridEh.
А перемещаться нужно не по сетке, а по записям, используя Bookmark для фиксации позиции и MoveBy для её изменения.

Comments

[KTG]

Как по координатам мыши перемещаться по записям?

Просто на сколько я понял. DBgrid и DataSet - разные вещи, одно рисунок, второе набор данных, координаты есть только у грида. Связывает их DataLink который объясняет где в какой ячейке запись рисовать.

[KTG]

Это при том, что получаю я координаты ячейки, но что бы получить ее данные, нужно на неё встать.
И в принципе, ActiveRecord и дает текущую запись.

[KTG]

type
TCrackDBGrid = class(TDBGridEh)