Fórum Toda vez que eu abrir um form, aparecer uma imagem no TIMAGE #346768
28/09/2007
0
Como faço para, toda vez que eu for abrir um formulário, uma determinada imagem aparecer em meu form, no componente TIMAGE? Sendo que esta imagem, está na mesma pasta do projeto.
Estou tentando usar este código, mas não a imagem não aparece!
IF (FILEEXISTS(ExtractFilePath(Application.ExeName)+´\LOGO1024.JPG´)) THEN
IMAGE1.PICTURE.LOADFROMFILE(ExtractFilePath(Application.ExeName)+´\LOGO1024.JPG´);
Desde já, agradeço...
obrigado!
Lucas_spohr
Curtir tópico
+ 0Posts
28/09/2007
Mmoreira
Tente trocar este seu codigo:
IF (FILEEXISTS(ExtractFilePath(Application.ExeName)+´\LOGO1024.JPG´)) THEN IMAGE1.PICTURE.LOADFROMFILE(ExtractFilePath(Application.ExeName)+´\LOGO1024.JPG´);
por este
IF (FILEEXISTS(ExtractFilePath(Application.ExeName)+´\LOGO1024.JPG´)) THEN IMAGE1.PICTURE.LOADFROMFILE(ExtractFilePath(Application.ExeName)+´LOGO1024.JPG´);
Acho que vai dar certo!
Gostei + 0
28/09/2007
Mmoreira
IF (FILEEXISTS(ExtractFilePath(Application.ExeName)+´LOGO1024.JPG´)) THEN IMAGE1.PICTURE.LOADFROMFILE(ExtractFilePath(Application.ExeName)+´LOGO1024.JPG´);
Gostei + 0
28/09/2007
Lucas_spohr
Fiz como vc disse, mas não deu certo... Está assim o código, do FormShow do formulário:
procedure TConsultapreco.FormShow(Sender: TObject);
begin
IF PDO.PARAMETROS.ACTIVE=FALSE THEN
PDO.PARAMETROS.OPEN;
ORIGEM:=´T´;
BEGIN
IF (FILEEXISTS(ExtractFilePath(Application.ExeName)+´LOGO1024.JPG´)) THEN
IMAGE1.PICTURE.LOADFROMFILE(ExtractFilePath(Application.ExeName)+´LOGO1024.JPG´);
END;
end;
Obrigado pela atenção!
Gostei + 0
28/09/2007
Mmoreira
tente carregar um arquivo do tipo BMP
Gostei + 0
28/09/2007
Mmoreira
procedure TForm1.FormShow(Sender: TObject);
begin
IF (FILEEXISTS(ExtractFilePath(Application.ExeName)+´LOGO1024.bmp´)) THEN
IMAGE1.PICTURE.LOADFROMFILE(ExtractFilePath(Application.ExeName)+´LOGO1024.bmp´);
end;
Gostei + 0
28/09/2007
Lucas_spohr
qq pode ser????? tah looco!! tão simples, parece! hehe
Mas obrigado!
up...
Gostei + 0
28/09/2007
Mmoreira
Muito loko mesmo mas veja so eu fiz aqui e funciona ... agora so pra tirar uma duvida voce trocou seu JPG por um BMP ou apenas trocou a extencao do arquivo?
De qualquer forma neste link tem um exemplo que fiz aqui e funciona:
http://www.4shared.com/file/25272704/1624cda3/cliub.html?dirPwdVerified=75a104ee
Gostei + 0
29/09/2007
Martins
Realmente do jeito q o [b:46eb8ce8b4]mMOREIRA[/b:46eb8ce8b4] postou deveria funcionar, vou dar uma olhada no Delphi 7 logo mais.
Gostei + 0
29/09/2007
Lucas_spohr
mas foi um erro meu aqui...
o executável verdadeiro, estava na pasta do programa instalado:
c:\pasta\ljljllkj.exe
e o meu projeto estava:
c:\pastanova\
Portanto, TUDO que for do projeto, para ser testado, deve estar na pasta do executável instalado, e não na pasta do projeto, em si...
não sei se fui claro, mas... funcionou! hehe
a gente fica perdido, quando pegamos um projeto pronto, e temos q alterar... ainda mais, se a gente é novato no negócio... hehe
Obrigado!
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)