OnMarkerRigthClick is not triggert in TTMSFNCMaps component

FNC TMS FNC Maps
1

Hi,

I loaded the Sample Project "VCLElementContainersDemo.dproj" and try Adding an Action to the Event "OnMarkerRightClick" but nothing is happening.

Sample Code :
procedure TForm5.TMSFNCMaps1MarkerRightClick(Sender: TObject; AEventData: TTMSFNCMapsEventData);
begin
ShowMessage('just because!');
end;

3

Hi,

Please note that the OnMarkerRightClick event is unfortunately currently only supported for the Google Maps service.

4

Hi Bart,

thanks for that hint. Is there another Way to recognize a right click?

5

My Workaround:

...
private
ButtonPressed : integer;
....
procedure TForm1.TMSFNCMapMarkerMouseDown(Sender: TObject; AEventData: TTMSFNCMapsEventData);
begin
ButtonPressed := GetKeyState(VK_RBUTTON);
end;

procedure TForm.TMSFNCMapMarkerMouseUp(Sender: TObject; AEventData: TTMSFNCMapsEventData);
begin
if ButtonPressed <> GetKeyState(VK_RBUTTON) then
showmessage('context');
end;

Not really elegant, but it works. Would appreciate a better Solution.