PopUpMenu for Text Control

[Чудик]

Почему при PopUpMenu в MouseDown на TextBox высвечивается не пользовательское меню, а системное? Лишь при двойном клике высвечивается именно пользователькое меню.

[Ruslan Demidow]

Почему при PopUpMenu в MouseDown на TextBox высвечивается не пользовательское меню, а системное? Лишь при двойном клике высвечивается именно пользователькое меню.

http://bbs.vbstreets.ru/viewtopic.php?t=4841&highlight=popupmenu

[Чудик]

Хитро! Спасибо!

[Чудик]

Не получается избавиться от родного подконтекстного меню TextBox, предложенный вариант не работает, так как событие на появление родного меню наступает раньше, чем событие MouseDown или MouseUp.
Как обойти ситуацию, не знаю.

[Konst_One]

все нормально работает:

Код: Выделить всё

Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 2 Then
    Me.Text1.Enabled = False
    Me.PopupMenu Me.mnuPop, 2
    Me.Text1.Enabled = True
End If

End Sub

проверяй внимательно

[Чудик]

Угу, работает. Я без двойки делал (я про флаг).

[SAS]

Почему при PopUpMenu в MouseDown на TextBox высвечивается не пользовательское меню, а системное? Лишь при двойном клике высвечивается именно пользователькое меню.

http://bbs.vbstreets.ru/viewtopic.php?t=4841&highlight=popupmenu

А можно ли программным способом вызвать стандартное контекстное меню какого-либо контрола (того же текстбокса)?

[tyomitch]

А можно ли программным способом вызвать стандартное контекстное меню какого-либо контрола (того же текстбокса)?

Через TrackPopupMenu - нет, по крайней мере у текстбокса: его меню создаётся каждый раз при клике, а не хранится где-то.
Максимум что можно - послать контролу WM_CONTEXTMENU.