Colocar imagem *.jpeg no fundo do formul�rio principal

Question

Tenho procurado pela internet  um exemplo de como fazer para colocar uma imagem jpeg no fundo de meu formul�rio principal, mas n�o encontrei da forma que preciso. Gostaria de selecionar algumas imagen...

Paullsoftware · Answer

Eu lembro que no portal da ClubeDelphi tem uma dica de como fazer isso... mais aqui vai uma de como colocar um bmp//www.devmedia.com.br/articles/viewcomp.asp?comp=1873...

Vandeir · Answer

Obrigado pela dica amigo, mas colocar apenas uma imagem de fundo eu consegui, o que eu queria era colocar v�rias e o sistema fizesse a rotatividade das imagens toda vez que for iniciar.

Eu vi um sistema que t�m essa fun��o. O caminho das imagens s�o gravados num campo tipo blob e as imagens fica numa pasta no disco. Agora o que eu n�o dou conta � de fazer � o codigo para pegar esse caminho do campo blob e jogar essa imagem no componete Timage.

Marco Salles · Answer

[quote:684207c7e4]Gostaria de selecionar algumas imagens e colocar numa pasta e da� fazer com que toda que inicie o sistema ele carrege essas imagens para o formul�rio principal de forma alternada. Por favor algu�m poderia me ajudar a fazer isso, pois estou iniciando no Delphi e n�o consegui fazer.[/quote:684207c7e4][quote:684207c7e4]function TForm1.RetornarCaminhoValido(Folder,Filter:String): String;var  sr: TSearchRec;  i: Integer;  MeusJpegs:TstringList;begin   MeusJpegs:=TstringList.Create;  if FindFirst (Folder + Filter, faAnyFile, sr) = 0 then  repeat     MeusJpegs.Add(Folder + sr.Name)  until FindNext(sr) <> 0;  FindClose(sr);  randomize;  result:=MeusJpegs.Strings[random((MeusJpegs.Count)-1)];  MeusJpegs.Free;end;[/quote:684207c7e4][quote:684207c7e4]procedure TForm1.FormCreate(Sender: TObject);varArquivo:String;beginArquivo:=RetornarCaminhoValido(�C:CaminhoValido�,�*.Jpg�);image1.Picture.LoadFromFile(Arquivo);end;[/quote:684207c7e4]P:S  :arrow: Deixe seu Image1;Picture no Projeto sem nada carregadoP:s  :arrow: Deixe a propreidade Stretch do Image1 em TrueBoa sorte...

Vandeir · Answer

Amigo Marcos Salles, funcionou perfeitamente, ficou muito bom mesmo. Agora eu queria tirar s� mais uma d�vida com vc. Ser� que no c�digo onde informamos o caminho que est� a pasta com as imagens teria como pedir pra ele pegar o caminho num arquivo ini, porque da� se eu colocar o sistema em rede posso colocar apenas uma pasta de imagens no servidor e informar o caminho no arquivo ini.

Grato,

Vandeir

Marco Salles · Answer

[quote:9dd4c63461] Ser� que no c�digo onde informamos o caminho que est� a pasta com as imagens teria como pedir pra ele pegar o caminho num arquivo ini, [/quote:9dd4c63461]Acredito que fica ate mais f�cil... Mais tarde vou ver se post algoBoa sorte...

Marco Salles · Answer

Fiz o seguinteTenho o Arquivo Ini co a sec��o inicializada em :[quote:2dffd758b0][b:2dffd758b0][Caminho][/b:2dffd758b0]0=C:TurmaDelphiCadastroFotosInverno2006HPIM0275.JPG1=C:TurmaDelphiCadastroFotosInverno2006HPIM0276.JPG2=C:TurmaDelphiCadastroFotosInverno2006HPIM0277.JPG3=C:TurmaDelphiCadastroFotosInverno2006HPIM0278.JPG4=C:TurmaDelphiCadastroFotosInverno2006HPIM0279.JPG5=C:TurmaDelphiCadastroFotosInverno2006HPIM0280.JPG6=C:TurmaDelphiCadastroFotosInverno2006HPIM0281.JPG7=C:TurmaDelphiCadastroFotosInverno2006HPIM0282.JPG[/quote:2dffd758b0]Agora para ler eu fa�o assim:[quote:2dffd758b0]varcaminho:String;Config:TIniFile;beginConfig:=TIniFile.Create(�endere�oDo Arquivo Ini/NomeArquivo.Ini�);caminho:=��;randomize;while caminho = �� dobegin//Restri��oi:=random(6); //[b:2dffd758b0]tenho que a priori saber a Quantidade de Imagens[/b:2dffd758b0]caminho:=Config.ReadString(�caminho�,inttostr(i),��);end;config.Free;Image1.Picture.LoadFromFile(caminho);end;[/quote:2dffd758b0]Com eu disse , parece ser mais tranquilo:[b:2dffd758b0]P:S Eu n�o tive tempo de procurar , mais deve existir algo que retorne a quantidade de elementos de Uma sec��o... Uma esp�cie de Count[/b:2dffd758b0]De Posse disso podemos tirar a [b:2dffd758b0]restri��o[/b:2dffd758b0]...

Vandeir · Answer

Arquivo:=RetornarCaminhoValido(�C:CaminhoValido�,�*.Jpg�);image1.Picture.LoadFromFile(Arquivo);Ent�o Marco das duas formas funcionou muito bem, por�m no primeiro exemplo pra colocar em rede deve se colocar uma pasta imagem em cada esta��o. A segunda pode se colocar apenas uma pasta no servidor, mas fica muito d�ficil pq o usu�rio t�m que configurar manualmente o arquivo ini com o caminho de cada imagem.Vou continuar tentando  e pesquisando para ver se consigo acha alguma coisa que possa me ajudar a fazer com que eu informe no arquivo ini somento o caminho (�C:CaminhoValido�,�*.Jpg�), da� o sistema le esse caminho no arquivo e possa carregar as imagens a partir dele.Mas os dois exemplos ficaram muito bom e funcionaram 100�. Grato pela ajuda.Vandeir...

F�rum Colocar imagem *.jpeg no fundo do formul�rio principal #338648