Скачать: CL | DM;

Активная ячейка StringGrid а. Какая?   Найти похожие ветки 

← →
Alexis ©   (2003-11-15 00:46) [0]

Как при работе со StringGrid"ом определить адрес активной ячейки.Может есть свойство или функции, возвращающие значения координат активной ячейки?

И еще вопрос- допустим на момент начала работы со StringGrid"ом у меня активна крайняя ячейка, т.е. [0,0].При правом клике по StringGrid"у появляется Popup Menu.Но вот ячейка, над которой находился курсор и появилось Popup Menu не становится активной-по прежнему активна [0,0]. Как сделать так, чтобы при Right Click появилось меню и активизировалась нужная ячейка.
Заранее благодарю за помощь.

---

← →
real_dimedrol   (2003-11-15 01:03) [1]

Я уже мудался с этим вопросом. Где-то в королевстве или здесь подсоветовали. Там как-то через пень-колоду, но работало.

---

← →
real_dimedrol   (2003-11-15 01:06) [2]

Хотя там мне нужна была ячейка под курсором с учетом скроллирования.

---

← →
ЮЮ ©   (2003-11-17 05:35) [3]

>определить адрес активной ячейки

TCustomGrid.Col
TCustomGrid.Row

>Как сделать так, чтобы при Right Click появилось меню и активизировалась нужная ячейка

В OnMouseDown определить ячейку, над которой находимся, установит вычисленные Col и Row, самостоятельно показать Popup Menu

---

← →
Alexis ©   (2003-11-17 15:33) [4]

А ячейку, над которой находимся, надо определять исходя из координат курсора, расстояния StringGrid"а от краев экрана и размеров колонок и рядов StringGrid"а, как я понимаю?

---

← →
Семен Сорокин ©   (2003-11-17 15:42) [5]

2Alexis
MouseToCell

---

← →
Александр из Минска ©   (2003-11-17 15:48) [6]

uses ..., Grids;
.....
procedure TForm1.StringGrid1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
gd : TGridCoord;
begin
if Button = mbRight then
begin
gd := StringGrid1.MouseCoord(X, Y); // в gd.X = Col, в gd.Y = Row
if (gd.X = 0) and (gd.Y <> 0) then
begin
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
end;
end;

А при создании ставь в StringGrid1.PopupMenu PopupMenu1, потом PopupMenu1.AutoPopup в False

Выпадет меню при нажатии на любую ячейку в 0-ом столбе (исключая 0-ой ряд)

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.016 c