*取消StringGrid 的上焦点和默认蓝色框解决方案

2012-06-03

******取消StringGrid 的上焦点和默认蓝色框如上面所示，是两张图一个每次一运行，默认就有一个蓝色的框，我

******取消StringGrid 的上焦点和默认蓝色框

如上面所示，是两张图一个每次一运行，默认就有一个蓝色的框，我想取消这个蓝色的框，另外我想让StringGrid没有焦点功能

[解决办法]

Delphi(Pascal) code

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;  Rect: TRect; State: TGridDrawState);begin  with TStringGrid(Sender) do  if (not Focused) and (ACol=Col) and (ARow=Row) then  begin    Canvas.Brush.Color := clWindow;    Canvas.FillRect(Rect);    Canvas.Font.Color:= clWindowText;    Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol,ARow]);  end;end;
[解决办法]
判断 ((gdFocused in State) or (gdSelected in State))

热点排行

.NET

*取消StringGrid 的上焦点和默认蓝色框解决方案