OnKeyPress dentro de DBGrid cell

[[José Luis Garcí]]

Si no recuerdo mal puedes usar

Código Delphi [-]
TStrinGrid(Dbgrid1).Col=4

[ecfisa]

Hola.

Con un TDBGrid otra posibilidad es:

Código Delphi [-]
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  if (TDBGrid(Sender).SelectedField.FieldName = 'Nombre_del_Campo') and
     not(Key in [#8,#9,#13,'0'..'9']) then
  begin
    MessageBeep(MB_ICONERROR);
    Key:=#0;
  end;
end;

Saludos.

[ecfisa]

Hola Gaim2205.

Como hago para que una celda de un dbgrid acepte solo numeros?

Leyendo bién tu primer post (cosa que parece que no hice antes), veo que entendí cualquier cosa . El código anterior verifica columna no celda.

Probá de esta forma:

Código Delphi [-]

type
  TDBGridEx = class(TDBGrid);

procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  with TDBGridEx((Sender as TDBGrid)) do
    if(Col = ACol) and (Row= ARow) and not(Key in [#8,#9,#13,'0'..'9']) then
    begin
      MessageBeep(MB_ICONERROR);
      Key:= #0;
    end;
end;
...

ACol y ARow son variables de tipo Integer que almacenan columna y fila de la celda que sólo deberá aceptar números.

Un saludo.