Einzelnen Beitrag anzeigen

marabu

Registriert seit: 6. Apr 2005
10.109 Beiträge
 
#8

Re: TabSheet Hint funktioniert nicht !?

  Alt 20. Aug 2007, 20:03
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
  Mit Zitat antworten Zitat