[yurayura]

есть данные полученные с помощью ADOQuery1
они выводятся в DBGrid1
все никак не могу найти способ как обратится к записям в этой DBGrid1
нету свойств Row или Cell
надо всего лишь заполнить ListBox1 значениями первого столбца

[Viajero]

Этих свойств нету у TDBGrid, но есть у TCustomGrid (они protected и можно их вытащить в классе-наследнике).
Можно попробовать это:

Код:

{

Код улучшенного TDBGrid, имеющего свойства Col,

Row и Canvas и метод CellRect. Это чрезвычайно

полезно в случае, если вы, к примеру, хотите

получить выпадающий список на месте редактируемой

пользователем ячейки.

}

 

unit VUBComps;

 

interface

 

uses

 

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,

Forms, Dialogs, Grids, DBGrids, DB, Menus;

 

type

 

TDBGridVUB = class(TDBGrid)

private

   { Private declarations }

protected

   { Protected declarations }

public

   property Canvas;

   function CellRect(ACol, ARow: Longint): TRect;

   property Col;

   property Row;

 

   procedure Register;

 

implementation

 

procedure Register;

begin

 

RegisterComponents('VUBudget', [TDBGridVUB]);

end;

 

function TDBGridVUB.CellRect(ACol, ARow: Longint): TRect;

begin

 

Result := inherited CellRect(ACol, ARow);

end;

 

end.
 

 

 

 

©Drkb::03050

       

Взято с http://delphiworld.narod.ru

Можно также попробовать найти и установить компоненты EhLib, там есть очень навороченный TDBGridEh с нужными свойствами.

[NumLock]

ну так оставь в DBGrid1 только первый столбец тогда и ListBox1 не нужен)

[yurayura]

нашел ehlib 5.3 (http://rghost.ru/4706141)
но совершенно не знаю как устанавливать
можете подсказать что делать с этими файлами?

[Viajero]

Файлы dpk нужно запустить, а вообще ещё руководство к нему есть (отдельно в интернете можно найти). Кстати этот пакет какой-то неполный. У меня был 5.2 с руководством и с exe инстоллером. A чем не устроил VUBComps?

[yurayura]

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

A чем не устроил VUBComps?

пропущен end перед implementation
потом ошибка : E2065 Unsatisfied forward or external declaration 'TDBGridVUB.Register'

[yurayura]

а не, END надо поставить перед Register , тогда нет ошибок.
Как теперь вытащить компонент на панель инструментов?