Este erro normalmente da quando vc tenta acessar algo que ainda não foi
criado... como vc adiciona este TImage... coloca um showmessage pára saber onde
esta o erro.. exemplo...
if OpenPictureDialog1.Execute
begin
ShowMessage ( 'Executou o Dialog' );
PictureBrazonry.Picture.LoadFromFile(OpenPictureDialog1.FileName);
ShowMessage ( 'Colocou a Imagem' );
end
Caso execute o Primeiro ShowMessage .. o erro não esta no dialogo... se não o
problema é no TImage... se for no Timage... verifique se ele foi criado e se a
imagem existe....
if PictureBrazonry <> nil then
begin
if FileExists ( Caminho do Arquivo ) then
{ Aki vc coloca a imagem }
else
{ Limpa a Imagem }
end
Wesley
From: Adenes I. Freire Junior
Sent: Friday, October 17, 2008 10:21 AM
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Problema com TImage
Caro amigo estou com o seguinte problema, quando clico no TImage e seleciono
uma imagem aparece a seguinte mensagem:
"Access Violetion at Address 00000000. Read of address 00000000."
No component OpenPictureDialog1 coloquei nas seguintes propriedades:
FileName: C:\SFPAG2009\Brasoes\paraíba.bmp
InitialDir: C:\SFPAG2009\Brasoes
No Evento OnClick do TImage coloquei:
if OpenPictureDialog1.Execute
PictureBrazonry.Picture.LoadFromFile(OpenPictureDialog1.FileName);
Desde já agradeço sua ajuda,
Adenes Junior
[As partes desta mensagem que não continham texto foram removidas]
__________ Information from ESET NOD32 Antivirus, version of virus signature
database 3529 (20081016) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com
[As partes desta mensagem que não continham texto foram removidas]
