ich suche nach einer Möglichkeit, in Lazarus mir die Location einer Adresse anzeigen zulassen.
Bisher nutze ich folgenden Code um mir den Ort in Google Maps anzeigen zu lassen.
Code: Alles auswählen
procedure TFrm_w_STAMM_ADRESSEN_ANLEGEN.BT_WORLDClick(Sender: TObject);
var
XOrt : String;
XPlz : String;
XStrasse : String;
URL : PWideChar;
PWideString : WideString;
begin
// ADRESSE IN GOOGLE MAPS ANSEHEN
If (plz.Text <> '') and (Ort.Text <> '') then
begin
XStrasse := Strasse1.text + ' ' + Strasse2.text;
XOrt := Ort.Text;
XPlz := Plz.Text;
PWideString := 'http://maps.google.de/maps?f=q&source=s_q&view=text&q=' + XPlz + ' ' + XOrt + ' ' + XStrasse ;
URL := Addr(PWideString[1]);
ShellExecute(Handle,
'open',
URL,
nil,
nil,
SW_SHOW);
end;
end;
Nun möchte ich mir das Gleiche in einem Formular anzeigen lassen und nicht über den normalen Browser öffen.
Soweit ich bisher gelesen habe wäre das mit IpHtmlPanel möglich.
Das beiligende Lazerus Beispiel hilft mir auch nicht weiter ich werde nicht schlau draus.
Wie macht man das ?
Wäre für Links bzw jedwede Antwort echt dankbar.
Lg Bernie