Delphi StringGrid使用全書2

領測軟件測試網

StdCtrls, Db, ADODB, DBTables, Grids;//注意這里要引用

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure SGDrawCell(Sender: TObject; ACol, ARow: Integer;
　 Rect: TRect; State: TGridDrawState);
procedure SGTopLeftChanged(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

// 以下 StringGrid 為固定行，固定列的合并所必須進行的處理
// 非固定行，非固定列的合并效果不好
var
sg:TStringGrid;

文章來源于領測軟件測試網 http://www.kjueaiud.com/