Hallo Pitti,
wäre es nicht interessanter die Caption eines BrowserTabs mit einer anderen Information aufwarten zu lassen? Eine verkürzte Ausgabe des
URL ist bei dir doch redundant:
Delphi-Quellcode:
procedure TDemoForm.WebBrowserDocumentComplete(Sender: TObject;
const pDisp: IDispatch;
var URL: OleVariant);
begin
with pDisp
as IWebBrowser2
do
begin
PageControl.ActivePage.Caption := LocationName;
// PageControl.ActivePage.Hint := URL;
// Hint beim TabSheet macht nur Sinn, wenn der WebBrowser
// nicht das ganze TabSheet abdeckt, aber genau das ist
// der Normalfall bei mir...
with Document
as IHTMLDocument4
do
Focus;
end;
end;
Den Hint würde ich nicht über ein Hint-Fenster anzeigen wollen. Ich würde stattdessen einen StatusBar mit AutoHint = True verwenden.
Grüße vom marabu