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 

Esse código meu n quer compilar [Resolvido]

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


Registrado: Quinta-Feira, 4 de Julho de 2013
Mensagens: 163

MensagemEnviada: Dom Ago 18, 2013 12:40 pm    Assunto: Esse código meu n quer compilar [Resolvido] Responder com Citação

Quero q quando clicar no botão, abre a imagem +1.
Vou explicar:
Esse aq é o código q NÂO vai funcionar:



Var
Contador : integer;

No form create, coloquei Contador := 0;

begin

if Opendialog1.Execute then
begin
image + (Contador +1).Bitmap.LoadFromFile(OpenDialog1.FileName);

end;


Obs: Bitmap é a msm coisa q Picture, só q eu to usando o firemonkey.


Oq eu quero q aconteça alí, é q toda hr q eu clicar no botão q tenha esse código, vai abrir em uma imagem diferente.
Ex: primeiro abre na image1, dps abre na image2, dps na image3..
Como faço esse código?


Editado pela última vez por 3141592653589793238462643 em Seg Ago 19, 2013 2:17 pm, num total de 1 vez
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Oseiasao
Membro Junior
Membro Junior


Registrado: Sexta-Feira, 14 de Outubro de 2011
Mensagens: 303

MensagemEnviada: Seg Ago 19, 2013 8:47 am    Assunto: Responder com Citação

testa assim ..

Var
Contador : integer;
begin

if Opendialog1.Execute then
begin
image+(Contador).Bitmap.LoadFromFile(OpenDialog1.FileName);
Contador := Contador + 1;
end;
_________________
Melhor é o fim das coisas do que o principio delas .... (Salomão)
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
3141592653589793238462643
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 4 de Julho de 2013
Mensagens: 163

MensagemEnviada: Seg Ago 19, 2013 10:33 am    Assunto: Responder com Citação

Oséiasao escreveu:
testa assim ..

Var
Contador : integer;
begin

if Opendialog1.Execute then
begin
image+(Contador).Bitmap.LoadFromFile(OpenDialog1.FileName);
Contador := Contador + 1;
end;

N quer dar certo, será q é pq to no firemonkey?
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
CesarRocha
Mestre
Mestre


Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP

MensagemEnviada: Seg Ago 19, 2013 10:51 am    Assunto: Responder com Citação

Use findComponent para localizar ele, depois faça o que for preciso. Ex,

Código:
var
  imgTemp: TImage;
begin
  imgTemp := Self.FindComponent('image' + IntToStr(Contador)) as TImage;
  if imgTemp <> nil then
    // faz algo se achou...

~bye
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
Oseiasao
Membro Junior
Membro Junior


Registrado: Sexta-Feira, 14 de Outubro de 2011
Mensagens: 303

MensagemEnviada: Seg Ago 19, 2013 10:53 am    Assunto: Responder com Citação

iiiiiixi amigo, ai não sei te responder ..

não uso firemonkey
_________________
Melhor é o fim das coisas do que o principio delas .... (Salomão)
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular MSN Messenger
3141592653589793238462643
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 4 de Julho de 2013
Mensagens: 163

MensagemEnviada: Seg Ago 19, 2013 1:19 pm    Assunto: Responder com Citação

CesarRocha escreveu:
Use findComponent para localizar ele, depois faça o que for preciso. Ex,

Código:
var
  imgTemp: TImage;
begin
  imgTemp := Self.FindComponent('image' + IntToStr(Contador)) as TImage;
  if imgTemp <> nil then
    // faz algo se achou...

~bye


Ainda n entendi kkkk
Como assim, oq vou fazer?

Vou explicar oq eu quero, talvez vc possa me ajudar:

Esse código aq cria um componente Timage:


with Timage.Create(Self) do
begin
Parent := form1;
Width := 40;
end;


Esse aq abre a imagem:

if Opendialog1.Execute then
begin
image1.Bitmap.LoadFromFile(OpenDialog1.FileName);

Mas percebe q eu estou me referindo a image1, e eu quero q aquele 1 da image1 sempre acrescente mais 1, assim, no final das contas, o usuário vai criar e abrir uma imagem toda hr q clicar.

Não entendi como aplicar seu código no projeto :S
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
CesarRocha
Mestre
Mestre


Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP

MensagemEnviada: Seg Ago 19, 2013 1:22 pm    Assunto: Responder com Citação

Hmm... uma última informação, deixa eu ver se entendi. Toda vez que o user clicar em um botão deve criar uma nova imagem?

~
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
3141592653589793238462643
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 4 de Julho de 2013
Mensagens: 163

MensagemEnviada: Seg Ago 19, 2013 1:25 pm    Assunto: Responder com Citação

CesarRocha escreveu:
Hmm... uma última informação, deixa eu ver se entendi. Toda vez que o user clicar em um botão deve criar uma nova imagem?

~


Sim Very Happy
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
CesarRocha
Mestre
Mestre


Registrado: Segunda-Feira, 30 de Mai de 2011
Mensagens: 794
Localização: São Paulo - SP

MensagemEnviada: Seg Ago 19, 2013 2:05 pm    Assunto: Responder com Citação

3141592653589793238462643 escreveu:
CesarRocha escreveu:
Hmm... uma última informação, deixa eu ver se entendi. Toda vez que o user clicar em um botão deve criar uma nova imagem?

~


Sim Very Happy

Dê uma olhada nesse exemplo,

https://dl.dropboxusercontent.com/u/101465525/Active%20Delphi/Criar%20Imagem%20Dinamicamente%20-%20436549.rar

~bye
Voltar ao Topo
Ver o perfil de Usuários Enviar Mensagem Particular
3141592653589793238462643
Aprendiz
Aprendiz


Registrado: Quinta-Feira, 4 de Julho de 2013
Mensagens: 163

MensagemEnviada: Seg Ago 19, 2013 2:16 pm    Assunto: Responder com Citação

CesarRocha escreveu:
3141592653589793238462643 escreveu:
CesarRocha escreveu:
Hmm... uma última informação, deixa eu ver se entendi. Toda vez que o user clicar em um botão deve criar uma nova imagem?

~


Sim Very Happy

Dê uma olhada nesse exemplo,

https://dl.dropboxusercontent.com/u/101465525/Active%20Delphi/Criar%20Imagem%20Dinamicamente%20-%20436549.rar

~bye


Vlwwwwwwwwwwww msm Very HappyVery HappyVery HappyVery HappyVery Happy
Era isso msm \o
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