Digitar o nome da foto em um edit e abri-la em um TImage
Usei este código, mas ainda não é o que estou procurando. Gostaria de digitar em um edit certo nome de uma foto e ele me mostrasse. Tipo: um formulario de colaboradores que quando eu informar o código do mesmo ele me mostre a sua foto. O exemplo abaixo mostra somente a foto especifica.
procedure TFormTeste.edCaminhoFotoKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var caminhoFotoPadrao:string;
begin
//configurando minha foto padrão
caminhoFotoPadrao := ´C:\lazer1.jpg´;
//verificando se o caminho digitado corresponde ao de um arquivo
if FileExists(edCaminhoFoto.Text) then
imgFoto.Picture.LoadFromFile(edCaminhoFoto.Text) //carrega a foto
else
imgFoto.Picture.LoadFromFile(CaminhoFotoPadrao) //mantém padrão
end;
:lol: :oops:
procedure TFormTeste.edCaminhoFotoKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
var caminhoFotoPadrao:string;
begin
//configurando minha foto padrão
caminhoFotoPadrao := ´C:\lazer1.jpg´;
//verificando se o caminho digitado corresponde ao de um arquivo
if FileExists(edCaminhoFoto.Text) then
imgFoto.Picture.LoadFromFile(edCaminhoFoto.Text) //carrega a foto
else
imgFoto.Picture.LoadFromFile(CaminhoFotoPadrao) //mantém padrão
end;
:lol: :oops:
Elinton
Curtidas 0
Respostas
Dataclass
30/06/2004
Elinton,
não entendi oque você quer.Tenta explicar melhor porque está bem confuso,tenta adaptar o código que te enviei na outra mensagem e de preferência posta as tuas novas mensagens lá na outra mesmo assim não ficamos com tópicos repetidos,ok?
Abraço,
Hugo
não entendi oque você quer.Tenta explicar melhor porque está bem confuso,tenta adaptar o código que te enviei na outra mensagem e de preferência posta as tuas novas mensagens lá na outra mesmo assim não ficamos com tópicos repetidos,ok?
Abraço,
Hugo
GOSTEI 0