Chodzi mi o takie coś ze mam 2 PageControl i w jednym jest 2 a w tym 2 jest WebBrowser.I chcĘ zeby jak sie w WebBrowserku otowzy nowe okno np.Shift+link zeby dodała sie do pagecontrola zakładka z WebBrowserem :)
function TMainForm.UtworzZakladke(const ACaption: string): TTabSheet;
begin
Result:= TTabSheet.Create(self);
with Result do begin
PageControl:= PageControl2;
Caption:= ACaption;
end;
PageControl1.ActivePage:= Result;
end;
W private daje
function UtworzZakladke(const ACaption: string): TTabSheet;
To wszystko działa jak dodam do butona
UtworzZakladke('strona2');
Ale jak zrobić zeby to sie zrobiło jak sie nowe okno otowzy i w WebBrowserku dodała sie strona
CAŁKOWITY KOD PROGRAMU
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, OleCtrls, SHDocVw;
type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
PageControl2: TPageControl;
Button1: TButton;
WebBrowser1: TWebBrowser;
procedure Button1Click(Sender: TObject);
private
function UtworzZakladke(const ACaption: string): TTabSheet;
function UtworzWebBrowser(const Gdzie: TWinControl): TWebBrowser;
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function TForm1.UtworzWebBrowser(const Gdzie: TWinControl): TWebBrowser;
begin
Result:= TWebBrowser.Create(self);
with Result do begin
end;
end;
function TForm1.UtworzZakladke(const ACaption: string): TTabSheet;
begin
Result:= TTabSheet.Create(self);
with Result do begin
PageControl:= PageControl2;
Caption:= ACaption;
end;
PageControl1.ActivePage:= Result;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
UtworzWebBrowser(UtworzZakladke('Abc.txt'));
end;
end.