ActiveDelphi - Índice do Fórum ActiveDelphi
.: O site do programador Delphi! :.
 
 FAQFAQ   PesquisarPesquisar   MembrosMembros   GruposGrupos   RegistrarRegistrar 
 PerfilPerfil   Entrar e ver Mensagens ParticularesEntrar e ver Mensagens Particulares   EntrarEntrar 

speedbuttons - delphi 4 [resolvido]

 
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi
Exibir mensagem anterior :: Exibir próxima mensagem  
Autor Mensagem
ThaOli
Novato
Novato


Registrado: Quinta-Feira, 21 de Outubro de 2010
Mensagens: 80

MensagemEnviada: Ter Dez 21, 2010 10:47 am    Assunto: speedbuttons - delphi 4 [resolvido] Responder com Citação

Olá pessoal, preciso de uma ajudinha Smile 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
Ver o perfil de Usuários Enviar Mensagem Particular
rogerbetti
Colaborador
Colaborador


Registrado: Quarta-Feira, 2 de Fevereiro de 2005
Mensagens: 1366
Localização: São Paulo/SP

MensagemEnviada: Ter Dez 21, 2010 11:03 am    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular
ThaOli
Novato
Novato


Registrado: Quinta-Feira, 21 de Outubro de 2010
Mensagens: 80

MensagemEnviada: Sáb Dez 25, 2010 3:33 pm    Assunto: Responder com Citação

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 Wink
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
ThaOli
Novato
Novato


Registrado: Quinta-Feira, 21 de Outubro de 2010
Mensagens: 80

MensagemEnviada: Sáb Dez 25, 2010 3:43 pm    Assunto: Responder com Citação

Não funcionou ... Sad
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
lucas_alves
Colaborador
Colaborador


Registrado: Domingo, 30 de Agosto de 2009
Mensagens: 1632
Localização: São Gonçalo - Rio de Janeiro

MensagemEnviada: Sáb Dez 25, 2010 5:33 pm    Assunto: Responder com Citação

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
Ver o perfil de Usuários Enviar Mensagem Particular Enviar E-mail Visitar a homepage do Usuário
20071780437
Membro Junior
Membro Junior


Registrado: Segunda-Feira, 8 de Março de 2010
Mensagens: 310

MensagemEnviada: Sáb Dez 25, 2010 7:42 pm    Assunto: Re: speedbuttons - delphi 4 Responder com Citação

ThaOli escreveu:
Olá pessoal, preciso de uma ajudinha Smile 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
Ver o perfil de Usuários Enviar Mensagem Particular
ThaOli
Novato
Novato


Registrado: Quinta-Feira, 21 de Outubro de 2010
Mensagens: 80

MensagemEnviada: Seg Dez 27, 2010 4:26 pm    Assunto: Responder com Citação

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 ? Very Happy
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
ThaOli
Novato
Novato


Registrado: Quinta-Feira, 21 de Outubro de 2010
Mensagens: 80

MensagemEnviada: Qua Dez 29, 2010 5:11 pm    Assunto: Responder com Citação

testei também o codigo do amigo Lucas_Alves aí em cima e deu certo! Very Happy valeu gente !
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Mostrar os tópicos anteriores:   
Novo Tópico   Responder Mensagem    ActiveDelphi - Índice do Fórum -> Delphi Todos os horários são GMT - 3 Horas
Página 1 de 1

 
Ir para:  
Enviar Mensagens Novas: Proibido.
Responder Tópicos Proibido
Editar Mensagens: Proibido.
Excluir Mensagens: Proibido.
Votar em Enquetes: Proibido.


Powered by phpBB © 2001, 2005 phpBB Group
Traduzido por: Suporte phpBB