高分请教（快要急死了）(200分)

Y

ykx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #1

如何控制stringgrid中的指定的几个格子变色，要能够控制

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #2

在这个事件中处理：
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin

end;

 

L

lentilz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #3

同意楼上兄弟！

 

Y

ykx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #4

怎么处理
详细一点
能举一个简单的例子吗

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #5

这是个dbgrid的例子，供参考，<delphi4编程技术内幕》有详细说明。
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect:TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

if Table1.FieldByName('Population').AsInteger > 20000000 then

DBGrid1.Canvas.Font.Color := clBlue;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

 

R

Robin_Fang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #6

同意张剑波的意见

 

Y

ykx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #7

sorry,我要的是stringgrid的方法，not dbgrid

 

S

sisha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #8

与DBGrid方法相同，可以的。

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #9

把分拿来！！！！！！！！！！！！！！！！！！！！！！！！

procedure TForm1.Button1Click(Sender: TObject);
var
rect:TRect;
begin
rect:=StringGrid1.cellrect(1,1);
StringGrid1.Canvas.Brush.Color:=clBackground;
StringGrid1.Canvas.FillRect(rect);
end;

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #10

根据panyongze：
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
if arow=1 then
begin
StringGrid1.Canvas.Brush.Color:=clred;
StringGrid1.Canvas.FillRect(rect);
end;
if arow=2 then
begin
StringGrid1.Canvas.Brush.Color:=clgreen;
StringGrid1.Canvas.FillRect(rect);
end;

end;
以上编译通过。
只是行变色，我想if (arow=1 and acol=1) then 怎么出错，难到需双重判断
很菜的问题，各位请帮忙

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #11

哈哈简单问题，应该这样
if (arow=1) and (acol=1) then

 

D

DJ.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #12

if (arow=1) and (acol=1) then

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #13

DJ.:
thanks！
要分吗？

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #14

张大侠只是开个玩笑而已。

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #15

不要笑。
请ykx把我或许应该得到的分给panyongze和DJ。吧！
我不要分了，又学到了东西，感谢panyongze

 

P

panyongze

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #16

张大侠不要那么客气，有时间咱们聊聊，今天晚上我上来一看，哎呀排名101
再得10分就要《金榜提名》了，可是辛苦了半个晚上哪个老兄都不给分，你说
急不急？（不是跟你要分，只是说以下我的感受而已。）

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #17

panyongze：
不要客气。
在大富翁里看排名榜是没有多少用处的，部分高手没分了，就开许多帐号。
基本上你看他们提出的问题就知道他的水平了。
我水平很一般，山东烟台人，职业会计。
EMAIL：ok923@163.net 请互相帮助
后会有期。

 

D

DJ.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #18

张兄：你好！俺也是(si)山(san)东人(yin),山东济南，也是会计。是老乡+同行，以后多向您学习！

 

张

张剑波

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-21

• #19

DJ.:
你好,我是<票据法>里的支付结算会计,我们不会是同行中的同行吧?
ok923@163.net 请多联系.

 

Y

ykx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-06-22

• #20

再问一下，这样虽然可以控制背景颜色，但是格子中的字符却消失了，怎么解决这个问题？