Cita:
Empezado por bulc
...
Se trata de evitar que se puedan editar los datos de la columna numérica inicial[0].
...
|
Hola bulc.
Tendrías que haber especificado si estas usando un
TDBGrid o un
TStringGrid...
Para un DBGrid:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
DBGrid1.SelectedIndex := 1;
end;
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
with TDBGrid(Sender) do
if SelectedIndex = 0 then
SelectedIndex := 1
end;
Para un StringGrid:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
StringGrid1.Col := 1;
end;
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
ARow: Integer; var CanSelect: Boolean);
begin
CanSelect := ACol <> 0;
end;
Saludos
