Открыть по умолчанию

[Stilet]

И что? Откуда я знаю чт ты в той функе нашрябал...
Мало ли...

[beemoto]

блокировку зделал так:
http://delphiexpert.ru/view_lesson.php?id=14
но прога неоткрывается в новой вкладке()

[beemoto]

Stilet,

function Tform1.CreateTabBrowser(sURL: string; sCaption: string):TTabSheet;
var
  ts: TTabSheet;
  WB: TWebbrowser;
begin
 ts:= TTabSheet.Create(PageControl1); //создаем новую вкладку
 Result:=ts;
     try
     //присваеваем значения Pagecontrol'у
    ts.PageControl:=PageControl1 ;
    ts.Parent := PageControl1;
    ts.Caption := sCaption;
    ts.PageIndex := PageControl1.ActivePageIndex + 1;
    //присваевыем значения Webbrowser'у
    WB := TWebbrowser.Create(ts);

    TControl(WB).Parent := ts;
        WB.OnNewWindow2 := WebBrowser1NewWindow2;
        wb.OnProgressChange:=WebBrowser1ProgressChange;

    WB.Align := alClient;
    WB.Silent := True;
    WB.Visible := True;

    PageControl1.ActivePage := ts;

           if Trim(sURL) <> '' then//если урл не пустой то переходим
    begin
      WB.Navigate(sURL);
      WaitForBrowser(WB);
    end;
     except
       ts.Free; //освобождаем Pagecontrol
     end;
end;

[Stilet]

ts.PageIndex := PageControl1.ActivePageIndex + 1;

Убери это.

[beemoto]

убрал
-
-
-
-
-

[beemoto]

желаетльно мне надо чтоб можно было запускать вторую форму(как в опере)
и открывать ссылки вновой странице

[Stilet]

Ну запускай.
Сделай еще переменку TFORM1 и создавай ее.

[beemoto]

всёравно
открывается в новом окне((

как я понял надо вроде как то так:

if ParamCount>0 then  CreateTabBrowser(ParamStr(1),ParamStr(1));

но так нчего непроисходит

[beemoto]

ауууууу....
кто-нибудьььььььььь

[beemoto]

ну плиззз помогите!!!!!!