Thema: Delphi Tabbed Browsing Problem

Einzelnen Beitrag anzeigen

Benutzerbild von toms
toms
(CodeLib-Manager)

Registriert seit: 10. Jun 2002
4.648 Beiträge
 
Delphi XE Professional
 
#4

Re: Tabbed Browsing Problem

  Alt 22. Mär 2005, 17:09
Hallo!

Habe fuer meinen Browser eine solche Funktion gemacht:

Delphi-Quellcode:
function TfrmMyBrowser.GetCurrentWB: TEmbeddedWB;
begin
  Result := nil;
  if PageControl1.ActivePage.ControlCount > 0 then
    if PageControl1.ActivePage.Controls[0] is TEmbeddedWB then
      Result := TEmbeddedWB(PC.ActivePage.Controls[0])
end;
Thomas
  Mit Zitat antworten Zitat