请问:在StringGrid内显示100行数据,窗口可见是10行,座边的FixedCols显示行号......

Question

请问:在StringGrid内显示100行数据,窗口可见是10行,座边的FixedCols显示行号分别为
0,1,2,3,4,5,6,7,8,9 如果要拉动滚动条想看下面十一行以后的数据,FixedCols显示的行好
还是0,1,2,3,4,5,6,7,8,9 即使你把滚动条拉到末行,FixedCols显示的还是0,1,2,3,4,5,6,7,8,9 
比如:
    姓名     年龄      性别       工作单位
0   甲        33        男          xxxx
1   以        22        女          营业员 
2   亿        29        女          四饿
3   乙        34        女          时光
4   丙        23        男          亿饿
5   ....................................
6   ....................................
7   ....................................
8   ....................................
9   ....................................

Answer 1

给你个例子:
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;type
  TForm1 = class(TForm)
    sg: TStringGrid;
    Button1: TButton;
    procedure sgDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
      State: TGridDrawState);
    procedure sgTopLeftChanged(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  i:integer;
begin
  if rect.Left=0 then
  begin
    i:=rect.Top div  sg.DefaultRowHeight;
    sg.Canvas.TextOut(0,rect.Top,inttostr(i));
    sg.Update;
  end;
end;
procedure TForm1.sgTopLeftChanged(Sender: TObject);
begin
  sg.Repaint;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=1 to 100 do
    sg.Cells[2,i]:=inttostr(i);
end;end.

Answer 2

谢谢解答!
请问这行i:=rect.Top div  sg.DefaultRowHeight;
如何理解?

Answer 3

我的作法是,直接按位置在第0列(即fixedcols)上画0-9
fixedcols的rect.Left=0,所以用
if rect.Left=0 then
而每一行的值i=单元格的top/每格的高度
所以
i:=rect.Top div  sg.DefaultRowHeight;
(其中sg为stringgrid的name)

Answer 4

简单改一下
procedure TForm1.sgDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var
  i:integer;
begin
  if (rect.Left=0) and (rect.Top>sg.DefaultRowHeight) then  //这里,从第1行开始
  begin
    i:=rect.Top div  sg.DefaultRowHeight-1;    //i从0开始
    sg.Canvas.TextOut(0,rect.Top,inttostr(i));
    sg.Update;
  end;
end;