MounseOver mit TWebbrowser und Frames...

[Mavarik]

Zitat von toms:

Nachtrag: Funktioniert so, aber falls mehrere Frames vorhanden sind, gibt's eine AV bei

element := htmlDoc.parentWindow.event.srcElement; da event = nil ist...

Tja... Und wenn das so ist? Wie kann ich dann auf die Tags unter der Maus zugreifen?

Frank

[marabu]

Hallo Frank,

ich hänge mal eine Demo rein und hoffe dass du damit klar kommst. Habe den Code nicht exzessiv getestet und freue mich über jede Rückmeldung (hi toms) und auch Verbesserungsvorschläge.

marabu

[Mavarik]

Zitat von marabu:

Hallo Frank,

ich hänge mal eine Demo rein und hoffe dass du damit klar kommst. Habe den Code nicht exzessiv getestet und freue mich über jede Rückmeldung (hi toms) und auch Verbesserungsvorschläge.

marabu

Funktioniert super! Vielen Dank, genau das was ich brauche...

Auch wenn ich es nicht so ganz verstehe... Aber wenn ich sehe wie einfach es geht
könnte ich

Wieso wird der event den über alle Fenster gesucht?

Delphi-Quellcode:

  for i := Low(wins) to High(wins) do
  begin
    evt := wins[i].event;
    Result := Assigned(evt);
    if Result then Exit;
  end;

Der event kann doch nur vom eigenen Fenster kommen, oder?

LG Frank

[marabu]

Hallo Frank,

wenn es einfach aussieht, dann ist das oft ein Qualitätsmerkmal - aber leider nicht immer.

Zitat von Mavarik:

Wieso wird der event den über alle Fenster gesucht?

Ich habe immer noch keine Idee, wie ich aus dem event handler heraus das "aktive" Fenster ermitteln kann. Also iteriere ich solange über die Fenster der einzelnen Frames, bis mir ein gültiges event object signalisiert, dass ich das aktive Fenster gefunden habe. Eventuell gibt es ja einen eleganteren Ansatz, aber er fällt mir gerade nicht ein und ich habe auch nicht unbegrenzt Zeit für eine Suche.

Freundliche Grüße vom marabu

[toms]

Hallo marabu

Habe den Code kurz getestet und er scheint gut zu funktionieren. Danke für deine Mühe!

[Mavarik]

Zitat von marabu:

Hallo Frank,

Ich habe immer noch keine Idee, wie ich aus dem event handler heraus das "aktive" Fenster ermitteln kann.

Freundliche Grüße vom marabu

Habe eine Lösung dafür! Interesse?

Frank

[toms]

Klar!

[Mavarik]

Zitat von toms:

Klar!

Also....

Da Du ja selbder den event "feuerst".
Einfach den Event erweitern. Zuerst die Procedure

TObjectProcedure = procedure(Win:byte) of object; Und dann den Aufruf!

if Assigned(FOnEvent) then FOnEvent(FWin); Und natürlich den Create:

TEventObject.Create(Document_OnMouseOver,High(htmldoc)) as IDispatch; mfg Frank