Hi everyone, I found a way and got the Link click to work
First you need to add this to the uses uniGUIVars, uniGUIApplication, StrUtils;
Remember GetHTMLClick:= UniLabel
also remember to set the TextConversion to txtHTML
OnMouseEnter ----> GetHTMLClickMouseEnter: Code
Var
GetHTML:String;
URL: String;
begin
URL:= ''; // clear
GetHTML:= ''; // clear
if LeftStr(HTMLUniDBEdit.Text, 7) = 'http://' then //check if the link has http and set the link
begin
URL:='<a href="' + HTMLUniDBEdit.Text + '" target="_blank">Visit</a>'; //set the address to show in a new page
GetHTMLClick.Hint:= HTMLUniDBEdit.Text; //mouse over to show the link
GetHTMLClick.Caption:= URL;
end
else
begin
GetHTMLClick.Hint:= 'http://' + HTMLUniDBEdit.Text; // mouse over to show the link with the added Http://
URL:= '<a href="' + GetHTMLClick.Hint + '" target="_blank">Visit</a>'; //set the address to show in a new page
GetHTMLClick.Caption:= URL;
end;
end;