버튼1클릭할때   Frame.WebBrowser1.BringToFront;

버튼2클릭할때   Frame.WebBrowser2.BringToFront;

               :
               :


이렇게 하시면..

그리고...EmbeddedWB  컨트롤을 사용하시면 키보드 제어하는거랑...수월하게 작업하실 수 있을것 같습니다.

그럼...

답변 감사드립니다 ㅠ.ㅠ 그런대도 잘안되요.
EmbeddedWB 이걸로 바꿨습니다.

이게 메인소스에요
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, Unit3, Unit4, Unit2, Unit6;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    X1: TMenuItem;
    Top1: TTop;
    Bottom1: TBottom;
    Center1: TCenter;
    left1: Tleft;
    procedure X1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.X1Click(Sender: TObject);
begin
   close;
end;

end.

이게 센터
unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ComCtrls, ImgList, Buttons, BSMorphButton,
  ExtCtrls, Unit6, SHDocVw_EWB, EwbCore, EmbeddedWB;

type
  TCenter = class(TFrame)
    EmbeddedWB1: TEmbeddedWB;
    EmbeddedWB2: TEmbeddedWB;
    procedure FrameEnter(Sender: TObject);


  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

procedure TCenter.FrameEnter(Sender: TObject);
begin
    EmbeddedWB1.Navigate('http://onclub.co.kr/onclub/index.php?clubname=opentaekwon.co.kr');
    EmbeddedWB2.Navigate('http://onclub.co.kr/');
    EmbeddedWB2.Hide;

end;
end.

이게 레프트
unit Unit6;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BSMorphButton, ExtCtrls;

type
  Tleft = class(TFrame)
    BSMorphButton1: TBSMorphButton;
    BSMorphButton2: TBSMorphButton;
    BSMorphButton3: TBSMorphButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses Unit3;

{$R *.dfm}

end.
입니다. ㅠ.ㅠ

뭐가 안된다는 거죠?

소스를 보니까 웹브라우져를 바꿔주는 코드가 하나도 없는데...

버튼 클릭이벤트에 코드를 입력해 주셔야죠...-_-;


아래 소스를 예로 들자면..

폼 디지이너에서 unit1에 있는 버튼을 더블클릭해서

클릭이벤트를 작성하시면..

procedure TForm1.Left1BSMorphButton1Click(Sender: TObject);
begin
   self.Center1.EmbeddedWB1.BringToFront;
end;


이런형태가 되면 되겠네요..


그럼.

레프트에 넣는게 아니라 메인에 넣는거였군요..