Hola
Si quieres escribir sólo números , en cualquier control ,pues pones en el OnKeyPress :
Código Delphi
[-]
if not (key in ['0'..'9',#8]) then key:=#0;
vale , pero yo tengo un control dxDBGrid , el DBGrid del DevExpress , supongo que en el dbGrid será lo mismo .
Tengo une evento GetText , que va analizando lo que vas escribiendo.
Es así :
Código Delphi
[-]
procedure TFDefineFiltroCD.DBGridColumn1GetText(Sender: TObject;
ANode: TdxTreeListNode; var AText: String);
begin
end;
Ahí es donde habría que escribir el código , la variable ANode , pues la podemos obviar , y AText , registra lo que llevas escrito , ahí es donde veo yo que se puede poner el código adecuado .
Pero realmente no sé como hacerlo .
A ver si a alguien se le ocurre algo.
Un saludo