stringgrid某个单元格能否实现fiexedrows那样的3D突出显示和具有不可编辑性?
stringgrid某个单元格能否实现fiexedrows那样的3D突出显示和具有不可编辑性?
[解决办法]
......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.