zelu
Novato
Registrado: Quinta-Feira, 27 de Abril de 2006
Mensagens: 81
|
 Enviada: Qui Out 09, 2008 9:53 pm Assunto: DICA: Incluindo FOTO no form de pesquisa ou de cadastro |
 |
|
Aqui vai uma dica para incluir uma foto junto com os dados no form de pesquisa.
Antes de executarmos o processo, fique bem claro que, no banco de dados, você ja deva ter
criado na coluna, o campo "foto", imagem, etc...para quendo incluir os DataFields, eles
já virão com as suas determinaçoes (numero, texto, data, picture, etc).
vamos aos passos:
1-coloque um obejto "OpenPictureDialog".
2-Insira um botão e de o nome de Abrir ou procurar.Na propriedade Caption desse botão coloque "Procurar Foto" ou o que você preferir.
3-Preste atenção no nome do objeto OpenPictureDialog. Geralmente chama-se "OpenPictureDialog1"
não precisa alterar o nome desse objeto, só se preferir.
4-na propriedade FileNames do Obejto OpenPictureDialog, coloque o diretório C:\ ou D:\(não sei como
esta seu HD) Minhas Imagens.
5- faça o mesmo com a propriedade InitialDir.
6-Na propriedade Filter, delete todas, menos a .BMP
7- No DataField determinado para a foto, de o nome de FOTO.
8- Na propriedade "Stretch" defina True, para a foto ser reajustada para o tamanho do DataField.
pronto. Agora, de um duplo clique no botão e digite o código abaixo.
procedure TNomedoForm.AbrirClick(Sender: TObject);
begin
if OpenPictureDialog1.Execute then
Foto.Picture.LoadFromFile(OpenPictureDialog1.FileName);
dica: as fotos só serão exibidas no formato .BMP
aperte F9 e faça o teste.
Se você quer se tornar um bom programador em Delphi seja percistente. Não desista no primeiro obstáculo. Pare, respire um pouco,
saia do computador, dê um tempo, faça outra coisa. Depois, com a cabeça fria, volte e tente novamente. Sempre dá certo.
SE A DICA FOI BOA, POSTE A SUA OPINIÃO!!!
Boa Sorte! 
Zelu.
Editado pela última vez por zelu em Seg Nov 17, 2008 8:17 pm, num total de 1 vez |
|
FAQ
Pesquisar
Membros
Grupos
Registrar
Perfil
Entrar e ver Mensagens Particulares
Entrar
