Mostrar textos diferentes na mesma edit usando button
Bom dia a todos!
Sou novo no fórum e na área de programação e tenho a seguinte pergunta: creio que sera bem fácil mas já procurei por termos parecidos e não encontro algo relacionado.
Quero apenas fazer com que toda vez que o button1 for clicado um texto já pre-definido no código seja mostrado em uma edit ou ate mesmo em uma label tanto faz.
exemplo: cliquei uma vez aparece o texto "texto1" - cliquei outra vez aparece o "texto1" cliquei outra vez aparece o "texto3", sendo que os textos já estariam pre-definidos na aplicação.
Obrigado desde ja!
Sou novo no fórum e na área de programação e tenho a seguinte pergunta: creio que sera bem fácil mas já procurei por termos parecidos e não encontro algo relacionado.
Quero apenas fazer com que toda vez que o button1 for clicado um texto já pre-definido no código seja mostrado em uma edit ou ate mesmo em uma label tanto faz.
exemplo: cliquei uma vez aparece o texto "texto1" - cliquei outra vez aparece o "texto1" cliquei outra vez aparece o "texto3", sendo que os textos já estariam pre-definidos na aplicação.
Obrigado desde ja!
Nazomii
Curtidas 0
Melhor post
Raimundo Pereira
14/09/2015
Nazomii,
Var Form1,TForm1;
Var Texto1,Texto2 :string;
////////Mostrando dados em edits
No on create do seu form ;
//Aqui quando sua aplicação for iniciada as variáveis são preenchidas.
begin
Texto1:='Seu Texto 1';
Texto2:='Seu Texto 2';
edit1.text:=texto1; //ou texto 2
end;
No click do button coloque
begin
if edit1.text=texto1 then
begin
edit1.text:=texto2;
end
else
begin
if edit1.text=texto2 then
begin
edit1.text:=texto1;
end;
////////Mostrando dados em Labels
No on create do seu form ;
//Aqui quando sua aplicação for iniciada as variáveis são preenchidas.
begin
Texto1:='Seu Texto 1';
Texto2:='Seu Texto 2';
label1.caption:=texto1; //ou texto 2
end;
No click do button coloque
begin
if label1.caption=texto1 then
begin
label1.caption:=texto2;
end
else
begin
if label1.caption=texto2 then
begin
label1.caption:=texto1;
end;
A diferencia entre o edit e a label são que no edit você a propriedade edit.text e a label é label.caption
Testa ai se ajudar, dar um retorno como Resolvido.
No aguardo.
Var Form1,TForm1;
Var Texto1,Texto2 :string;
////////Mostrando dados em edits
No on create do seu form ;
//Aqui quando sua aplicação for iniciada as variáveis são preenchidas.
begin
Texto1:='Seu Texto 1';
Texto2:='Seu Texto 2';
edit1.text:=texto1; //ou texto 2
end;
No click do button coloque
begin
if edit1.text=texto1 then
begin
edit1.text:=texto2;
end
else
begin
if edit1.text=texto2 then
begin
edit1.text:=texto1;
end;
////////Mostrando dados em Labels
No on create do seu form ;
//Aqui quando sua aplicação for iniciada as variáveis são preenchidas.
begin
Texto1:='Seu Texto 1';
Texto2:='Seu Texto 2';
label1.caption:=texto1; //ou texto 2
end;
No click do button coloque
begin
if label1.caption=texto1 then
begin
label1.caption:=texto2;
end
else
begin
if label1.caption=texto2 then
begin
label1.caption:=texto1;
end;
A diferencia entre o edit e a label são que no edit você a propriedade edit.text e a label é label.caption
Testa ai se ajudar, dar um retorno como Resolvido.
No aguardo.
GOSTEI 1
Mais Respostas
Nazomii
14/09/2015
Vlw man, dei uma reduzida, mas era esse mesmo o ponto que eu precisava, não sei como finalizar o tópico, mas ta ok finalizado muito Obrigado.
GOSTEI 0
Raimundo Pereira
14/09/2015
Vlw man, dei uma reduzida, mas era esse mesmo o ponto que eu precisava, não sei como finalizar o tópico, mas ta ok finalizado muito Obrigado.
RESOLVIDO
GOSTEI 0