http://forum.delphimaster.net/cgi-bin/forum.pl?id=1547475190&n=10

Weblinks


RusSun ©   (14.01.19 17:13

Доброе время суток.
Тема:
"Отображение ссылки при наведении на нее курсором как в хроме
в строке 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Сапёр Спасибо! =)


http://forum.delphimaster.net/cgi-bin/forum.pl?id=1547475190&n=10