使用 IntraWeb (26) - 基本控件之 TIWMenu
2021-04-29 23:38
381 查看
使用 IntraWeb (26) - 基本控件之 TIWMenu
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;
效果图:
相关文章推荐
- 使用 IntraWeb (32) - Url 映射与 THandlers
- 使用 IntraWeb (33) - Cookie
- 使用 IntraWeb (20) - 基本控件之 TIWGrid
- 使用 IntraWeb (22) - 基本控件之 TIWCalendar
- 使用 IntraWeb (34) - TIWAJAXNotifier
- 使用 IntraWeb (36) - TIWServerControllerBase
- 使用 IntraWeb (37) - TIWApplication
- 使用 IntraWeb (19) - 基本控件之 TIWTreeView
- 使用 IntraWeb (38) - TIWAppForm、TIWForm、TIWBaseHTMLForm、TIWBaseForm
- 使用 IntraWeb (39) - THttpRequest、THttpReply
- 使用 IntraWeb (18) - 基本控件之 TIWImage、TIWImageFile、TIWImageList
- 使用 IntraWeb (10) - CSS
- 使用 IntraWeb (8) - 系统模板
- 使用 IntraWeb (7) - 主模板
- 使用 IntraWeb (6) - 页面模板: TIWLayoutMgrHTML、TIWTemplateProcessorHTML
- 用户离职后如何删除其个人视图(Personal View)?
- 使用 IntraWeb (5) - 页面布局之 TFrame
- 使用 IntraWeb (4) - 页面布局之 TIWRegion
- IntraWeb XIV 类型速查表
- 使用 IntraWeb (11) - 基本控件之 TIWButton