getting doubleclick on a menu-popping control

[Bob]

My control pops a menu (below, not directly under, the pointer) OnMouseDown,
and, probably because of the loss of focus, OnDoubleClick doesn't fire any
more. Is there a way to get doubleclick back without some ugly workaround?

TIA,
Bob

[Marc Butenko]

Why don't you fix it so that the MouseDown only pops the menu on a right
click? That will allow a left double click to trigger the other event you
desire.

Will that work for you?

--
Marc Butenko
mb******@bresna n.net

"Bob" <no****@nowhere .com> wrote in message
news:Oa******** ********@TK2MSF TNGP09.phx.gbl. ..

My control pops a menu (below, not directly under, the pointer) OnMouseDown, and, probably because of the loss of focus, OnDoubleClick doesn't fire any
more. Is there a way to get doubleclick back without some ugly workaround?

TIA,
Bob

[Bob]

No, that's not acceptable. This is a button that must function like the menu
icon at the top left-hand corner of a windows form. You left-click it, you
get a menu. You double left-click it, it closes the form.

Bob

"Marc Butenko" <mb******@state .mt.us> wrote in message
news:eO******** ******@TK2MSFTN GP12.phx.gbl...

Why don't you fix it so that the MouseDown only pops the menu on a right
click? That will allow a left double click to trigger the other event you
desire.

Will that work for you?

--
Marc Butenko
mb******@bresna n.net

"Bob" <no****@nowhere .com> wrote in message
news:Oa******** ********@TK2MSF TNGP09.phx.gbl. ..

My control pops a menu (below, not directly under, the pointer)

OnMouseDown,

and, probably because of the loss of focus, OnDoubleClick doesn't fire any more. Is there a way to get doubleclick back without some ugly workaround?
TIA,
Bob

[Bob]

Well I got something reasonable working...

Bob

------

Public Class UserControl1
Inherits System.Windows. Forms.Control

Private WithEvents DoubleClickTime r As Timer

Public Sub New()
DoubleClickTime r = New Timer
DoubleClickTime r.Interval = 500
Me.ContextMenu = New ContextMenu
Me.ContextMenu. MenuItems.Add(" something")
End Sub

Protected Overrides Sub OnMouseDown(ByV al e As
System.Windows. Forms.MouseEven tArgs)
If ReadyForDoubleC lick Then
Me.OnDoubleClic k(e)
Else
Me.ContextMenu. Show(Me, New Point(e.X, e.Y + 10))
End If
MyBase.OnMouseD own(e)
End Sub

Protected Overrides Sub OnDoubleClick(B yVal e As System.EventArg s)
ReadyForDoubleC lick = False
MsgBox("test")
MyBase.OnDouble Click(e)
End Sub

Private Property ReadyForDoubleC lick() As Boolean
Get
Return Not timerticked
End Get
Set(ByVal Value As Boolean)
timerticked = Not Value
DoubleClickTime r.Enabled = Value
End Set
End Property

Private timerticked As Boolean = True
Private Sub DoubleClickTime r_Tick(ByVal sender As Object, ByVal e As
System.EventArg s) _
Handles DoubleClickTime r.Tick
ReadyForDoubleC lick = False
End Sub

Protected Overrides Sub WndProc(ByRef m As System.Windows. Forms.Message)
Select Case m.Msg
Case 279 'context menu popup
Me.OnContextMen uPopup(New EventArgs)
Case 287 'menu select
'if the user really selected a menu item, LParam will
contain a value
If Not m.LParam.Equals (System.IntPtr. Zero) Then
ReadyForDoubleC lick = False
Case 530 'exit context menu popup
Me.OnContextMen uExit(New EventArgs)
End Select
MyBase.WndProc( m)
End Sub

Private _DoingContextMe nu As Boolean
Protected Overridable ReadOnly Property DoingContextMen u() As Boolean
Get
Return _DoingContextMe nu
End Get
End Property

Protected Overridable Sub OnContextMenuPo pup(ByVal e As EventArgs)
_DoingContextMe nu = True
ReadyForDoubleC lick = True
End Sub

Protected Overridable Sub OnContextMenuEx it(ByVal e As EventArgs)
_DoingContextMe nu = False
If ReadyForDoubleC lick Then
ReadyForDoubleC lick = False
If Me.ContainsCurs or Then Me.OnDoubleClic k(e)
End If
End Sub

Protected ReadOnly Property ContainsCursor( ) As Boolean
Get
Return
Me.ClientRectan gle.Contains(Me .PointToClient( Me.Cursor.Posit ion))
End Get
End Property

End Class