Советы по Delphi. Версия 1.4.3 от 1.1.2001

 G := TSampleDBGrid(myDBGrid1);

 if G.Row = I then …

 if G.Col = J then …

Дело в том, что TDBGrid является потомком TCustomGrid, который имеет несколько свойств, содержащих координаты сетки, но это не опубликовано в TDBGrid.

…из чего я могу заключить, что вы должны это сделать программным путем. Подразумеваем, что сетка уже существует, и у вас есть доступ к основной таблице TTable:

grid.colcount := dbGrid.fieldcount;

table.first;

row := 0;

while not table.eof do begin

 grid.rowcount := row + 1;

 for i := 0 to grid.colcount-1 do

  grid.cells[i,row] := dbGrid.fields[i].asString;

 table.next;

 inc(row);

end;

Могут быть ошибки, но это должно помочь.

Посмотрите на следующий код, он может вам помочь. Он берет у элемента управления свойсто 'Name' и помещает его в свойство 'Caption' метки.

unit Unit1;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm1 = class(TForm)

 Label1: TLabel;

 Edit1: TEdit;

 Edit2: TEdit;

 Button1: TButton;

 procedure Button1Click(Sender: TObject);

 procedure Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

 procedure Edit2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

private

 { Private declarations }

public

 { Public declarations }

end;

var Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

 close;

end;

procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

 Label1.Caption := TEdit(Sender).Name;

end;

procedure TForm1.Edit2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

begin

 Label1.Caption := TEdit(Sender).Name;

end;

end. 

Включение ComboBox в TDBGrid

Delphi 1 

Вот основные шаги чтобы сделать это:

1. Создавайте и рисуйте TComboBox (CB) при получении ввода ячейки необходимой колонки табличной сетки

2. Получайте текущее значение поля (если имеется) и помещайте его в CB

3. После всех манипуляций, поместите новое значение обратно в поле

4. Избавляемся от CB 

DBLookupComboBox

Предустановка DBLookupComboBox

Delphi 1 

Вы можете редактировать ваш источник данных. Говорят, вы хотите сохранить ваши lookuping-данные из таблицы customer в таблицу sales – 'Cust No'? Вы можете просто проинициализировать поля (задать значение по умолчанию), редактируя таблицу sales «Cust No»

with tbSales do begin

 Edit;

 FieldByName('Cust No').AsInteger := 1;

 Post;

end; 

Сортировка DBLookupComboBox по вторичному индексу

Delphi 1 

Одним из способов вывести выши данные в другом порядке сортировки является использование TQuery и включение в SQL-запрос ключевого слова «order by». После чего вы можете установить этот запрос как DataSource в вашем DBLookupComboBox.

ПРИМЕР:

Если у вас имеется таблица Customer, содержащая «Customer_No» и «Customer_Name», и индексированная по Customer_No, то ваш запрос должен содержать в редакторе списка строк (свойство SQL) для вашего TQuery следующую строку:

select Customer_No, Customer_Name from Customer

 order by Customer_Name

Значение DBLookupComboBox

Я думаю что у меня есть то, что вы хотите. Если вы обратитесь к свойству LookUpValue, то вы получите поле, которое .... ищете.

Я надеюсь что помог вам.

unit clookup;

interface

uses SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBLookup;

type

 TDBJustLookupCombo = class(TDBLookupCombo)

 private