gmlib - GMLib MegaDemo.exe 无法加载

Question

地图将不再加载到megademo.exe上。
当我提出问题时，问题就开始了： GMMap1.Active := True;

谢谢您的帮助。

Answer 1

尝试这个

var
  FMapLoaded: boolean;

procedure TMainForm.GMMapAfterPageLoaded(Sender: TObject;
  First: Boolean);
begin
  inherited;
  if First and not FMapLoaded then
  begin
    GMMap.DoMap;
    FMapLoaded := True;
  end;
end;

Answer 2

要解决此问题，您必须使用此方法从 GMMapVCL 单元更改方法 TGMMap.DocumentComplete

前

if (pDisp = CurDispatch) then

后

if not FDocLoaded and (pDisp = CurDispatch) then