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