Fórum ListBox e Input #585816
13/09/2017
0
Estou começando agora com o Delphi e por isso não conheço mesmo coisas básicas.
Tenho as duas Listbox, e para cada ver que uma delas e selecionada gostaria de abrir um input diferente, mais ou menos assim:
Como posso fazer isso funcionar, qual comando devo usar?
Tenho as duas Listbox, e para cada ver que uma delas e selecionada gostaria de abrir um input diferente, mais ou menos assim:
If
<<Primeira opção ListBox1 acionada>>
n=inputBox('Entrada de dados', 'n');
a:=2*n
ShowMessage(a)
Else
<<Segunda opção ListBox1 acionada>>
n=inputBox('Entrada de dados', 'n');
b:=3*n
ShowMessage(a);
End.Como posso fazer isso funcionar, qual comando devo usar?
Graal
Curtir tópico
+ 0
Responder
Post mais votado
13/09/2017
procedure TForm1.ListBox1Click(Sender: TObject);
var
s1 : string;
begin
s1 := ListBox1.Items.Strings[ListBox1.ItemIndex];
if (s1='1') then
s1 := inttostr( 2 * StrToInt(s1))
else if (s1='2') then
s1 := inttostr( 3 * StrToInt(s1))
else
s1:='Erro';
ShowMessage('Saida '+s1);
end;
Luiz Vichiatto
Responder
Gostei + 1
Mais Posts
14/09/2017
Graal
Obrigado, consegui entender e posso adaptar para minha situação.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)