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

Вниз

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

← →
Alx2   (2001-12-27 10:47) [9]

Получилось!

Type
TMyGrid = class (TDBGrid)
public
property IndicatorOffset;
property Row;
end;

procedure TMainForm.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 < TMyGrid(MainDBGrid).IndicatorOffset) or (Cell.Y < 0) then Exit;

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

Label6.Caption := Column.Field.AsString;

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



---

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

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

Наверх

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