| Exibir mensagem anterior :: Exibir próxima mensagem |
| Autor |
Mensagem |
3141592653589793238462643 Aprendiz

Registrado: Quinta-Feira, 4 de Julho de 2013 Mensagens: 163
|
Enviada: Dom Ago 18, 2013 12:40 pm Assunto: Esse código meu n quer compilar [Resolvido] |
|
|
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 |
|
 |
Oseiasao Membro Junior


Registrado: Sexta-Feira, 14 de Outubro de 2011 Mensagens: 303
|
Enviada: Seg Ago 19, 2013 8:47 am Assunto: |
|
|
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 |
|
 |
3141592653589793238462643 Aprendiz

Registrado: Quinta-Feira, 4 de Julho de 2013 Mensagens: 163
|
Enviada: Seg Ago 19, 2013 10:33 am Assunto: |
|
|
| 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 |
|
 |
CesarRocha Mestre

Registrado: Segunda-Feira, 30 de Mai de 2011 Mensagens: 794 Localização: São Paulo - SP
|
Enviada: Seg Ago 19, 2013 10:51 am Assunto: |
|
|
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 |
|
 |
Oseiasao Membro Junior


Registrado: Sexta-Feira, 14 de Outubro de 2011 Mensagens: 303
|
Enviada: Seg Ago 19, 2013 10:53 am Assunto: |
|
|
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 |
|
 |
3141592653589793238462643 Aprendiz

Registrado: Quinta-Feira, 4 de Julho de 2013 Mensagens: 163
|
Enviada: Seg Ago 19, 2013 1:19 pm Assunto: |
|
|
| 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 |
|
 |
CesarRocha Mestre

Registrado: Segunda-Feira, 30 de Mai de 2011 Mensagens: 794 Localização: São Paulo - SP
|
Enviada: Seg Ago 19, 2013 1:22 pm Assunto: |
|
|
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 |
|
 |
3141592653589793238462643 Aprendiz

Registrado: Quinta-Feira, 4 de Julho de 2013 Mensagens: 163
|
Enviada: Seg Ago 19, 2013 1:25 pm Assunto: |
|
|
| 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  |
|
| Voltar ao Topo |
|
 |
CesarRocha Mestre

Registrado: Segunda-Feira, 30 de Mai de 2011 Mensagens: 794 Localização: São Paulo - SP
|
|
| Voltar ao Topo |
|
 |
3141592653589793238462643 Aprendiz

Registrado: Quinta-Feira, 4 de Julho de 2013 Mensagens: 163
|
Enviada: Seg Ago 19, 2013 2:16 pm Assunto: |
|
|
Vlwwwwwwwwwwww msm    
Era isso msm \o |
|
| Voltar ao Topo |
|
 |
|