stringgrid 使用技巧

1. 文字居中 加 选中时(焦点) 虚边框  如何加颜色

procedure   TForm1.StringGrid1DrawCell(Sender:   TObject;   ACol,   ARow:   Integer; 
    Rect:   TRect;   State:   TGridDrawState); 
var 
    vText:   PChar; 
begin 
    with   TStringGrid(Sender)   do   begin 
        vText   :=   PChar(Cells[ACol,   ARow]); 
        Canvas.FillRect(Rect); 
        DrawText(Canvas.Handle,   vText,   StrLen(vText),   Rect, 
            DT_CENTER   or   DT_VCENTER   or   DT_SINGLELINE);   //重绘单元格

        if   gdFocused   in   State   then   begin   //同意camel_luo//我来加一条 
            Rect.Left   :=   Rect.Left   +   1; 
            Rect.Top   :=   Rect.Top   +   1; 
            Rect.Right   :=   Rect.Right   -   1; 
            Rect.Bottom   :=   Rect.Bottom   -   1; 
            Canvas.DrawFocusRect(Rect); 
        end; 
    end; 
end;

2. 当行变色 指在编辑的状态下  区分当前 显示当前行与其他行的区别

 IF  gOperateState<>'浏览' THEN

   with TStringGrid(Sender) do

   begin

     if (inttostr(old)<>'0') and (old<>cur) then

     begin

       for i:=1 to  StringGrid1.ColCount-1 do

       begin

         Str:= StringGrid1.Cells[i,old];

         FRect:=StringGrid1.CellRect(i,old);  //获取区域

         Canvas.Brush.Color:=clCream;       //填充颜色 白色

         Canvas.FillRect(FRect);                   //区域填充

         SetTextColor(Canvas.Handle, clblack);  //文本颜色

         DrawText(Canvas.Handle, PChar(Str), Length(Str), FRect, 0);  //windows.pas 即 win32API 调用外部函数 stdcall

       end;

     end;

     if (inttostr(cur)<>'0') and (stringgrid1.row=cur) and (stringgrid1.row<>0) and (old<>stringgrid1.row) then

     begin

       old:=cur;  //新一行 旧一行

       for i:=1 to  StringGrid1.ColCount-1 do

       begin

         Str:= StringGrid1.Cells[i,stringgrid1.row];

         FRect:=StringGrid1.CellRect(i,stringgrid1.row);

         Canvas.Brush.Color:=clskyblue;

         Canvas.FillRect(FRect);

         SetTextColor(Canvas.Handle, clblack);

         DrawText(Canvas.Handle, PChar(Str), Length(Str), FRect, 0);

       end;

     end;

   end;