Criar form tempo de execução e uma imagem sendo carregada
Estou tentando criar um form em tempo de execução e dentro do mesmo terá uma imagem que será carregado um bmp ou jpg.
Eu até consegui fazer mas nao carrega a imagem.
Teria como vocês me darem uma forcinha????
Eu até consegui fazer mas nao carrega a imagem.
Teria como vocês me darem uma forcinha????
Levisants
Curtidas 0
Respostas
Gandalf.nho
08/04/2005
TImage.Picture.LoadFromFile(nome_arquivo).
GOSTEI 0
Edilcimar
08/04/2005
Image1.Picture.Graphic.LoadFromFile(´minhaimagem.BMP´);
GOSTEI 0
Levisants
08/04/2005
Eu já tinha tentando usar assim
Mas não funciona.
Não tem que criar alguma coisa nesse form
Estou usando assim o codigo
Form := TForm.Create(self)
with Form do begin
Imagem := TImage.Create(Form)
Imagem.Picture.LoadFromFile(´caminho da imagem´);
end;
E mesmo assim não vai.
Mas não funciona.
Não tem que criar alguma coisa nesse form
Estou usando assim o codigo
Form := TForm.Create(self)
with Form do begin
Imagem := TImage.Create(Form)
Imagem.Picture.LoadFromFile(´caminho da imagem´);
end;
E mesmo assim não vai.
GOSTEI 0
Edilcimar
08/04/2005
eu tenho um timagem e a imagem é bmp, não se esqueça do graphic
GOSTEI 0
Gandalf.nho
08/04/2005
Não esqueça que se a imagem for JPEG, você tem declarar a unit JPEG na cláusula USES
GOSTEI 0
Levisants
08/04/2005
O já fiz tudo isso e nada
O problema é que a imagem não carrega
Esse é o codigo
var
fVisualizaImagem: TForm;
fImagemZoom : TImage;
begin
fVisualizaImagem := TForm.Create(Self);
with fVisualizaImagem do begin
Position := poScreenCenter;
BorderStyle := bsSizeToolWin;
BorderIcons := [biSystemMenu];
Color := clWhite;
Width := 300;
Height := 300;
Caption := ´Imagem: ´ + lbl_edtNomeProduto.Text;
fImagemZoom := TImage.Create(fVisualizaImagem);
with fImagemZoom do begin
Align := alClient;
AutoSize := False;
Center := True;
Picture.LoadFromFile(´C:\Documents and Settings\leandro\Meus documentos\Minhas imagens\imagem1.bmp´);
Stretch := False;
end;
ShowModal;
end;
O form é criado na hora que é clicado no botão
O problema é que a imagem não carrega
Esse é o codigo
var
fVisualizaImagem: TForm;
fImagemZoom : TImage;
begin
fVisualizaImagem := TForm.Create(Self);
with fVisualizaImagem do begin
Position := poScreenCenter;
BorderStyle := bsSizeToolWin;
BorderIcons := [biSystemMenu];
Color := clWhite;
Width := 300;
Height := 300;
Caption := ´Imagem: ´ + lbl_edtNomeProduto.Text;
fImagemZoom := TImage.Create(fVisualizaImagem);
with fImagemZoom do begin
Align := alClient;
AutoSize := False;
Center := True;
Picture.LoadFromFile(´C:\Documents and Settings\leandro\Meus documentos\Minhas imagens\imagem1.bmp´);
Stretch := False;
end;
ShowModal;
end;
O form é criado na hora que é clicado no botão
GOSTEI 0
Levisants
08/04/2005
Galera conseguir fazer faltva somente a propriedade Parent que determina onde será criado o objeto
fVisualizaImagem := TForm.Create(Self);
with fVisualizaImagem do begin
Position := poScreenCenter;
BorderStyle := bsSizeToolWin;
BorderIcons := [biSystemMenu];
Color := clWhite;
Width := 300;
Height := 300;
Caption := ´Imagem: ´ + lbl_edtNomeProduto.Text;
fImagemZoom := TImage.Create(fVisualizaImagem);
with fImagemZoom do begin
[b:7263200503]Parent[/b:7263200503] := fVisualizaImagem;
Align := alClient;
AutoSize := False;
Center := True;
Picture.LoadFromFile(´C:\Documents and Settings\leandro\Meus documentos\Minhas imagens\imagem1.bmp´);
Stretch := False;
end;
ShowModal;
end;
fVisualizaImagem := TForm.Create(Self);
with fVisualizaImagem do begin
Position := poScreenCenter;
BorderStyle := bsSizeToolWin;
BorderIcons := [biSystemMenu];
Color := clWhite;
Width := 300;
Height := 300;
Caption := ´Imagem: ´ + lbl_edtNomeProduto.Text;
fImagemZoom := TImage.Create(fVisualizaImagem);
with fImagemZoom do begin
[b:7263200503]Parent[/b:7263200503] := fVisualizaImagem;
Align := alClient;
AutoSize := False;
Center := True;
Picture.LoadFromFile(´C:\Documents and Settings\leandro\Meus documentos\Minhas imagens\imagem1.bmp´);
Stretch := False;
end;
ShowModal;
end;
GOSTEI 0