Result := (ShowModal = mrOk)
Blz galera?
Estou com um problema que esta me tirando o sono, utilizo a mesma função no delphi 7 e funciona corretamente, quando tento utilizar no delphi 10.2 apresenta o seguinte erro: "Access violation at address", debugando o programa percebi que o erro acontece exatamente nesse linha: "Result := (ShowModal = mrOk) "
Alguém sabe me dizer como resolver esse erro por favor?
class function TfrmGrupoCad.ExibeGrupoCad(var AGrupo: TGrupoCad): boolean;
begin
with Self.Create (nil) do
begin
Result := (ShowModal = mrOk) ;
if Result then copyDataToRecord(AGrupo);
Free ;
end ;
end;
Estou com um problema que esta me tirando o sono, utilizo a mesma função no delphi 7 e funciona corretamente, quando tento utilizar no delphi 10.2 apresenta o seguinte erro: "Access violation at address", debugando o programa percebi que o erro acontece exatamente nesse linha: "Result := (ShowModal = mrOk) "
Alguém sabe me dizer como resolver esse erro por favor?
class function TfrmGrupoCad.ExibeGrupoCad(var AGrupo: TGrupoCad): boolean;
begin
with Self.Create (nil) do
begin
Result := (ShowModal = mrOk) ;
if Result then copyDataToRecord(AGrupo);
Free ;
end ;
end;
Silvio Morelo
Curtidas 0
Melhor post
Fernando Duwe
21/03/2018
Amigo, troque:
with Self.Create (nil) do
Pelo nome da classe, Ex:
with TFormGrupoCad.Create (nil) do
with Self.Create (nil) do
Pelo nome da classe, Ex:
with TFormGrupoCad.Create (nil) do
GOSTEI 1
Mais Respostas
Silvio Morelo
21/03/2018
BLZ Duwe
Continua dando o mesmo erro e sempre na mesma linha:
Result := (ShowModal = mrOk)
Continua dando o mesmo erro e sempre na mesma linha:
Result := (ShowModal = mrOk)
GOSTEI 0
Fernando Duwe
21/03/2018
Morelo, criei um formulário de testes, aqui para verificar e tinha funcionado dessa forma. Talvez seja interessante debuggar o seu evento FormShow, no formulário criado. Se não estourar lá o problema, pode até ser mesmo um erro na configuração do formulário. Como está a propriedade FormStyle?
GOSTEI 0
Silvio Morelo
21/03/2018
A propriedade FormStyle está com: fsNormal
GOSTEI 0