procedure TForm5.Button1Click(Sender: TObject); var I: Integer; begin AdvStringGrid1.RowCount := ;//一共50行0..49 AdvStringGrid1.ColWidths[] := ;//改变第一列的宽度. AdvStringGrid1.AddCheckBoxColumn();//表示这一列都需要复选框 //第0行是标题头,所以从1..49开始 do begin //AdvStringGrid1.
使用前提: 页面内容过多,默认的滚动条太难看,在不引入滚动条插件情况下让界面不使用滚动条,又能通过鼠标滚动 实现步骤: 1 在会出现滚动条的组件上设置隐藏滚动条 overflow:hidden; 2 在上述组件的bind-mouseenter(鼠标进入事件)增加滚动监听器 var num = 0; var i = true; Model.prototype.buttonGroup1Mouseenter = function(event){ var me = this; this.getElem