| Вопрос: Клики мышью на DataGrid!!! Вторично! | Добавлено: 15.01.07 21:15 |
Автор вопроса:  art
|
|
Извиняюсь за дублирование, но нужно понять!
Что неужели никто не обрабатывал такие события? Почему MouseUp DataGrid'а всегда выдаёт значение Button=0? хоть какой кнопкой жми? Bug? |
| Ответы | Всего ответов: 9 |
|
Номер ответа: 1 Автор ответа:  Боцман ICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 15.01.07 22:18 |
|
Это не MouseUp,(хоть какой кнопкой жми? ) но уменя работает четко.
Private Sub DBGrid1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button And vbRightButton Then 'проверка, нажата ли правая клавиша мыши PopupMenu imMesiza End If End Sub или проверил так Private Sub DBGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox "", 0, "" End Sub Посмотри в настройках DataGrid, что-то ты там, перемудрил. |
||
|
Номер ответа: 2 Автор ответа: alexfor Вопросов: 28 Ответов: 68 |
Профиль | Цитата | #2 | Добавлено: 16.01.07 14:15 |
|
Артур привет!
Да вроде получается. Private Sub DataGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbRightButton Then 'If Button = 2 Then можно так 'If Button = 1 Then или так Beep With DataGrid1 .BackColor = vbRed .ToolTipText = "Smile" End With End If End Sub Алекс |
||
|
Номер ответа: 3 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | Цитата | #3 | Добавлено: 16.01.07 15:04 |
|
MouseDown работает. C up делаю новый проект, пишу такой код: Private Sub DataGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) MsgBox Button End Sub Всё время 0! To Боцман: а почему это не MouseUp? На любом другом элементе всё работат через up. |
||
|
Номер ответа: 4 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 16.01.07 15:39 |
|
Вот взял прям в своей программе и проверил.
Тест; P rivate Sub DBGrid1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MsgBox Button End Sub Возвращает следующие Левый клик 1 правый 2 средний 4 Это так же выдает и в MouseDown. Проверь у тебя Enabled = true? |
||
|
Номер ответа: 5 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | Цитата | #5 | Добавлено: 16.01.07 15:51 |
|
Блин ты случайно не на чистом DBGrid1
это хочеш поймать? У тебя он к чему привязан? |
||
|
Номер ответа: 6 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | Цитата | #6 | Добавлено: 16.01.07 16:28 |
| DataGrid висит на форме в нём отображение через dataenvironment. MouseDown работат чётко! | ||
|
Номер ответа: 7 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | Цитата | #7 | Добавлено: 16.01.07 17:50 |
|
В самом коде после MouseDown случайно не записано
DBGrid1. Enabled = true?
|
||
|
Номер ответа: 8 Автор ответа: БоцманICQ: 295725312 Вопросов: 53 Ответов: 830 |
Web-сайт: Профиль | Цитата | #8 | Добавлено: 16.01.07 17:52 |
|
ошибочка.
Я имел ввиду так..... DBGrid1. Enabled = false |
||
|
Номер ответа: 9 Автор ответа: artВопросов: 45 Ответов: 119 |
Профиль | Цитата | #9 | Добавлено: 16.01.07 17:59 |
| Dg1.enabled=true стоит в пропетях, в коде нигде не переключал. | ||
Страница: 1 |