读书人

stringgrid某个单元格可不可以实现fie

发布时间: 2012-08-03 00:12:14 作者: rapoo

stringgrid某个单元格能否实现fiexedrows那样的3D突出显示和具有不可编辑性?
stringgrid某个单元格能否实现fiexedrows那样的3D突出显示和具有不可编辑性?

[解决办法]

Delphi(Pascal) code
......implementation{$R *.dfm}procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);begin  if (ACol=2)and(ARow=2) then begin    StringGrid1.Canvas.Brush.Color:=clBtnFace;    StringGrid1.Canvas.FillRect(Rect);    StringGrid1.Canvas.Pen.Color:=clblack;    StringGrid1.Canvas.Pen.Width:=2;    StringGrid1.Canvas.MoveTo(Rect.Left,Rect.Bottom);    StringGrid1.Canvas.LineTo(Rect.Right,Rect.Bottom);    StringGrid1.Canvas.LineTo(Rect.Right,Rect.Top);  end  else if (ACol>1)and(ARow>1) then begin    StringGrid1.Canvas.Brush.Color:=clWindow;    StringGrid1.Canvas.FillRect(Rect);  end;end;procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,  ARow: Integer; var CanSelect: Boolean);begin  if (ACol=2)and(ARow=2) then CanSelect:=false;end;end. 

读书人网 >.NET

热点推荐