johnsonrao在吗？

[My_first]

还是昨天那个问题， 怎样让dbgrid 的第一列，双击的时候保持原样。

[johnsonrao]

对焦点格进行重绘，我先试通代码再给你。

[johnsonrao]

测试过重绘不行，由鼠标和键盘都能引发该事件。

想了一个另外的方法，应该可以，要在两个事件中加代码：

procedure TForm1.DBGrid1CellClick(Column: TColumn);
begin
if DBGrid1.SelectedIndex=0 then DBGrid1.SelectedIndex:=1;
end;

procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if DBGrid1.SelectedIndex=0 then DBGrid1.SelectedIndex:=1;
end;

最好在DBGrid1OnEnter事件中加上 DBGrid1.SelectedIndex:=1;

[bcb_fans]

老兄,我的方法不行吗?