TRichMemo: Popup menu not shown when the Menu key is pressed

[CM630]

Windows 10, 64 bit, Lazarus 4RC2, 32 bit.
I create a TRichMemo, then I add a popup and link the popup with the RichMemo.
When I right click the memo or I press “Shift + F10” the popup menu is shown.
When I press the menu key on the keyboard the popup menu is not shown, some small rectangle is shown on the place of the mouse instead.

I succeeded in making a workaround, which works:

Code: Pascal  [Select][+][-]

1. procedure TForm1.RichMemo1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
2. begin
3.   if (Key = 93) then
4.   begin
5.     PopupMenu1.PopUp; //or maybe better TRichMemo(Sender).PopupMenu.PopUp;  
6.     key := 0;
7.   end;
8. end;

So probably the Menu key invokes something which probably should not be invoked.

[rvk]

Partially found the problem. Somehow LM_CONTEXTMENU gets pushed twice to the messaging queue.

If I comment out the LM_CONTEXTMENU in TRichEditCallback.GetContextMenu, the context menu for right click doesn't work anymore, but the Menu key starts working.

Code: Pascal  [Select][+][-]

1. function TRichEditCallback.GetContextMenu(seltype: Word; oleobj: IOleObject;
2.   const chrg: TCharRange; var menu: HMENU): HRESULT; stdcall;
3. var
4.   msg : TLMContextMenu;
5. begin
6.   {
7.   FillChar(msg, sizeof(msg), 0);
8.   msg.Msg:=LM_CONTEXTMENU;
9.   msg.XPos:=Mouse.CursorPos.x;
10.   msg.YPos:=Mouse.CursorPos.y;
11.   msg.hWnd:=fOwner.Handle;
12.   DeliverMessage(fOwner, msg);
13.   }
14.   // do not give hmenu back to RichEdit, it will destory it!
15.   menu:=0;
16.   Result:=S_OK;
17. end;

Tracing through the code you see TControl.WMContextMenu is called twice for the Menu key.
So TPopupMenu.PopUp is executed twice because of this resulting in closing the just opened popup by the previous call.

I'm not sure who pushes the LM_CONTEXTMENU to the queue when the menu key is pressed... but if it's already done... TRichEditCallback.GetContextMenu shouldn't do this again.

I don't think Dmitry ( @skalogryz ) is very active with Lazarus anymore.

[CM630]

...
I don't think Dmitry ( @skalogryz ) is very active with Lazarus anymore.
...

Sounds like TRichMemo is abandoned  :'(, hopefully someone adopts it.