Unterschied: MozillaControl und IE

[ozz]

Hallo zusammen,
ich habe eine Frage zu MozillaControl und IE.

Ich habe ein Demo vom MozillaControl.Dort ist es möglich über

Delphi-Quellcode:

procedure OnStatusTextChange(Sender: TObject; const Text: WideString);

auf die Adresse unter einem Link zuzugreifen (anzeigen bei Mouseover). In der Hilfe von TWebbrowser gibt es diesen Event auch, jedoch mit dem Hinweis, diesen nicht zu verwenden. Wie kann ich trotzdem auf die Adresse unter der Maus zugreifen?

Danke!

[chaosben]

Für den TWebbrowser brauchst du erstmal ein (selbstgeschaffenes OnMouseMove). Du könntest einen Timer nehmen oder, viel besser, die Messages des Browsers nutzen.
Um die aktuelle Cursor-Position zu überprüfen, kannst du folgendes machen:

Delphi-Quellcode:

procedure Tform_Main.CheckForLink;
var
  Elem : IHTMLElement;
  Link : IHTMLAnchorElement;
  CP : TPoint;
  Doc : IHTMLDocument2;
begin
  if Supports(Browser.Document,IHTMLDocument2,Doc) then
  begin
    GetCursorPos(CP);
    CP:=Browser.ScreenToClient(CP);
    Elem:=Doc.elementFromPoint(Cp.X,Cp.Y);
    if (Supports(Elem,IHTMLAnchorElement,Link)) then
    begin
      //mach was mit dem Link
    end;
  end;
end;

[ozz]

Vielen Dank chaosben!
Hat mich auf den richtigen Pfad gebracht.