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

GMLib MegaDemo.exe 不会加载

GMLib MegaDemo.exe Won't load

gmlib