[Delphi] ShowModal geeft AccessViolation

[TheLunatic]

Eerst de code :

code:

    try
      i:=StrToInt(EditVoorraad1.Text);
      Table1.InsertRecord([//knip//.Text]);
      FormSelecteerLeveranciers.ShowModal;
    except
      on EDataBaseError do
        MessageDlg('Niet alle velden zijn correct ingevoerd',mtError,[mbOK],0);
      on EConvertError do
        MessageDlg('Niet alle velden zijn correct ingevoerd',mtError,[mbOK],0);
    end;

Op het moment dat FormSelecteerLeveranciers.ShowModal voor het eerst wordt gedaan, gebeurt het ook gewoon, zonder errors. Ik .Close het venster, en de volgende keer dat ik em weer wil .ShowModal-en, krijg ik een EAccessViolation

Het heeft denk ik weinig zin om nog meer code te posten, want die is er eigenlijk ook niet, de rest van het programma houdt zich met andere dingen bezig.

Ik gebruik wel de tables door het hele programma, maar die worden na .Edit overal ge-.Post enzo, en allen staan .Open ...

Wat doe ik fout ??


edit: Lay-out was fucked up

[The_Sentinel]

Heeft FormSelecteerLeveranciers niet een 'Show' function?
dus FormSelecteerLeveranciers.Show; ipv FormSelecteerLeveranciers.ShowModal;

[Verwijderd]

Op donderdag 30 mei 2002 21:23 schreef The_Sentinel het volgende:
Heeft FormSelecteerLeveranciers niet een 'Show' function?
dus FormSelecteerLeveranciers.Show; ipv FormSelecteerLeveranciers.ShowModal;

Dat kan ik me niet voorstellen.

Meestal komen AV's voor als je iets met het object gaat doen als deze nog niet of niet meer aangemaakt is. Weet je zeker dat het form niet ergens een destroy of free krijgt?

Je schrijft immers dat het form eerst wel actief kan worden. Dus dan moet ie wel een keer created zijn.

[Tomatoman]

Het form wordt met Close automatisch vernietigd. Zet in de OnClose event van het form:

Action := caHide;

[Verwijderd]

Op donderdag 30 mei 2002 21:30 schreef tomatoman het volgende:
Het form wordt met Close automatisch vernietigd. Zet in de OnClose event van het form:

Action := caHide;

Of een Form.Hide i.p.v. Form.Close

[TheLunatic]

hee beter! .Show en .Hide samen gebruiken, en nu werkt het! tnx !

[TheLunatic]

En wat nog beter werkt : ShowModal gebruiken, en voor het afsluiten ModalResult veranderen in een not-0-waarde

[whoami]

De beste manier is, imho, om []geen enkel[/b] form (behalve het mainform dan) autocreated te zetten in de Project Options.

Iedere keer dat je een form wilt tonen, dan maak je zelf een instance van die form en toon je ze:

code:

var
  frmMyForm : TForm1;
begin
  frmMyForm := TForm1.Create(Self);
  frmMyForm.ShowModal();
end;

Dit is toch een nettere manier dan de Show/Hide manier. (maar da's mijn mening).

[Guillome]

Op deze manier heb je dat venster dus altijd in je geheugen staan, ook als je `m niet gebruikt.
Ik doe het (om die reden) zo:

code:

With TForm2.Create(nil) do
  Try ShowModal;
  Finally Free;
End;

[whoami]

Op vrijdag 31 mei 2002 09:09 schreef XLerator het volgende:
Op deze manier heb je dat venster dus altijd in je geheugen staan, ook als je `m niet gebruikt.
Ik doe het (om die reden) zo:

code:

With TForm2.Create(nil) do
  Try ShowModal;
  Finally Free;
End;

Welke manier bedoel je? De Show/Hide manier?

Wordt het scherm niet automatisch ge-free-ed als het gesloten wordt?

[Guillome]

Ik bedoel inderdaad de show/hide manier.
Nee dan wordt ie niet gefreed.
Tenzij je in de onClose event de action op caFree zet.
Maar als je `m alleen hide, dan is hij gewoon aanwezig, alleen onzichtbaar.
Als je `m free`d dan issie echt pleite, en moet ie `m opnieuw aanmaken als je de create(nil) aanroept.
En het is praktisch nix langzamer ofzo.

[Coltrui]

Persoonlijk vind ik de oplossing van Whoami de netste en memory-vriendelijkste.
De Show/Hide methode is het eerste wat ze me op 't werk afgeleerd hebben.

[Tomatoman]

Memory-vriendelijk betekent ook laadtijd-onvriendelijk (en omgekeerd). Voor bijvoorbeeld een zelfgemaakt find/replace dialoogvenster die het verstandiger om het form in het geheugen te houden. Datzelfde geldt voor een form waar een ingewikkelde query op staat. Maar dit zijn wel uitzonderingen, over het algemeen ben ik het er mee eens dat je een form het beste kunt laden wanneer je het nodig hebt en daarna gelijk weer vernietigen.

[whoami]

Hou eens een 20-tal forms van uw app in het geheugen en draai daarnaast nog eens enkele andere programma's... Niet echt memory-vriendelijk als je 't mij vraagt.

[Verwijderd]

Dit is naar mijn mening nog netter.
Tenminste zo heb ik het altijd geleerd.

code:

var
  frmMyForm : TForm1;
begin
  try
    frmMyForm := TForm1.Create(Self);
    frmMyForm.ShowModal();
  finally
    frm.Free;
  end;
end;