Фиксированная колонка в 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), - тоже прошу информации.

Новые блоги и статьи Все статьи Все блоги /
Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .

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

	Фиксированная колонка в MSFlexGrid 19.09.2008, 10:48. Показов 1423. Ответов 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), - тоже прошу информации.