怎样去掉StringGrid表格中的蓝色格子？(50分)

S

sleepy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-16

• #1

我仅仅想通过格子来显示数据，而不需要修改数据，但是格子中总是有
一个蓝色的格子。 我在Option中去掉了GoRangeSelect，还是会有，
请问有什么好办法吗？

 

J

jet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-16

• #2

跟踪

 

C

churchill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-16

• #3

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
with Canvas do
begin
if (ARow>=FixedRows)and(ACol>=FixedCols) then Brush.Color:=clWhite;
FillRect(Rect);
end;
end;

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #4

stringgrid1.DefaultDrawing:=false; //must add

 

K

kchsun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #5

关注

 

F

fx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #6

教一个歪招：
利用stringgrid.Selection属性，把当前的焦点cell设为一个显示区域外的cell上。如一个5*5的grid,但只显示4行，可onExit在中：
var a:TGridRect;
begin
a.Left:=4;
a.Top:= 4;
a.Bottom:=5;
a.Right:=5;
stringgrid1.Selection:=a;
end;

 

S

Schiesser

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #7

将alwaysshowselection设为false试一下。

 

Y

youtoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #8

stringgrid中写入数据后，
enabled:=false;

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-18

• #9

>>

 

W

websoul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-10-22

• #10

goFocusSelected:=False;
goAlwaysShowEditor:=False;

 

3

3h

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-11-16

• #11

ok.