Delphi DBGrid 操作单元格边框

Delphi DBGrid 操作单元格边框

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

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　　更新时间：