é Dificil!

[Progr'amador]

É o seguinte, temho um campo na minha tabela chamado 'Quantidade_Ajuste', e tenho um outro campo chamado 'Peso_Variado' = ('S ou N') na Tabela de Cadastro de Produto, o que identifica se o produto tem peso variado ou não,

Ex: Tomate, cebola,... Peso_Variado = 'S',

Feijão, Arroz, ... Peso_Variado = 'N'.

Meu Problema é o segunte: Tenho um 'Form' de Ajuste de Estoque, e tem um DBEdit do campo 'Quantidade_Ajuste', e eu queria que quando o produto fosse tipo 'N' no caso do Feijão, arroz, etc, ele não permitisse a digitação de valores fracionados (Ex: 2.136).

Será que deu pra entender...

[Graymalkin]

Usando o evento OnKeyPress e verificando o argumento key da mesma, é possível você identificar se o usuário pressionou o ".". Daí, basta atribuir #0 à key para cancelar a tecla pressionada.

Abraços,

Graymalkin

[mds]

Uma possível solução:

if not (Key in ['0'..'9']) then
  key := #0;

Isso você coloca no evento KeyPress do seu DBEdit.

[]´s!