Der folgende Code in einer passenden
Unit sollte das aber beheben. Das funktioniert dann allerdings mit allen Popupmenüs und man braucht den Event i Memo nicht mehr.
Delphi-Quellcode:
type
TMyPopupList = class(TPopupList)
protected
procedure WndProc(var Message: TMessage); override;
end;
procedure TMyPopupList.WndProc(var Message: TMessage);
begin
if Message.Msg = WM_MBUTTONDOWN then begin
EndMenu;
Exit;
end;
inherited;
end;
initialization
PopupList.Free;
PopupList := TMyPopupList.Create;
end.