Exibir mensagem anterior :: Exibir próxima mensagem |
Autor |
Mensagem |
ThaOli Novato
Registrado: Quinta-Feira, 21 de Outubro de 2010 Mensagens: 80
|
Enviada: Ter Dez 21, 2010 10:47 am Assunto: speedbuttons - delphi 4 [resolvido] |
|
|
Olá pessoal, preciso de uma ajudinha parece simples mas não tá funcionando aqui :s
é o seguinte:
tenho dois edits e dois speedbuttons. Enquanto os dois edits estiverem vazios, o speedbutton1 deverá aparecer e o speedbutton2 sumir. Quando os dois edits estiverem preenchidos, deverá aparecer o speedbutton2 e sumir o speedbutton1.
tentei o código abaixo, mas não tive sucesso ..
begin
if (edit1.text=' ') and (edit2.text=' ') then
begin
speedbutton1.visible:=true;
speedbutton2.visible:=false;
end
else
begin
speedbutton1.visible:=false;
speedbutton2.visible:=true;[/size]
end
end;
Conto com a ajuda de vocês, e desde já, OBRIGADA ;D
Editado pela última vez por ThaOli em Qua Dez 29, 2010 5:09 pm, num total de 1 vez |
|
Voltar ao Topo |
|
|
rogerbetti Colaborador
Registrado: Quarta-Feira, 2 de Fevereiro de 2005 Mensagens: 1366 Localização: São Paulo/SP
|
Enviada: Ter Dez 21, 2010 11:03 am Assunto: |
|
|
seleciona os dois edits e coloca no evento onchange
Código: | SpeedButton1.Visible := (Edit1.Text = EmptyStr) and (Edit2.Text = EmptyStr);
SpeedButton2.Visible := (Edit1.Text <> EmptyStr) and (Edit2.Text <> EmptyStr); |
mas e se um edit só etiver preenchido vão sumir os dois botões? |
|
Voltar ao Topo |
|
|
ThaOli Novato
Registrado: Quinta-Feira, 21 de Outubro de 2010 Mensagens: 80
|
Enviada: Sáb Dez 25, 2010 3:33 pm Assunto: |
|
|
Não ... Se só um edit estiver preenchido a configuração será a mesma se os dois estiverem vazios. Vou lá testar o codigo acima |
|
Voltar ao Topo |
|
|
ThaOli Novato
Registrado: Quinta-Feira, 21 de Outubro de 2010 Mensagens: 80
|
Enviada: Sáb Dez 25, 2010 3:43 pm Assunto: |
|
|
Não funcionou ... |
|
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: Sáb Dez 25, 2010 5:33 pm Assunto: |
|
|
Não sei se entendi direito, tente assim:
Código: |
SpeedButton1.Visible := (Edit1.Text = EmptyStr) or (Edit2.Text = EmptyStr);
SpeedButton2.Visible := Not (SpeedButton1.Visible);
|
Feliz natal!
Abraços!!! _________________ Agora eu também programo em PHP. |
|
Voltar ao Topo |
|
|
20071780437 Membro Junior
Registrado: Segunda-Feira, 8 de Março de 2010 Mensagens: 310
|
Enviada: Sáb Dez 25, 2010 7:42 pm Assunto: Re: speedbuttons - delphi 4 |
|
|
ThaOli escreveu: | Olá pessoal, preciso de uma ajudinha parece simples mas não tá funcionando aqui :s
é o seguinte:
tenho dois edits e dois speedbuttons. Enquanto os dois edits estiverem vazios, o speedbutton1 deverá aparecer e o speedbutton2 sumir. Quando os dois edits estiverem preenchidos, deverá aparecer o speedbutton2 e sumir o speedbutton1.
tentei o código abaixo, mas não tive sucesso ..
begin
if (edit1.text=' ') and (edit2.text=' ') then
begin
speedbutton1.visible:=true;
speedbutton2.visible:=false;
end
else
begin
speedbutton1.visible:=false;
speedbutton2.visible:=true;[/size]
end
end;
Conto com a ajuda de vocês, e desde já, OBRIGADA ;D |
Talvez você tenha inserido esse código no evento errado. E só mais uma coisa, e se apenas um dos edits não estiver vazio?
Código: |
{insira esse código no evento OnShow do form e também no OnChange dos dois Edits, lembrando que você pode utilizar o evento de um único componente para os outros também, contanto que o código de todos sejam iguais}
begin
{lembre que não há espaço entre as duas aspas simples, pois se houver, o if desse evento só vai entrar na condição do then se ambos os edits possuirem o valor ' ' (espaço).
OBS.: O comando Trim é para eliminar os espaços indesejados que ficam antes e depois de uma string}
if (Trim(edit1.text)='') and (Trim(edit2.text)='') then
begin
speedbutton1.visible:=true;
speedbutton2.visible:=false;
end
else begin
speedbutton1.visible:=false;
speedbutton2.visible:=true;
end;
end;
|
Teste utilizar o código que eu te passei dentro dos eventos que indiquei e veja se resolveu o seu problema. E me diz aí se o código passou a funcionar.
Espero ter ajudado. _________________ Thiago Pereira Nobre |
|
Voltar ao Topo |
|
|
ThaOli Novato
Registrado: Quinta-Feira, 21 de Outubro de 2010 Mensagens: 80
|
Enviada: Seg Dez 27, 2010 4:26 pm Assunto: |
|
|
Poxa, Já me ajudou bastante amigo! O seu codigo funcionou, fiz conforme descreveu aí em cima, porém eu gostaria que o speedbutton2 só ficasse visivel apenas depois que fosse digitado os dois campos, e no momento ele passa a ficar visivel quando digito apenas um dos campos, será que tem como ? |
|
Voltar ao Topo |
|
|
ThaOli Novato
Registrado: Quinta-Feira, 21 de Outubro de 2010 Mensagens: 80
|
Enviada: Qua Dez 29, 2010 5:11 pm Assunto: |
|
|
testei também o codigo do amigo Lucas_Alves aí em cima e deu certo! valeu gente ! |
|
Voltar ao Topo |
|
|
|