Фиксированная колонка в MSFlexGrid

@Филин · Регистрация: 27.11.2007

Студворк — интернет-сервис помощи студентам

Здравствуйте... Такая странная штука. Есть фиксированная колонка в MSFlexGrid. Мне нужно по нажатию мыши на одну из ячеек этой колонки обработать событие... Но почему-то индекс этой колонки не выдаётся - а выдаётся индекс первой НЕфиксированной колонки... В чём дело ? Как это обойти ?
Спасибо.

20.09.2008, 17:35

Элементарно делается через преобразование координат, полученных из API-функции GetCursorPos, в координаты самого грида. В формуле участвуют координаты top-left угла как всей формы, так и грида. Получив координаты в момент _MouseUp, проверяешь десятью строчками кода, на какой столбец они пришлись, а затем делаешь с этим, что хочешь.

Если надо - могу прислать пример с исходниками.

@Филин · 21.09.2008, 08:58 **[ТС]**

Буду очень благодарен !
Я бы сам покопался, да разобрался, но просто это нужно очень срочно, а ещё и другой работы выше крыши...
Адрес мой - Filin-Coo@yandex.ru
Спасибо.

21.09.2008, 13:32

Выслал.

23.09.2008, 13:15

И мне , please
andrey104@mailru.com

@mt22 · 25.09.2008, 09:28

Пожалуйста, поделись с другими тоже...напиши для всех

@Филин · 25.09.2008, 09:52 **[ТС]**

Короче, для вытаскивания номеров строк, как и номеров столбцов, пишем :

Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Integer
Dim MyCol As Integer
Dim MyRow As Integer

For i = 0 To MSFlexGrid1.Rows - 1
If MSFlexGrid1.RowPos(i) < Y Then
MyRow = i
Else
End If
Next i
MsgBox 'Строка ' & MyRow
For i = 0 To 6
If MSFlexGrid1.ColPos(i) < X Then
MyCol = i
Else
End If
Next i
MsgBox 'Колонка ' & MyRow
End Sub

Проще пареной репы ! :-)

Удачи !

25.09.2008, 21:11

2 Филин: в твоём примере не учитывается, что из-за скроллинга ряд может 'уехать' за пределы видимости.

2 всем, кому выслал FlexGridTest.rar:

(а) в формулах для X_fg1 и Y_fg1 константа '15' - это на самом деле Screen.TwipsPerPixelX и ...Y, соответственно;
(б) проект работает только для Form1.ScaleMode = 1 (Twip). Для других значений надо переделывать формулы. Сам не копался в этом, но если кто-то это сделает - прошу поделиться;
(в) если кто знает, что за 'поправка' фигурирует в формулах (это которая принимает значения 45, 90 или 105), - тоже прошу информации.

Новые блоги и статьи Все статьи Все блоги /
Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .

@Филин 0 / 0 / 0 Регистрация: 27.11.2007 Сообщений: 60

	Фиксированная колонка в MSFlexGrid 19.09.2008, 10:48. Показов 1432. Ответов 7 Метки нет (Все метки) Здравствуйте... Такая странная штука. Есть фиксированная колонка в MSFlexGrid. Мне нужно по нажатию мыши на одну из ячеек этой колонки обработать событие... Но почему-то индекс этой колонки не выдаётся - а выдаётся индекс первой НЕфиксированной колонки... В чём дело ? Как это обойти ? Спасибо. 0

Comanche
	20.09.2008, 17:35
	Элементарно делается через преобразование координат, полученных из API-функции GetCursorPos, в координаты самого грида. В формуле участвуют координаты top-left угла как всей формы, так и грида. Получив координаты в момент _MouseUp, проверяешь десятью строчками кода, на какой столбец они пришлись, а затем делаешь с этим, что хочешь. Если надо - могу прислать пример с исходниками.

@Филин 0 / 0 / 0 Регистрация: 27.11.2007 Сообщений: 60
	21.09.2008, 08:58 [ТС]
	Буду очень благодарен ! Я бы сам покопался, да разобрался, но просто это нужно очень срочно, а ещё и другой работы выше крыши... Адрес мой - Filin-Coo@yandex.ru Спасибо. 0

ponch
	23.09.2008, 13:15
	И мне , please andrey104@mailru.com

@mt22 1 / 1 / 0 Регистрация: 03.08.2007 Сообщений: 155
	25.09.2008, 09:28
	Пожалуйста, поделись с другими тоже...напиши для всех 0

@Филин 0 / 0 / 0 Регистрация: 27.11.2007 Сообщений: 60
	25.09.2008, 09:52 [ТС]
	Короче, для вытаскивания номеров строк, как и номеров столбцов, пишем : Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim i As Integer Dim MyCol As Integer Dim MyRow As Integer For i = 0 To MSFlexGrid1.Rows - 1 If MSFlexGrid1.RowPos(i) < Y Then MyRow = i Else End If Next i MsgBox 'Строка ' & MyRow For i = 0 To 6 If MSFlexGrid1.ColPos(i) < X Then MyCol = i Else End If Next i MsgBox 'Колонка ' & MyRow End Sub Проще пареной репы ! :-) Удачи ! 0

Comanche
	25.09.2008, 21:11
	2 Филин: в твоём примере не учитывается, что из-за скроллинга ряд может 'уехать' за пределы видимости. 2 всем, кому выслал FlexGridTest.rar: (а) в формулах для X_fg1 и Y_fg1 константа '15' - это на самом деле Screen.TwipsPerPixelX и ...Y, соответственно; (б) проект работает только для Form1.ScaleMode = 1 (Twip). Для других значений надо переделывать формулы. Сам не копался в этом, но если кто-то это сделает - прошу поделиться; (в) если кто знает, что за 'поправка' фигурирует в формулах (это которая принимает значения 45, 90 или 105), - тоже прошу информации.

Опции темы