TFrameViewer, and TFrameBrowser component
property OnHotSpotTargetClick: THotSpotTargetClickEvent;
The OnHotSpotTargetClick event occurs when the mouse is over an hypertext link and the left mouse button is clicked. See the THotSpotTargetClickEvent type for information on the parameters.
The following code may be used to load the hypertext link URL and its Target attribute into an Edit box when a mouse click occurs:
Viewer.OnHotSpotTargetClick := HotSpotTargetClick;
....
procedure TForm1.HotSpotTargetClick(Sender: TObject;
const Target, URL: String; var Handled: Boolean);
begin
Handled := False;
if Target <> '' then
Edit1.Text := 'Target: '+Target+' URL: '+URL
else
Edit1.Text := 'URL: '+URL
end;