Курсор в DBGRID

[Михаил Юрьевич]

Нужно в переменную записать данные одной ячейки,как записать я знаю, если код разместить в DBGrid1CellClick и щелкать мышью по разным строкам,то все нормально. Но как отследить перемещение курсора в таблице. Где можно отследить событие которое передает сам курсор если прокручивать колесиком мышки?

[Михаил Юрьевич]

Спасибо! разобрался отследить можно в DrawColumnCell

[Stilet]

Но как отследить перемещение курсора в таблице.

OnAfterScroll компонента, через который получается набор данных (С которым Грид связан через DataSet)

отследить можно в DrawColumnCell

Как???

[Михаил Юрьевич]

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

OnAfterScroll компонента, через который получается набор данных (С которым Грид связан через DataSet)

Как???

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

Он у меня через QWERY связан, а там нет OnAfterScroll

Спасибо! Все нашел,Все работает.

[Stilet]

Не поверишь

Поверю, только...
Я правильно понимаю - DrawColumnCell вызывается всякий раз когда требуется перерисовка? Если требуется перерисовка всех ячеек а при этом ты нагружаешь еще и получением данных с набора, то программа проходится по всем данным, которые могут быть отображены на экране. Где логика такой стратегии? Смысл перебирать все что видимо ради одной ячейки?

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

unit Unit1;

interface

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

type
  TDBGrid = class(DBGrids.TDBGrid)
   procedure WMVScroll(var Message: TWMMouseWheel); message WM_MouseWheel;
  end;
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Table1: TTable;
    Memo1: TMemo;
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin

end;

{ TDBGrid }

procedure TDBGrid.WMVScroll;
begin
 with Form1 do begin
  if Message.WheelDelta<0 then DBGrid1.DataSource.DataSet.FindNext
  else DBGrid1.DataSource.DataSet.FindPrior;
  Memo1.Lines.Add(DBGrid1.SelectedField.AsString);
  Caption:=IntToStr(Memo1.Lines.Count);
 end;
end;

end.

Надеюсь идея понятна?
Али пояснитьки?

Все нашел,Все работает.

Эм... Delphi XE?

[Михаил Юрьевич]

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

AfterScroll увы не работает с роллером мышки

Работает, ща немного погоняю,но на первый взгляд все нормально
Работаю с компонентом Absolute Database на Delphi 7

[Stilet]

Работаю с компонентом Absolute Database

А-а-а... Так это нестандартка что-ли...

[Михаил Юрьевич]

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