Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Вниз

Что показывает DBGrid   Найти похожие ветки 

← →
Alx2   (2001-12-27 10:28) [7]

Решение головоломки:
Значение ячейки, над которой курсор, отражается на Label1.
PS
Писано "на скорую руку"...

procedure TForm1.MainDBGridMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
Var
Cell: TGridCoord;
Column : TColumn;
BM : TBookMark;
deltaRow : integer;
aDataSet : TDataSet;
begin
aDataSet := MainDBGrid.DataSource.DataSet;
BM := aDataSet.GetBookmark;
aDataSet.DisableControls;
try
Cell := MainDBGrid.MouseCoord(X, Y);
if (Cell.X < MainDBGrid.IndicatorOffset) or (Cell.Y < 0) then Exit;

Column := MainDBGrid.Columns[Cell.X-MainDBGrid.IndicatorOffset];
deltaRow := Cell.Y-MainDBGrid.Row;
aDataSet.MoveBy(deltaRow);

Label1.Caption := Column.Field.AsString;

finally
with aDataSet do
begin
GotoBookmark(BM);
FreeBookmark(BM);
aDataSet.EnableControls;
end;
end;
end;


---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.003 c