那里有StringGrid的例子啊，demo里有吗，没找到：（(20分)

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #1

发给我或告诉地址都行.lclpipi@163.com

我想给StringGrid1的列起名字,就是不知道在那里设置
StringGrid1可以改变每一列的颜色吗?

 

H

houanl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #2

StringGrid1可以改变每一列的颜色.

 

火

火龙真人

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #3

这里subgrid就是个STRINGGRID
subgrid.Cells[subgrid.col,subgrid.row]:=“输入格子里的字符串”
subgrid.col,subgrid.row是两个整型
变色在DrawCell事件里写下
procedure Tfrmmain.subgridDrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
subgrid.Canvas.Brush.Color:=clteal;
if Arow=4 then subgrid.Canvas.FillRect(Rect);//让第4行变色
end;

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #4

哦，俺试出来了：）不过也多谢真人了，不过最好还是有个例子，因为以后可能和
stringgrid要多打交道

 

H

HunterTeam

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #5

StringGrid1.Cells[0,0]:='abc' //第一列列标题设为'abc'；
StringGrid1.Cells[1,0]:='abd' //第二列列标题
要设置每一列的颜色，最好使用一些第三方控件，比如AlignStringGrid，很多地方都可以
下载。

 

I

imok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #6

procedure TForm1.StringGrid1Click(Sender: TObject);
var
i, j: Integer;
begin
with Query1 do begin
Open;
First;
StringGrid1.ColCount:= FieldCount+1;
StringGrid1.RowCount:= RecordCount+1;
for i:=0 to RecordCount-1 do
begin
for j:=0 to FieldCount-1 do
begin
StringGrid1.Cells[j+1,i+1]:= Fields[j].AsString;
end;
Next;
end;
end;
end;

 

L

lcl_003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-05

• #7

多人接受答案了。