그냥 일반적인 기능을 생각하신다면 아웃룩바는 프리웨어도 많이 있는데요. =_=

자료실에서 outlook 혹은 아웃룩으로 검색해보세요

그리구 한델 왼편 메뉴는 자바스크립트와 html이랍니다..=_=; (ActiveX로 오해하시는 분들이 계셔서)

hsr///////////////////////////////////////////////////////
홈페이지가 아니라 일반 델파이 프로그램에서란 거죠?

컴포넌트를 따로 구매하시면 될겁니다.
제가 사용하는것은 1stclass3000ProVcl6인데요
거기엔 TfcOutlookBar라는 컴포넌트가 있는데요

다른 프리 컴포를 구해보시던가 구매하셔야 됩니다.
그 컴포넌트는 보내드릴수 없구요 실행 예제만 보내드릴께요.
죄송  참고만하세요

안녕하세요 . 제 생각엔 speedbutton 을 써서
property 의 flat 을 true로 설정해 주고, 각각에 이미지와 caption을
넣어주면 비슷하게 실행할수 있을것 같습니다.

hsr//////////////////////////////////////////////////////////
많이 다듬어야 될건데요, 특히 화면 크기를 달리 할때는
스크롤바도 만들어야하구....

하여간
그냥 패널과 스피드 버튼으로 만들어 보았습니다.

///////////////////////
unit Unit1;

interface

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

const
  org_Height = 41;
type
  TForm1 = class(TForm)
    Panel1: TPanel;
    Panel_1: TPanel;
    Panel_2: TPanel;
    Panel_3: TPanel;
    Panel_M1: TPanel;
    Panel_m2: TPanel;
    Panel_M3: TPanel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    SpeedButton6: TSpeedButton;
    SpeedButton7: TSpeedButton;
    procedure Panel_M1Click(Sender: TObject);
    procedure Panel_m2Click(Sender: TObject);
    procedure Panel_M3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Panel_M1Click(Sender: TObject);
begin
    Panel_3.Align := alBottom;
    Panel_3.Height:= org_Height;
    Panel_2.Align := alBottom;
    Panel_2.Height:= org_Height;

    Panel_1.Align := alClient;
end;

procedure TForm1.Panel_m2Click(Sender: TObject);
begin
    Panel_1.Align := alTop;
    Panel_1.Height:= org_Height;
    Panel_3.Align := alBottom;
    Panel_3.Height:= org_Height;
    Panel_2.Align := alClient;
end;

procedure TForm1.Panel_M3Click(Sender: TObject);
begin
    Panel_1.Align := alTop;
    Panel_1.Height:= org_Height;
    Panel_2.Align := alTop;
    Panel_2.Height:= org_Height;
    Panel_3.Align := alClient;
end;

end.
////////////////////