access violation at address 00000000. Read of address 000000
O CODIGO É ESTE:
if OpenPictureImagem.Execute then
begin
EdImagem.Text := OpenPictureImagem.FileName;
EdImagemExit(Self);
end;
EdAjustada.SetFocus;
QDO CLICO NO BOTÃO ABRIR DO OPEN DÁ O ERRO...
O QUE PODERIA SER? :?:
if OpenPictureImagem.Execute then
begin
EdImagem.Text := OpenPictureImagem.FileName;
EdImagemExit(Self);
end;
EdAjustada.SetFocus;
QDO CLICO NO BOTÃO ABRIR DO OPEN DÁ O ERRO...
O QUE PODERIA SER? :?:
Miltonfranca
Curtidas 0
Respostas
Rodrigo_koga
06/08/2008
Voce criou todos os componentes?
Esse erro eh devido a algum componente foi tentando acessar mas que não existe.
Esse erro eh devido a algum componente foi tentando acessar mas que não existe.
GOSTEI 0
Wdrocha
06/08/2008
Vc tah usando Skin??
GOSTEI 0
Miltonfranca
06/08/2008
sim estou usando skin
GOSTEI 0
Wdrocha
06/08/2008
já tive seu problema.....
Se vc tem a lincensa do Skin baixe atualização pra ele, pq esse tem um bug no xp...se vc usar no Vista, não ocorrerá este problema...
o q eu faço é desabilitar o skin qdo abro o opendialog e logo após habilito de novo...
Faça o seguinte...
Procedure TFrmTeste.BtAbrirClick(Sender: TObject);
Var Arquivo : TStringList;
S : String;
Begin
S := SkinData1.SkinFile;
SkinData1.SkinFile := ´´;
SkinData1.SkinStore := ´´;
SkinData1.Active := False;
If (OpenDlgArquivoTexto.Execute) And (OpenDlgArquivoTexto.FileName <> ´´) Then
Begin
///Seu código
End;
SkinData1.SkinFile := s;
SkinData1.SkinStore := SkinData1.SkinFile;
SkinData1.Active := True;//habilia o skin novamente.
End;
é a única solução q conheço...
qualquer coisa posta aew...
Se vc tem a lincensa do Skin baixe atualização pra ele, pq esse tem um bug no xp...se vc usar no Vista, não ocorrerá este problema...
o q eu faço é desabilitar o skin qdo abro o opendialog e logo após habilito de novo...
Faça o seguinte...
Procedure TFrmTeste.BtAbrirClick(Sender: TObject);
Var Arquivo : TStringList;
S : String;
Begin
S := SkinData1.SkinFile;
SkinData1.SkinFile := ´´;
SkinData1.SkinStore := ´´;
SkinData1.Active := False;
If (OpenDlgArquivoTexto.Execute) And (OpenDlgArquivoTexto.FileName <> ´´) Then
Begin
///Seu código
End;
SkinData1.SkinFile := s;
SkinData1.SkinStore := SkinData1.SkinFile;
SkinData1.Active := True;//habilia o skin novamente.
End;
é a única solução q conheço...
qualquer coisa posta aew...
GOSTEI 0
Wdrocha
06/08/2008
Corrigindo...
Eu me confundi....
Eu testei no vista de deu certo....qdo testei na máquina do meu colega aq do trabalho q é Xp...não funcionou corretamente...
eu tentei mais e...Ficou assim..
FrmTeste.SkinData1.SkinFile:= ´´;
FrmTeste.SkinData1.Active := TRUE;
If (OpenDlgArquivoTexto.Execute) And (OpenDlgArquivoTexto.FileName <> ´´) Then
Begin
///Seu código
End;
FrmTeste.SKINDATA1.SkinFile:=FrmTeste.SkinData1.SkinStore;
FrmTeste.SkinData1.Active := TRUE;
Desculpas...
espero ter ajudado...
Flw
Eu me confundi....
Eu testei no vista de deu certo....qdo testei na máquina do meu colega aq do trabalho q é Xp...não funcionou corretamente...
eu tentei mais e...Ficou assim..
FrmTeste.SkinData1.SkinFile:= ´´;
FrmTeste.SkinData1.Active := TRUE;
If (OpenDlgArquivoTexto.Execute) And (OpenDlgArquivoTexto.FileName <> ´´) Then
Begin
///Seu código
End;
FrmTeste.SKINDATA1.SkinFile:=FrmTeste.SkinData1.SkinStore;
FrmTeste.SkinData1.Active := TRUE;
Desculpas...
espero ter ajudado...
Flw
GOSTEI 0
Miltonfranca
06/08/2008
valeu galera resolvel era o skin mesmo!!!!
GOSTEI 0
Helio Nascimento
06/08/2008
Colega. Testei. Desabilitou porém, não consigo habilitá-lo. Após colocá-lo para TRUE. Será que é porque estou usando formulário com herança tipo
inherited?
inherited?
GOSTEI 0
Wdrocha
06/08/2008
Essa dúvida eu não sei responder.....
desculpa....fica aew pros nossos colegas mais experientes..
Tbm quero saber a resposta....
se vc conseguir...posta aew, por favor, pra q eu tbm saiba como resolver....
Vlw
desculpa....fica aew pros nossos colegas mais experientes..
Tbm quero saber a resposta....
se vc conseguir...posta aew, por favor, pra q eu tbm saiba como resolver....
Vlw
GOSTEI 0
Miltonfranca
06/08/2008
ae pessoal, eu tentei todos os skins e existe pelo menos 2 q naum dá erro de estouro de memória... valeu espero ter ajudado
GOSTEI 0