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

Вниз

Координаты ячейки DBGrida a   Найти похожие ветки 

 
D@Nger ©   (2006-07-03 12:18) [0]

Как узнать координаты выделенной ячейки DBGrida.


 
Desdechado ©   (2006-07-03 12:30) [1]

C какой целью? Может, есть более простые способы для ее достижения.


 
D@Nger ©   (2006-07-03 12:47) [2]

В общем так... У столбца ДБГрида поставил св-во ButtonStyle = cbsEllipsis. В ячейке этого столбца появилась кнопка выбора. Я хочу при нажатии на эту кнопку выводить PopUp окошко возле этой ячейки.


 
MsGuns ©   (2006-07-03 13:32) [3]

type
 TDBGridCrack = class (TCustomGrid);

function DBServ_GetActiveGridCellRect(Grid: TDBGrid): TRect;
//*** Возвращает TRect активной ячейки грида
begin
 result.Top := 0; result.Left := 0; result.Bottom := 0; result.Right := 0;
 if dgRowSelect in Grid.Options then exit;
 if Grid.DataSource.DataSet.RecordCount=0 then exit;
 result := TDBGridCrack(Grid).CellRect(TDBGridCrack(Grid).Col,TDBGridCrack(Grid).Row);
end;


 
D@Nger ©   (2006-07-03 13:45) [4]

Спасибо!


 
Apollon_604   (2006-07-06 18:00) [5]

а не легче ли так?

PopupMenu.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);

а координаты ячейки берутся из TRect:

var
 a: TRect;
begin
  a := sg.CellRect(sg.Selection.Top, sg.Selection.Left);
end;



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

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

Наверх




Память: 0.47 MB
Время: 0.03 c
2-1152561496
Mr tray
2006-07-10 23:58
2006.07.30
keybd_event


2-1152523290
Darkwing
2006-07-10 13:21
2006.07.30
Выделяется ли новая область памяти в данном случае?


2-1152527968
Milashka
2006-07-10 14:39
2006.07.30
Boolean-поля в InterBase


11-1130966214
NORDmen
2005-11-03 00:16
2006.07.30
run-time packages&kol


2-1152703541
Anonymous55
2006-07-12 15:25
2006.07.30
constraints->minheight