電話でGoogleマップを表示するために簡単なコードを使用しています。TLocationSensor を追加し、Active プロパティを True に設定します。
LocationChanged イベント ハンドラーを追加します。
procedure TLocationForm.LocationSensor1LocationChanged(Sender: TObject;
const OldLocation, NewLocation: TLocationCoord2D);
begin
WebBrowser1.Navigate(
Format(
'https://maps.google.com/maps?q=%s,%s',
[NewLocation.Latitude.ToString, NewLocation.Longitude.ToString]
)
);
end;
ブラウザが常にロードし続けるのはなぜですか?