Ver Mensaje Individual
  #3  
Antiguo 20-01-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
Empezado por bulc Ver Mensaje
...
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 [-]
// Situar en columna 1
procedure TForm1.FormCreate(Sender: TObject);
begin
  DBGrid1.SelectedIndex := 1;
end;

// Impedir ingreso en columna 0
procedure TForm1.DBGrid1ColEnter(Sender: TObject);
begin
  with TDBGrid(Sender) do
    if SelectedIndex = 0 then
      SelectedIndex := 1
end;

Para un StringGrid:
Código Delphi [-]
// Situar en columna 1
procedure TForm1.FormCreate(Sender: TObject);
begin
  StringGrid1.Col := 1;
end;

// Impedir ingreso en columna 0
procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  CanSelect := ACol <> 0;
end;

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 20-01-2014 a las 12:49:19.
Responder Con Cita