Hallo Thom,
habe gerade in einer anderen Applikation das Problem, dass wenn ich einem Marker eine .OnClick Routine zuordnen möchte, folgende Fehlermeldung kommt.
Delphi-Quellcode:
private
{ Private-Deklarationen }
procedure MarkerClick(Sender: TObject; Event: TEvent);
...
MarkerOptions := TMarkerOptions.Create;
with MarkerOptions do
begin
Map := Self.Map;
Position := Results[0].Geometry.Location;
end;
Marker := New( Google.Maps.Marker( MarkerOptions ));
Marker.OnClick := MarkerClick; // ====> Hier erscheint die Fehlermeldung
LB.Items.AddObject( Results[0].FormattedAddress,Marker );
...
Komisch! Gruss DelphiFan2008
Übrigens, nach dem Ersatz {$INCLUDE gmConfig.inc} lief dein Demo inkl. Drag&Zoom als auch Kreis/Linie war zu sehen - wo da der Fehler liegt?