Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.008 c
1-89814
TUser
2003-11-17 10:34
2003.11.27
FullScreen


3-89780
IronHawk
2003-11-06 15:18
2003.11.27
Приветствую Мастеров! Как через ADO в Delphi работать с записями:


3-89721
Мыш
2003-11-09 23:33
2003.11.27
Проблемы создания виртуальной таблицы. SQL


1-89906
Frol
2003-11-12 01:10
2003.11.27
Вычисление определенного интеграла


3-89792
redfox
2003-11-06 16:20
2003.11.27
TExcelWorkSheet





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский