OnKeyPress dentro de DBGrid cell
 

Buen día amigos,

despues de mucho tiempo alejado del mundillo delphi, vuelvo a empezar. Y esperando siempre el buen consejo de los expertos del foro tengo una pequena duda.

Como hago para que una celda de un dbgrid acepte solo numeros? algo parecidoa como si lo hiciera en un Edit
saludos!

Saludos.

Si te refieres a una columna en especifico puedes probar con esto.

Código Delphi [-]
 if (not (key in ['0'..'9'])) and ((sender as TDBGrid).Col = 4)  then
 key := #0;

Cambia col = 4 por la columna a la que deseas aplicar.

Para que sea una celda en especifico se le debe agregar una condición mas.

Código Delphi [-]
 and ((sender as TDBGrid).Row = 1)

Gracias por la respuesta, aunque debo especificar un poco mas, hay algo que no sabia y es que donde estoy trabajando ahora tengo que usar unos componentes propios, su reemplazo de DBGrid no tiene la propiedad Col, por tanto no puedo usarla. Hay alguna forma alternativa? tal vez los mas expertos sabran como modificar el comportamiento del componente para agregar esa funcionalidad?

Si a alguien le interesa la programacion de componentes, tengo el codigo fuente, asi que podriamos agregar esa funcionalidad juntos.

Si no recuerdo mal puedes usar

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

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.

Hola Gaim2205.

Leyendo bién tu primer post (cosa que parece que no hice antes), veo que entendí cualquier cosa :o. 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.