Как обработать двойной щелчок в определенной ячейке DBGrid?

[Dux]

Кто знает, подскажите..

[_Engine_]

OnDblClick + Col + Row + F1

[vvviperrr]

2Dux так не делают. обрабатывай двойной клик на гриде, и проверяй, че за ячейка

[Dux]

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

2Dux так не делают. обрабатывай двойной клик на гриде, и проверяй, че за ячейка

Можно пример в студию, как проверить над какой ячейкой был двойной щелчок? заранее спасибо

[_Engine_]

в обработчике OnDblClick напиши и удивись:
ShowMessage('Col:' + IntToStr(DBGrid1.Col) + ' Row:' + IntToStr(DBGrid1.Row));

[Dux]

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

в обработчике OnDblClick напиши и удивись:
ShowMessage('Col:' + IntToStr(DBGrid1.Col) + ' Row:' + IntToStr(DBGrid1.Row));

Не работает, не понимает DBGrid1.Col и DBGrid1.Row

[_Engine_]

Извини, облажался .
Сделай так:
объяви у себя такой класс:

THackGrid = class(TDBGrid)
  public
    property Col ;
    property Row;
  end;

и в обработчике OnDblClick напиши:

ShowMessage(IntToStr(THackGrid(DBGrid1).Col) + ' ' + IntToStr(THackGrid(DBGrid1).Row))

[Dux]

все-равно какая-то лажа, в какой бы ячейке не кликнул сообщение одно и тоже "11"

[_Engine_]

У меня работает.
Показывай код.

[Dux]

unit Unit12;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Grids, DBGrids, Db, DBTables,inifiles,ComObj, variants, ComCtrls,
  ExtCtrls, Menus, Buttons,clipbrd;

type

   THackGrid = class(TDBGrid)
     public
       property Col ;
       property Row;
      end;
  TPlanningForm = class(TForm)
    DBGrid1: TDBGrid;
    ComboBox1: TComboBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
********************

procedure TPlanningForm.DBGrid2DblClick(Sender: TObject);
begin
ShowMessage(IntToStr(THackGrid(DBGrid1).Col) + ' ' + IntToStr(THackGrid(DBGrid1).Row));
end;