OnKeyPress dentro de DBGrid cell

[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.