Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];
ВнизАктивная ячейка 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 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.27;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.009 c