PHP DM Gate v0.9 » Weblinks <span class="vd">[Delphi, Windows]</span>

RusSun © (14.01.19 17:13) [0]

Доброе время суток.
Тема:
"Отображение ссылки при наведении на нее курсором как в хроме
в строке form.StatusText[0]:= "Weblink".
В kol проекте."

Оригинал VCL здесь:
http://delphiexpert.ru/delphi-poluchaem-ssyilki-so-straniczyi-pri-navedenie-kursora.html

Измененный мной здесь:
https://yadi.sk/d/oHNodIZabFWXlw

Вопрос: "Как реализовать отображение ссылки при наведении на нее курсором 'как в хроме' в строке form.StatusText[0]:= "Weblink".
В kol проекте на примере WebBrowser?" Или возможно есть другие варианты=)

Заранее спасибо!

<Цитата>
Сапёр (15.01.19 07:35) [1]

Не имею KOL, но в обычном IE это событие OnStatusTextChange.

<Цитата>
RusSun © (15.01.19 21:27) [2]

...
procedure HtmlStatusTextChange(Sender: TObject; const Text: WideString);
end;
procedure TForm1.HtmlStatusTextChange(Sender: TObject; const Text: WideString);
begin
form.StatusText[0]:= PChar(AnsiString(Text));
end;
...
html.OnStatusTextChange := HtmlStatusTextChange;

toСапёр Спасибо! =)

<Цитата>