Delphi DBGrid 操作单元格边框

Delphi DBGrid 操作单元格边框

procedure TForm1.DBGrid1CellClick(Column: TColumn);
var
  iCol,iRow:Integer;
  rRect:TRect;
begin
  iCol := TDrawGrid(DBGrid1).Col; //获取选择单元格的列，第一列为1
  iRow := TDrawGrid(DBGrid1).Row; //获取选择单元格的行，第一行为1
  rRect := TDrawGrid(DBGrid1).CellRect(iCol,iRow); //获取选择单元格的矩形框

  with DBGrid1.Canvas do
  begin
    Pen.Width := 4; //设置画笔 宽带
    Pen.Color := clRed; //设置画笔 颜色
    MoveTo(rRect.Left,rRect.Top); //设置画笔 起点
    LineTo(rRect.Right,rRect.Top); //画线
    Pen.Width := 2;
    Pen.Color := clYellow;
    MoveTo(rRect.Right,rRect.Top);
    LineTo(rRect.Right,rRect.Bottom);
  end;
end;

　　

创建时间：2020.10.20　　更新时间：