Помогите с PageControl

Discussion in 'С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby' started by IngHack, 24 Sep 2011.

  1. IngHack

    IngHack New Member

    Joined:
    30 Aug 2011
    Messages:
    9
    Likes Received:
    0
    Reputations:
    0
    Добрый вечер! Вот я решил написать программу браузер с проксями. С проксями я разобрался, вот я бы хотел сделать так чтобы в PageControl создоавлось несколько TWebBrowser.

    Т.к. я хочу переходить на несколько сайтов с 1-им прокси. У меня получилось сделать динамичное создание вкладок.
    Но вот как туда добавить TWebBrowser с параметром Aligment:=alClient; Я не могу разобраться.

    Вот пример моего кода.

    Не могу создать tWebBrowser. Как? Помогите если вам не трудно! :(
     
  2. xophet

    xophet Member

    Joined:
    16 Apr 2011
    Messages:
    617
    Likes Received:
    49
    Reputations:
    5
    Code:
    procedure TfrmMain.btnCreateWBClick(Sender: TObject);
    var
      wb1: TWebBrowser;
    begin
      wb1 := TWebBrowser.Create(frmMain);
      with wb1 do
      begin
        TWinControl(wb1).Parent:=frmMain;
        TWinControl(wb1).Name := 'wb1';
        Align:= alClient;
        Visible:=True;
      end;
    end;
    не забывай разные имена указывать, а в Parent указывай страницу твоего PageControl
     
  3. Jingo Bo

    Jingo Bo Member

    Joined:
    25 Oct 2009
    Messages:
    368
    Likes Received:
    51
    Reputations:
    7
    Имена не имеют значения в данном случае. Parent он и так(судя по коду) указывал.
     
  4. Jingo Bo

    Jingo Bo Member

    Joined:
    25 Oct 2009
    Messages:
    368
    Likes Received:
    51
    Reputations:
    7
    Code:
    procedure TForm1.Button1Click(Sender: TObject);
    Var tab : TTabSheet;
        browser : TWebBrowser;
    begin
        tab := TTabSheet.Create(PageControl1);
        tab.PageControl := PageControl1;
        tab.Caption := IntTOStr(PageControl1.PageCount);
    
        browser := TWebBrowser.Create(tab);
        TWinControl(browser).Parent := tab;
        browser.Align := alClient;
        browser.Navigate('www.google.ru');
    end;
    Добавляет вкладку с браузером.