您好,欢迎来到站长目录(28sn.com)!


使用 IntraWeb (21) - 基本控件之 TIWTabControl

来源:网络整理 浏览:152次 时间:2021-09-15
使用 IntraWeb (21) - 基本控件之 TIWTabControl    


TIWTabControl 包含的是 TIWTabPage; 设计时通过右键菜单 Add Page 添加(再给页面添加东西时一定要先选定页面); 下面例子是动态添加的.



TIWTabControl 所在单元及继承链:
IWCompTabControl.TIWTabControl < TIWCustomRegion < TIWHTML40Container < TIWHTMLContainer < TIWContainer < TIWBaseContainer < TScrollingWinControl < TWinControl < TControl < TComponent < TPersistent < TObject

主要成员:


property Pages: TList //TIWTabPage 对象的集合; 但它是 TList 类型, 使用前需转换下property ActiveTabFont: TIWFont     //当前 Tab 标签的字体property ActiveTabColor: TIWColor   //当前 Tab 标签的背景色property InactiveTabFont: TIWFont   //其他 Tab 标签的字体property InactiveTabColor: TIWColor //其他 Tab 标签的背景色property ActivePage: Integer //当前页号; 如果需要设置它将导致提交, 官方给出了通过 js 进行本地设置的方法: IWTABCONTROL1.tabPane.setSelectedIndex(i);property BorderOptions: TIWContainerBorderOptions //它的边框选项还是比较复杂的, 个人觉得: 如果需要边框还不如套个 TIWRegionproperty LayoutMgr: TIWContainerLayout  //布局管理器, 它也可以用模板(它是从 TIWCustomRegion 继承的)property Color: TIWColor  //property OnChange: TNotifyEvent       //property OnAsyncChange: TIWAsyncEvent //procedure Submit(const AValue: string)   //procedure pageAdded(APage: TIWTabPage)   //procedure pageRemoved(APage: TIWTabPage) //function CreateNewPage(const APageTitle: string; const APageName: string): TIWTabPage //


TIWTabPage:


{IWCompTabControl.TIWTabPage < TIWCustomRegion < TIWHTML40Container < TIWHTMLContainer < TIWContainer < TIWBaseContainer < TScrollingWinControl < TWinControl < TControl < TComponent < TPersistent < TObject}property Title: string   //property Color: TIWColor //property BorderOptions: TIWContainerBorderOptions //procedure Invalidate  //


测试:



{先在空白窗体上放 1 个 TIWTabControl, 3 个 TIWTabPage, 2 个 TIWButton}procedure TIWForm1.IWAppFormCreate(Sender: TObject);var  fPage1, fPage2, fPage3: TIWTabPage;begin  //动态建立 3 个 TIWTabPage  fPage1 := IWTabControl1.CreateNewPage(' Page1 ');  fPage2 := IWTabControl1.CreateNewPage(' Page2 ');  fPage3 := IWTabControl1.CreateNewPage(' Page3 ');  //让 IWButton1 具备切换标签的功能  JavaScript.Add('var i = 0;'); //js 全局变量  IWButton1.ScriptEvents.HookEvent('onclick', 'i++; i%=3; IWTABCONTROL1.tabPane.setSelectedIndex(i);'); //IWTABCONTROL1 或换成 IWTABCONTROL1IWCL  IWTabControl1.Color := $efefef;  IWTabControl1.InactiveTabColor := $efefef;  IWTabControl1.ActiveTabColor := $0000ff;  IWGrid1.Parent := fPage1;  IWGrid2.Parent := fPage2;  IWGrid3.Parent := fPage3;  IWGrid1.RowCount := 3;  IWGrid1.ColumnCount := 4;  IWGrid1.BGColor := $ffeeee;  IWGrid1.CellPadding :=4;  IWGrid1.Align := alTop;  IWGrid2.RowCount := 4;  IWGrid2.ColumnCount := 5;  IWGrid2.BGColor := $eeeeff;  IWGrid2.CellPadding := 4;  IWGrid2.Align := alTop;  IWGrid3.RowCount := 5;  IWGrid3.ColumnCount := 6;  IWGrid3.BGColor := $eeffee;  IWGrid3.CellPadding := 4;  IWGrid3.Align := alTop;end;{测试 Pages 属性}procedure TIWForm1.IWButton2Click(Sender: TObject);begin  WebApplication.ShowMessage(TIWTabPage(IWTabControl1.Pages[0]).Title); // Page1end;


效果图:




推荐站点

  • 我爱发烧音乐我爱发烧音乐

    我爱发烧音乐囊括了从流行音乐到古典音乐多个类型的音乐作品,专栏推荐最新的音乐,提供音乐排名榜单!可供免费线上收听音乐,歌曲流畅,音效极佳! 网站提供的钢琴以及二胡专栏,可供收听者,陶冶情操,改善心情,是难得的轻音乐典藏!

    www.520fs.com
  • 世纪音乐网世纪音乐网

    世纪音乐网是专业的在线音乐试听MP3下载网站。歌曲总计30余万首,收录了网上最新歌曲和流行音乐,DJ舞曲,非主流音乐,经典老歌,劲舞团歌曲,搞笑歌曲,儿童歌曲,英文歌曲等。是您上网听歌的最佳网站。

    www.ssjj.com
  • 杭州网杭州网

      杭州网是杭州地区唯一的新闻门户网站,由中共杭州市委宣传部、杭州日报报业集团和杭州广播电视集团共同组建的杭州网络传媒有限公司运营。

    www.hangzhou.com.cn
  • 深圳在线深圳在线

      深圳在线 www.szol.net是深圳本地最大、最早的地方生活资讯网站之一,网站名“深圳在线www.szol.net”由南方报业传媒集团编辑委员会总编辑、南方日报社总编辑、南方都市报总编辑、南方书画院名誉院长王春芙亲笔题名,深圳在线www.szol.net团队与深圳热线www.szonline.net、奥一网www.oeeee.com都源于全国最早成立于1996年的知名网络公司——深圳万用网。

    www.szol.net
  • 今题网今题网

     今题网- 中国领先的社区服务网,提供社区服务, 在线交友和商家推广服务,于2004年创建上线,公司现有员工超过百名。今题网自成立以来,凭借其独特的定位和丰富的社区交友功能, 凭借其团队超强的搜索引擎优化技术吸引超过千万的用户成为今题网的注册会员。

    www.jinti.com

鄂公网安备 42062502000001号