Código Delphi [-] procedure TForm1.DBGrid1ColEnter(Sender: TObject); begin with TDBGrid(Sender) do if SelectedIndex in [1..Columns.Count-1] then SelectedIndex:= 0; end;
procedure TForm1.DBGrid1ColEnter(Sender: TObject); begin with TDBGrid(Sender) do if SelectedIndex in [1..Columns.Count-1] then SelectedIndex:= 0; end;