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


使用 IntraWeb (20) - 基本控件之 TIWGrid

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


TIWGrid 最终通过 Html Table 呈现; 其每个 Cell 都是一个 TIWGridCell 对象, Cell 对象的 Control 属性非常好, 可以非常方便地嵌入其他控件.



TIWGrid 所在单元及继承链:
IWCompGrids.TIWGrid < TIWCustomGrid < TIWCustomControl < TIWBaseHTMLControl < TIWBaseControl < TIWVCLBaseControl < TControl < TComponent < TPersistent < TObject

主要成员:


property Cell[const ARow: Integer, const AColumn: Integer]: TIWGridCell //读取单元格对象property RowCount: Integer    //行数property ColumnCount: Integer //列数property ShowInvisibleRows: Boolean  //是否隐藏空行property HiddenColumns: TStringList  //隐藏指定列, 譬如: IWGrid1.HiddenColumns.CommaText := '0,2'; 是隐藏第 1、3 列property ShowEmptyCells: Boolean     //是否显示空的单元格; 好像存在点问题property BGColor: TIWColor           //property BorderColors: TIWGridBorderColors //边框色分为: 主色、暗色、亮色(Color、Dark、Light)property BorderSize: Integer               //线宽, 对应 Table 的 Border 属性property BorderStyle: TIWGridBorderStyle   //它对应 Table 的 frame 属性(边框相关); 使用具体的属性值需要 uses IWCompGridCommonproperty Caption: TCaption     //property CellPadding: Integer  //单元格内边距property CellSpacing: Integer  //单元格间距property Font: TIWFont         //如果各单元格字体一直, 可以在这里一起指定property FrameBuffer: Integer  //?property Lines: TIWGridLines   //对应 Table 的 Rules 属性: tlAll、tlNone、tlRows、tlColsproperty Summary: string       //对应 Table 的 summary 属性property UseFrame: Boolean     //是否使用框架, 在需要时它会给出滚动条property UseSize: Boolean      //是否使用设计时的大小; 好像只对宽度有用property CurrentRow: Integer         //如果 ScrollToCurrentRow = True, 可通过 CurrentRow 让指定行立即可见 property ScrollToCurrentRow: Boolean //参见 CurrentRowproperty CellRenderOptions: TIWCellRenderOptions //集合选项, 决定哪些 Cell 相关的设置会被使用: [crAlign, crBGcolor, crCellPadding, crStyle, crValign]property OnCellClick: TIWOnCellClick   //如果 TIWGridCell.Clickable = True; 单元格中的文本就会变成链接, 以响应该事件property OnRenderCell: TIWOnRenderCell //同 TStringGrid 中的 OnDrawCell, 可以在此事件中个性化单元格property OnGetCellRenderOptions: TIWGetCellRenderOptionsEvent //可以从这里设置某些单元格的 CellRenderOptions 属性procedure Clear //function CellExists(const ARow: Integer; const AColumn: Integer): Boolean //判断参数指定的单元格是否有效(譬如超界了)procedure DeleteColumn(const AColumn: Integer)  //删除列procedure DeleteRow(const ARow: Integer)        //删除行


TIWGridCell:


{IWCompGrids.TIWGridCell < TCollectionItem < TPersistent < TObject}property Grid: TIWCustomGridproperty DoRefreshControl: Booleanproperty Clickable: Boolean  //property Alignment: TAlignment  //property VAlign: TIWVerticalAlignment //property BGColor: TIWColorproperty Control: TIWCustomControl  //嵌入其他控件property DoSubmitValidation: Booleanproperty Font: TIWFontproperty Header: Booleanproperty Height: stringproperty Hint: stringproperty ShowHint: Booleanproperty Tag: TObjectproperty Text: string  //property UnlinkedText: stringproperty Visible: Booleanproperty Width: stringproperty Wrap: Boolean    //property RawText: Boolean //property Css: stringproperty Collection: TCollectionproperty ID: Integerproperty Index: Integerproperty DisplayName: string


测试:


procedure TIWForm1.IWAppFormCreate(Sender: TObject);var  i,j: Integer;begin  IWGrid1.RowCount := 5;  IWGrid1.ColumnCount := 3;  IWGrid1.Caption := 'Test Table';  IWGrid1.BGColor := $d0d0d0;  IWGrid1.CellPadding := 8;  IWGrid1.Font.Size := 12;  IWGrid1.Lines := tlCols;  for i := 0 to IWGrid1.RowCount - 1 do    for j := 0 to IWGrid1.ColumnCount - 1 do    begin      IWGrid1.Cell[i,j].Text := Format('%d, %d', [i, j]);      IWGrid1.Cell[i,j].Alignment := taCenter;//      IWGrid1.Cell[i,j].VAlign := vaMiddle;      IWGrid1.Cell[i,j].Clickable := True;      if Odd(i) then IWGrid1.Cell[i,j].BGColor := $f0f0f0;    end;  LinkColor := $0000FF;  IWGrid1.UseSize := True;end;{OnCellClick}procedure TIWForm1.IWGrid1CellClick(ASender: TObject; const ARow, AColumn: Integer);begin  WebApplication.ShowMessage(IWGrid1.Cell[ARow, AColumn].Text);end;


效果图:




推荐站点

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

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

    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号