TTMSFNCHTMLText.OnAnchorClick Event
Occurs when the user clicks an anchor in the rendered text.
API unit family: TMSFNCHTMLText
Declaring type: TTMSFNCHTMLText
Syntax
OnAnchorClick: TTMSFNCHTMLTextAnchorClickEvent;
__property TTMSFNCHTMLTextAnchorClickEvent OnAnchorClick = {read=FOnAnchorClick, write=FOnAnchorClick};
Usage examples
Handle anchor clicks
Routes anchor clicks through application code.
procedure TForm1.ConfigureHTMLTextAnchor;
begin
TMSFNCHTMLText1.Text := 'Open the <a href="settings">settings</a> page.';
TMSFNCHTMLText1.AutoOpenURL := False;
TMSFNCHTMLText1.OnAnchorClick := TMSFNCHTMLText1AnchorClick;
end;
procedure TForm1.TMSFNCHTMLText1AnchorClick(Sender: TObject; AAnchor: string);
begin
if AAnchor = 'settings' then
ShowMessage('Open settings.');
end;
void __fastcall TForm1::ConfigureHTMLTextAnchor()
{
TMSFNCHTMLText1->Text = "Open the <a href=\"settings\">settings</a> page.";
TMSFNCHTMLText1->AutoOpenURL = false;
TMSFNCHTMLText1->OnAnchorClick = TMSFNCHTMLText1AnchorClick;
}
void __fastcall TForm1::TMSFNCHTMLText1AnchorClick(TObject *Sender, System::UnicodeString AAnchor)
{
if (AAnchor == "settings")
ShowMessage("Open settings.");
}