AdvStringGrid常用操作
2016-07-21 11:36
405 查看
AdvStringGrid1.Options:=[goEditing]; //设置单元格是否可编辑 AdvStringGrid1.MouseActions.DirectEdit:=True; //设置点击单元格即进入编辑状态 procedure TForm1.AdvStringGrid1CanEditCell(Sender: TObject; ARow, ACol: Integer; var CanEdit: Boolean); var i: Integer; begin for i := 0 to AdvStringGrid1.ColCount do begin CanEdit := False; end; if ACol = 1 then CanEdit := True; if ACol = 7 then CanEdit := True; end;
//设置单元格对齐方式 procedure TForm1.AdvStringGrid1GetAlignment(Sender: TObject; ARow, ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment); begin if ACol = 1 then begin HAlign := taCenter; //TAlignment = (taLeftJustify, taRightJustify, taCenter); VAlign := vtaCenter; //TVAlignment = (vtaTop,vtaCenter,vtaBottom); end; end;
//添加CheckBox procedure TForm1.FormCreate(Sender: TObject); var i: Integer; flag: Boolean; begin //添加CheckBox for i := 1 to AdvStringGrid1.RowCount - 1 do begin AdvStringGrid1.AddCheckBox(1, i, False, false); end; //判断CheckBox是否选中 for i := 1 to AdvStringGrid1.RowCount - 1 do begin AdvStringGrid1.GetCheckBoxState(1, i, flag); if flag then begin //如果选中CheckBox进行操作 end; end; end;
//AdvStringGrid1.Options:=[goEditing]; //设置单元格是否可编辑 //AdvStringGrid1.MouseActions.DirectEdit := True; //设置点击单元格即进入编辑状态 //为 AdvStringGrid1增加下拉列表选择框 procedure TForm1.AdvStringGrid1GetEditorType(Sender: TObject; ACol, ARow: Integer; var AEditor: TEditorType); var sqlStr: string; begin if ACol = 2 then //设置特定列为下拉列表框类型 begin sqlstr := 'select * from dictfeeitem'; with ADOQuery1 do begin Close; SQL.Clear; SQL.Add(sqlStr); Open; end; if ADOQuery1.RecordCount > 0 then begin ADOQuery1.First; aEditor := edComboList; //设置编辑框为下拉列表 AdvStringGrid1.ClearComboString; //清空下拉列表内容 while not ADOQuery1.Eof do begin AdvStringGrid1.AddComboString(ADOQuery1.FieldByName('feeitem').AsString); //增加下拉列表框内容 ADOQuery1.Next; end; end; end; end;
//滚动条到最后一条记录 SendMessage(AdvStringGrid1.Handle,WM_VSCROLL,SB_BOTTOM,0);
//根据内容改变单元格的颜色 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin AdvStringGrid1.RowCount := 7; AdvStringGrid1.Cells[1, 1] := '-11'; AdvStringGrid1.Cells[1, 2] := '1'; AdvStringGrid1.Cells[1, 3] := '19'; AdvStringGrid1.Cells[1, 4] := '-8'; AdvStringGrid1.Cells[1, 5] := '0'; AdvStringGrid1.Cells[1, 6] := '11'; for i := 1 to AdvStringGrid1.RowCount - 1 do begin if StrToInt(AdvStringGrid1.Cells[1, i]) <= 0 then AdvStringGrid1.FontColors[1, i] := clRed else AdvStringGrid1.FontColors[1, i] := clBlack; end; end;
相关文章推荐
- WCF:调用方未由服务器进行身份验证
- 【新手出发】从搭虚拟机开始,一步一步在CentOS上跑起来.Net Core程序
- maven入门之helloworld
- 【设计模式】观察者模式
- java中的extends 和implement 4000 s
- 主流NoSQL技术详解与比较
- ThreadPoolExecutor(一)——简介
- android SIM卡状态
- 变色龙引导r2795
- HDU 1753 大明A+B
- JavaScript事件基础知识总结【思维导图】
- javascript的执行顺序
- Android照相机Camera
- iOS NSFileManager 文件操作详解
- DNS解析过程
- JAVA实现线程的三种方法
- 创建高可用Rabbitmq集群
- SEO优化流程图文整合详解
- jdk1.7.0_79\bin\java.exe'' finished with non-zero exit value 1
- Java提取域名或URL中的根域名