AINDA NAUM CONSEGUI!!! HELP ME!

Delphi

06/06/2003

ola eu to tentando associar um componente q tenha um valor inicial e outros 2 SpinEdit q qnd eu adiciono valor a eles eu tenho q subtrair na Edit essa Edit naum pode ser NUNCA menor que ZERO, e nenhum dos SpinEdit pode tmb ser menor que ZERO!

exemplo:

{Valor inicial}

SpEdt1.value = 0
SpEdt2.value = 0

EDIT.text = 12
***************

Exemplo 1

SpEdt.value = 1
SpEdt.value = 2
EDIT.text = 9
--------------------
Exemplo 1

SpEdt.value = 2
SpEdt.value = 2
EDIT.text = 8
--------------------
Exemplo 1

SpEdt.value = 1
SpEdt.value = 1
EDIT.text = 10
--------------------
Exemplo 1

SpEdt.value = 5
SpEdt.value = 0
EDIT.text = 7
--------------------
:oops:


Brunoaz

Brunoaz

Curtidas 0

Respostas

Skywalker

Skywalker

06/06/2003

Primeiro nos dois spinedit, caso eles tenham a procedure onkeypress
voce faz o seguinte

if not key in [´0´..´9´, #8, 13] then
key:= 0;

neste caso esta função testa se a tecla esta entre 0 e 9 ou se ela é o backspace ou enter se nao for ela retorna um caracter nulo
quanto a subtração nao poder dar numero negativo e so voce nao deixar o usuario sair da segunda edit enquanto o valor dela nao for maior que e da primeira edit


GOSTEI 0
POSTAR