TabSheet Hint funktioniert nicht !?

[marabu]

Hallo,

Zitat von delphipitti:

... Probier das mal bei ner ebay-seite -> mächtig viel Info's ...

Kürzen muss sein, keine Frage - seit 1789.

Zitat von delphipitti:

... Ich will aber nur eine kurze Info im Caption des Tab (so das man in etwa weiß was los ist) und beim drüberfahren die gesamte Info!...

So geht es:

Delphi-Quellcode:

procedure TDemoForm.FormCreate(Sender: TObject);
begin
  //  ...
  Application.OnShowHint := AppShowHint;
end;

procedure TDemoForm.AppShowHint(var HintStr: string; var CanShow: boolean;
  var HintInfo: THintInfo);
var
  index: integer;
  pc: TPageControl;
  wb: OleVariant;
  pt: TPoint;
begin
  if (hintinfo.HintControl is TPageControl) then
  begin
    pc := TPageControl(HintInfo.HintControl);
    pt := pc.ScreenToClient(Mouse.CursorPos);
    index := pc.IndexOfTabAt(pt.X, pt.Y);
    if index >= 0 then
    begin
      wb := TWebBrowser(PageControl.Pages[index].Controls[0]).OleObject;
      HintStr := wb.Document.Title;
    end;
    HintInfo.ReshowTimeout := 50;
  end;
end;

Zitat von delphipitti:

... Eine Statusbar nützt mir nix -> runterschauen iss nich gut ...

Hier liegt ein Missverständnis vor: In die Statusleiste verbanne ich den URL, denn der soll nicht als gelbe Krankheit auf meinem WebBrowser flattern.

Freundliche Grüße