Question

delphi为什么拖动stringgrid滚动条,数据和颜色就会部分消失

Answer 1

你绘制单元格的代码有问题。
在Drawcell事件的时候，你可能是为绘制每个单元格触发的事件，如果这样的话，你的代码就属于比较糟的。

如果有类似 Canvas.TextOut(rect.left , rect.top, Cells[j, i]);代码，替换为
Canvas.TextRect(Rect,Rect.left,Rect.top,Cells[Acol,Arow]);这样的代码。

追问

请问drewcell事件是怎么个触发的？是不是程序运行时它就开始画了？

追答

在form只有一个stringgrid控件的情况，以下是form的执行顺序：
1、form.create;含控件的初始化
2、form.show
3、form内控件的部分代码，此时，即使cell里没有数据，也要执行cell的drawcell
4、form.paint 可能和上面drawcell交替执行，因为drawcell也是paint，都是画
5、form.active
6、现在看见你的form
你试一下以下代码：颜色你可以改，我随便设的
procedure TForm1.strngrd1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with Sender as TStringGrid do
begin
if (ARow mod 2 =0) then
begin //偶数row
Canvas.Brush.Color := clYellow; //底色
Canvas.font.Color:=clRed; //字体颜色
end
else
begin
Canvas.Brush.Color := clBlue;
Canvas.font.Color := clYellow;
end;
Canvas.FillRect(Rect); //绘底色
canvas.textout(rect.Left,rect.Top,cells[Acol,ARow]); //output text
end;
end;

追问

我想将stringgrid中的数据与数据库中作对比，找出存在的才会使某其对应的数据行填色，我用的是drewcell事件，可是每次运行表格就全部填色了，请问我该如何解决呢？据说只要是用到stringgrid就会触发drewcell事件，可是我不想随时触发它，只有满足条件时才触发它、

追答

触发肯定触发，可是你在drewcell事件里设置条件涂颜色不就行了吗？例如，当数值小于的时候，字体颜色为红色：
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1 do
if Cells[ACol,ARow] = '1233' then
begin
Canvas.Font.Color := clred;
Canvas.Brush.color:=clMoneyGreen;
Canvas.FillRect(Rect);
Canvas.TextOut(Rect.Left+2,Rect.Top+2,Cells[ACol,ARow]);
end;
end;

如果你和数据中的比较，可以在加一个dbgrid控件，用来存储数据库中的值，和dbgrid比较就行了，相同不变色，不同为绿色。这方面百度、论坛上找找，应该可以找到。

追问

with QryData do begin Params.Clear;
CommandText :=' selectb.part_no .....这里就不全写了 '
Open; n:=RecordCount ;
for h:= 1 to n do begin gpartno:= FieldByName('part_no').AsString ;
for k:=1 to m do begin if stringgrid1.Cells[1,k]=gpartno then begin for j:=0 to 6 do begin
stringgrid1.Cells[j,k];end; Next; flag:=0;然后就是procedure stringgrid1drewcell()事件

Answer 2

应该与控件自身无关,可能是你的电脑屏幕刷新速度有问题,换个其它机器运行,试试

追问

又是你为我回答，很感谢啊。可是真的是机器的问题吗？我感觉不太像啊

追答

stringgrid,我是从不使用的,你提出问题之后,我在机器上试了一下,没有什么问题.你可能把颜色搞的太多了花梢了.

追问

我知道大概原因了，是因为我没有用drewCell函数画，现在我想在DrewCell函数中画。我该如何给指定行填颜色呢？还有drewcell函数怎么被触发的还是程序运行就自动触发了？