delphistringgrid使用全书.pdfVIP

StringGrid使用全书 zt StringGrid行列的增加和删除 如何编写使StringGrid 中的一列具有Check功能，和CheckBox效果一样 StringGrid组件Cells内容分行显示在Tstringgrid.ondrawcell事件中 在StringGrid怎样制作只读的列在 OnSelectCell事件处理程序中 stringgrid从文本读入的问题 StringGrid组件Cells内容对齐 StringGird的行列背景色设置 怎么改变StringGrid控件某一列的背景和某一列的只读属性 StringGrid控件标题栏的对齐 怎么改变StringGrid控件某一列的背景和某一列的只读属性 StringGrid控件标题栏的对齐 在stringGrid 中使用回车键模拟TAB键切换单元格的功能实现 stringgrid如何清空 让记录在StringGrid 中分页显示在 打印StringGrid 如何实现在stringgrid 中删除鼠标点中的那一行，下一行再顶上的效果 让stringgrid点列头进行排序 正确地设置StringGrid列宽而不截断任何一个文字方法 实现StringGrid的删除，插入，排序行操作 TstringGrid 的行列合并研究 StringGrid行列的增加和删除 type TExCell class(TStringGrid) public procedure DeleteRow(ARow:Longint); procedure DeleteColumn(ACol:Longint); procedure InsertRow(ARow:LongInt); procedure InsertColumn(ACol:LongInt); end; procedureTExCell.InsertColumn(ACol:Integer); begin ColCount : ColCount +1; MoveColumn(ColCount-1,ACol); end; procedureTExCell.InsertRow(ARow:Integer); begin RowCount : RowCount +1; MoveRow(RowCount-1,ARow); end; procedureTExCell.DeleteColumn(ACol:Longint); begin MoveColumn(ACol, ColCount -1); ColCount : ColCount - 1; end; procedureTExCell.DeleteRow(ARow:Longint); begin MoveRow(ARow, RowCount - 1); RowCount : RowCount - 1; end; 如何编写使StringGrid 中的一列具有Check功能，和CheckBox效果一样 unit Unit1; interface uses Windows, Messages, SysUtils, Classes,Graphics, Controls, Forms, Dialogs,Grids; type TForm1 class(TForm) grid:TStringGrid; procedure FormCreate(Sender:TObject); procedure gridDrawCell(Sender:TObject;ACol,ARow:Integer; Rect:TRect;State:TGridDrawState); procedure gridClick(Sender:TObject); private { Private declarations } public { Public declarations } end; var Form1:TForm1; fcheck,fnocheck:tbitmap; implementation {$R*.DFM} procedureTForm1.FormCreate(Sender:TObject); var i:SmallInt; bmp:TBitmap; begin FCheck: TBitmap.Create; FNoCheck: TBitmap.Create; bmp: TBitmap.create; try bmp.handle : LoadBitmap(0, PChar(OBM_CHEC