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;