| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
pqnino
Novato
Registrado: Segunda-Feira, 14 de Fevereiro de 2011
Mensagens: 1
|
 Enviada: Ter Fev 15, 2011 1:15 pm Assunto: Alguem pode me ajudar... |
 |
|
Então, to tentando fazer um sisteminha pra calcular o TAF do quartel que eu sirvo e tal...
mas eu não to conseguindo fazer tipo...
uma função se no ComboBox
por exemplo...
2 combobox - um pra idade e um pra barra
ae pensei tipo...
quando a idade for 18 no cb_idade
no cb_barra aparecer as opções 12, 10, 8, 6 e tal
quando a idade for 19 no cb_idade
no cb_barra aparecer as opções 13, 11, 9, 7
e assim por diante...
pq pra cada idade, é uma quantia diferente de barras que tem que fazer...
se alguem por favor puder me ajudar, pq faz muito tempo que não mexo com delphi e to bem enferrujado, ae não sei em qual unit tenho que fazer essa função
ou se alguem sabe outro maneira de fazer, por favor...
obrigado! |
|
| Voltar ao Topo |
|
 |
joemil
Moderador
Registrado: Quinta-Feira, 25 de Março de 2004
Mensagens: 9100
Localização: Sinop-MT
|
| Enviada: Ter Fev 15, 2011 4:44 pm Assunto: |
|
|
tente isso:
| Código: | cb_barra.items.clear;
if cb_idade.text = '18' then
begin
cb_barra.items.Add('10');
cb_barra.items.Add('11');
...
end else
if cb_idade.text = '19' then
begin
cb_barra.items.Add('13');
cb_barra.items.Add('15');
...
end else
if cb_idade.text = '20' then
begin
cb_barra.items.Add('13');
cb_barra.items.Add('15');
...
end;
|
_________________
<b>SEMPRE COLOQUE [RESOLVIDO] NO SEU POST</b>
Enviar imagens: http://tinypic.com/ |
|
| Voltar ao Topo |
|
|
lucas_alves
Colaborador
Registrado: Domingo, 30 de Agosto de 2009
Mensagens: 1632
Localização: São Gonçalo - Rio de Janeiro
|
| Enviada: Sex Fev 18, 2011 9:55 am Assunto: |
|
|
Tente assim:
Cole isso no seu Form:
| Código: |
object Spin_Idade: TSpinEdit
Left = 80
Top = 64
Width = 64
Height = 24
MaxValue = 60
MinValue = 18
TabOrder = 0
Value = 0
end
object CB_Barras: TComboBox
Left = 184
Top = 61
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 1
end
|
No evento OnExit do SpinEdit:
| Código: |
procedure TForm1.Spin_IdadeExit(Sender: TObject);
Var I : Integer;
begin
CB_Barras.Clear;
for I := 1 to 4 do
CB_Barras.Items.Add(IntToStr((Spin_Idade.Value-4)-(I*2)));
end;
|
Abraços!!!
_________________
Agora eu também programo em PHP. |
|
| Voltar ao Topo |
|
|
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
