Главная страница
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.041 c
3-1095399065
Павел
2004-09-17 09:31
2004.10.17
Выбрать из таблицы.....mssql


14-1096045730
VictorT
2004-09-24 21:08
2004.10.17
Вот такой вот спам пришёл...


3-1095653576
FasetByte
2004-09-20 08:12
2004.10.17
Grid index out of range


4-1095111547
Jetus
2004-09-14 01:39
2004.10.17
Набор тел.номера модемом


9-1085995955
FRick
2004-05-31 13:32
2004.10.17
GLScene как сделать консоль!!