Hej alla
Jag har ett problem jag behöver hjälp med.
Jag har skapat Richedit fönster med hjälp av CreateWindowEx.
Jag har satt eventmask hos richedit
Call SendMessage(Edit_hWind, EM_SETEVENTMASK, 0, ByVal ENM_MOUSEEVENTS)
Mitt problem är att jag inte kommer på hur jag kan tolka WM_LBUTTONUP meddelandet i min windowsprocedur.
Den ser ut så här
<code>
Private Type NMHDR
hwndFrom As Long
idFrom As Long
code As Long
End Type

Public Function WndProc(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Dim nmh As NMHDR
WndProc = 0
Select Case wMsg
Case WM_NOTIFY
CopyMemory nmh, ByVal lParam, Len(nmh)
Select Case nmh.code
Case WM_LBUTTONUP
Debug.Print "Äntligen"
End Select
Case WM_SIZE Or WM_SIZING
blnResize = True
Case WM_DESTROY
PostQuitMessage 0
Case Else
WndProc = DefWindowProc(hwnd, wMsg, wParam, lParam)
End Select
End Function

</code>
Observera att detta är långt ifrån all koden, bara dom bitar jag tror är relevanta.
Om någon kan hjälpa mig med detta, gärna med exempelkod så vore jag jättetacksam :-)

Ha en bra dag
Knoton

Jag hittade lösningen
Del av koden nedanför...
<code>
Select Case wMsg
Case WM_NOTIFY
CopyMemory nmh, ByVal lParam, Len(nmh)
If (nmh.hwndFrom = Edit_hWind) And (nmh.code = EN_MSGFILTER) Then
CopyMemory eLink, ByVal lParam, Len(eLink)
Select Case eLink.msg
Case WM_LBUTTONUP
Debug.Print "Bingo"
End Select
End If

</code>