使用 IntraWeb (26)

TIWMenu 的任務是讓原來的 TMainMenu 呈現在網頁上, 通過其 AttachedMenu 屬性關聯一個 TMainMenu 是必需的.

---

TIWMenu 所在單元及繼承鏈:
IWCompMenu.TIWMenu < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成員:

---

property TextOffset: Integer         //菜單文本偏移(只讀)
property AttachedMenu: TMainMenu     //指定要包裝的 TMainMenu
property ItemSpacing: TIWSpaceItems  //設置頂層菜單項間距: itsNone(默認)、itsEvenlySpaced(均勻分布)
property AutoSize: TIWMenuAutoSize   //自動大小; 有三個枚舉值可選
property MainMenuStyle: TIWMenuStyle //主菜單樣式, 包含十幾個子選項包括 Css
property SubMenuStyle: TIWMenuStyle  //子菜單樣式, 包含十幾個子選項包括 Css
property Css: string                 //Css 比 MainMenuStyle.Css 高一個層級
property SubMenuCss: string          //SubMenuCss 比 SubMenuStyle.Css 高一個層級
property TimeOut: Integer //子菜單延遲時間

---

示例 1 - 任何避免被其他控件遮擋:

---

{設計時, 在空白窗體上放: 兩個 IWRegion、一個 IWMenu、一個 MainMenu, 並給 MainMenu 隨便添加些菜單}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWMenu1.AttachedMenu := MainMenu1; //!

  {把 IWmenu 放到一個容器中, 並設置容器的 ClipRegion := False 即可解決}
  IWRegion1.Align := alTop;
  IWRegion1.Height := IWMenu1.Height;
  IWRegion1.ClipRegion := False; //!
  IWMenu1.Parent := IWRegion1;
  IWMenu1.Align := alClient;

  IWRegion2.Color := $eeffff;
  IWRegion2.Align := alClient;
end;

效果圖:

---

示例 2 - 縱向菜單:

---

{在上例的基礎上, 改成縱向菜單, 並嘗試(設計時)通過 TIWImageList 添加圖標}
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
  IWMenu1.AttachedMenu := MainMenu1;
  IWMenu1.MainMenuStyle.Orientation := iwOVertical; //!

  {把 IWmenu 放 IWRegion1 中, 並設置好 IWRegion1 的大小}
  IWRegion1.SetBounds(4, 4, 60, 80);
  IWRegion1.ClipRegion := False;
  IWRegion1.BorderOptions.Style := cbsNone;
  IWMenu1.Parent := IWRegion1;
  IWMenu1.Align := alClient;

  IWRegion2.Color := $eeffff;
  IWRegion2.Align := alClient;
end;

效果圖:

---