TabSheet Hint funktioniert nicht !?

[marabu]

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