Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.10.17;
Скачать: CL | DM;

Вниз

как узнать координату ячейки в DBGrid?   Найти похожие ветки 

 
Artem123   (2004-10-01 10:23) [0]

Как узнать координату правого нижнего угла текущей ячейки, в DBGrid.


 
Skeptik   (2004-10-01 10:31) [1]

объяви:
type
 TDBGridAccess = class(TDBGrid);

и в коде:
 with TDBGridAccess(DBGrid) do
   CellRect(Col, Row).BottomRight;


 
Artem123   (2004-10-01 10:44) [2]

Как узнать эту выделенную ячейку, т.к. в процедуру OnCellCklick передается только колонка, а как найти ячейку?


 
Skeptik   (2004-10-01 11:09) [3]

так надеюсь понятно:
type
TDBGridAccess = class(TDBGrid);

procedure TCustomWizardFrm.DBGrid1CellClick(Column: TColumn);
var
 vCoord: TGridCoord;
 vMousePoint, vSeekPoint: TPoint;
begin
// позиция курсора в гриде
 vMousePoint := column.Grid.ScreenToClient(Mouse.CursorPos);
// координаты ячейки под курсором
 vCoord := column.Grid.MouseCoord(vMousePoint.x, vMousePoint.y);
// координаты нижнего правого угла ячейки
 with TDBGridAccess(column.Grid) do
  vSeekPoint := CellRect(vCoord.X, vCoord.Y).BottomRight;
 ShowMessage("BottomRight point of cell[" +
             IntToStr(vCoord.X) + "," + IntToStr(vCoord.Y) + "] = (" +
             IntToStr(vSeekPoint.x) + "," + IntToStr(vSeekPoint.Y) + ")");
end;
так понятно?



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

Текущий архив: 2004.10.17;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.023 c
14-1096539245
DSKalugin
2004-09-30 14:14
2004.10.17
Авторские права на ПО, патентование, контракт...


14-1096548475
Guest
2004-09-30 16:47
2004.10.17
Срочно нужен совет


14-1095940887
_silver
2004-09-23 16:01
2004.10.17
Собрался жениться


3-1095770374
Nick-From
2004-09-21 16:39
2004.10.17
Вопрос по FibPlus


3-1095536017
dron-s
2004-09-18 23:33
2004.10.17
Как добавить одинаковые данные в две базы