Одне але. Більшість сучасних переглядачів блокують такі виринаючі вікна. Як це оминути, поки не знаю. Варіант в html взято тут:
<a href="http://www.Link1.com/" target="_blank" onmouseover="window.open(""http://www.Link2.com"");window.open(""http://www.Link3.com"");">Click Here Link Bucket</a>
Оголошення функції:
THtmlLib = class(TObject) ... { Description: Повертає тег гіпер-посилання. Може приймати на вхід кілька посилань, розділених заданим символом Parameters: aLink - текст гіпер-посилання aTitle - текст, що буде відображаться в документі на місці посилання aDelimiter - розділювач кількох посилань } class function GetHrefTag(const aLink, aTitle: string; aDelimiter: Char = ';'): string;
Реалізація функції
class function THtmlLib.GetHrefTag(const aLink, aTitle: string; aDelimiter: Char = ';'): string; var arrLink : System.TArray<System.string>; i : Byte; sLink : string; begin Result := aTitle; if not aLink.IsEmpty then begin arrLink := aLink.Split(aDelimiter); sLink := '<a href="'; for i := Low(arrLink) to High(arrLink) do begin if (i = Low(arrLink)) then sLink := Concat(sLink, arrLink[i], '" target="_blank" onmouseover="') else sLink := Concat(sLink, 'window.open(""', arrLink[i], '"");'); end; Result := Concat(sLink, '">', aTitle, '</a>'); end; end;
Немає коментарів :
Дописати коментар