Maybe it's good to have LCL method to show context menu, w/o using
Perform(LM_contextmenu,...). Name it ShowContextMenu(X, Y) - method must
be main part of TControl.WMContextMenu
procedure TControl.WMContextMenu(var Message: TLMContextMenu);
var
TempPopupMenu: TPopupMenu;
P: TPoint;
Handled: Boolean;
begin
if (csDesigning in ComponentState) or (Message.Result <> 0) then Exit;
P := GetMousePosFromMessage(Message.Pos);
// X and Y = -1 when user clicks on keyboard menu button
if P.X <> -1 then
P := ScreenToClient(P);
Handled := False;
DoContextPopup(P, Handled);
if Handled then
begin
Message.Result := 1;
Exit;
end;
TempPopupMenu := GetPopupMenu;
if (TempPopupMenu <> nil) then
begin
if not TempPopupMenu.AutoPopup then Exit;
TempPopupMenu.PopupComponent := Self;
if P.X = -1 then
P := Point(0, 0);
P := ClientToScreen(P);
TempPopupMenu.Popup(P.X, P.Y);
Message.Result := 1;
end;
end;
so WMCOntextMenu will be some checks + getting X/Y + call to new
ShowContextMenu(X,Y) + Message.Result:=1.
--
Regards,
Alexey
--
_______________________________________________
Lazarus mailing list
Lazarus@lists.lazarus-ide.org
https://lists.lazarus-ide.org/listinfo/lazarus
