delphi_StringGrid使用全书..docVIP

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; procedure TExCell.InsertColumn(ACol: Integer);begin?ColCount :=ColCount +1;?MoveColumn(ColCount-1, ACol);end; procedure TExCell.InsertRow(ARow: Integer);begin?RowCount :=RowCount +1;?MoveRow(RowCount-1, ARow);end; procedure TExCell.DeleteColumn(ACol: Longint);begin?MoveColumn(ACol, ColCount -1);?ColCount := ColCount - 1;end; procedure TExCell.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} procedure TForm1.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_CHECKBOXES ));?? With FNoCheck D