Nach dem Schließen eine Form Procdure einer anderen Form ausführen

[haentschman]

Moin...

Delphi-Quellcode:

procedure TMain.FNeuerArtikeloeffnen;
begin
   TNeuerArtikel.Create(Self);
end;

...das muß schon mal schiefgehen. Hänge mal das komplette (!) Projekt als ZIP hier an. Da können wir besser deine Logik beurteilen und dir helfen.

[himitsu]

Zitat von haentschman:

...das muß schon mal schiefgehen.

Per se ist dieser Co. nicht probleematisch.
Kommt drauf an "wann" FNeuerArtikeloeffnen aufgerufen wird.

TNeuerArtikel hängt an TMain(Self) und wird dieses TMain geschlossen, dann nimmt es dieses TNeuerArtikel mit über den Jordan.

Außerdem hängt die VCL Forms nicht nur als Owner, sondern z.B. auch via implizitem PopupParent an die gerade "aktive" Form und wird jene Form geschlossen, dann nimmt sie ihre Child ebenfalls mit.
> Neue Forms anzeigen "NACHDEM" die Form von eben weg ist und nicht "WÄHREND" sie grade verschwindet.

Delphi-Quellcode:

ActiveForm.Close;  // Die Form, welche grade den Eingabefokus hat
ShowDialog(...);  // oder TXyzForm.Create+Show

So ein Code macht immer viel Spaß, da dieses Close die erste Form nicht sofort schließt, sondern das erst beim nächsten "ProcessMessages" passiert, also nachdem sich die neue Form/Dialog an die ActiveForm gehängt hat.

[haentschman]

Zitat:

Per se ist dieser Co. nicht probleematisch.

...so meinte ich das nicht. Imho fehlen die Grundlagen über Variablen, Instanz, Owner, Parent etc. Das kann man nur am Projekt erklären.

[MCOP2001DE]

Die Variable SpalteNeuerArtikel wird in der Procedure BestellungneuerartikelS1 beschrieben und soll nach dem Schließen der Form NeuerArtikel die 10 Spalten unterscheiden so das die Variablen ID1 - ID10 nur von den Spalten beschrieben werden.
Mit der ID1..10 wird die Artikel_ID aus der Datenbank für jede Spalte zwischen gespeichert.

Das eigentliche Problem scheint die Variabel SpalteNeuerArtikel zusein.
diese wird Hier beschrieben

Delphi-Quellcode:

procedure TBestellung.BestellungneuerartikelS1;
begin
  if eBezeichnung1.Text <> '' then
    begin
      if ID1 = 0 then
        begin
          SpalteNeuerArtikel := 1;
          Main.Artikelbezeichnung := eBezeichnung1.Text;
          Main.Artikelnr := eArtikelnummer1.Text;
          Main.Preis := eEinzelpreis1.Text;
          Main.Lieferant := eLieferant1.Text;
           Main.FNeuerArtikeloeffnen;
         end;

    end;
end;

Der Fehler

Im Projekt VerwaltungV1.exe ist eine Exception der Klasse $C0000005 mit der Meldung 'access violation at 0x007dc39a: read of address 0x000006e4' aufgetreten.

wird in der Procedure BestellungNeuerArtikelLaden ausgelöst.

Delphi-Quellcode:

// nach dem schliessen des Frames NeuerArtikel wird die ID neu ermittel
procedure TBestellung.BestellungNeuerArtikelLaden;
begin
  if SpalteNeuerArtikel = 1 then // Hier wird der Fehler Ausgelöst
    begin
      ID1 := Artikelpruefung(eBezeichnung1.Text,eEinzelPreis1.Text,eArtikelnummer1.Text,eLieferant1.Text);
    end;

end;

[MCOP2001DE]

Hallo himitsu

zu deine Anmerkung

Zitat:

Kommt drauf an "wann" FNeuerArtikeloeffnen aufgerufen wird.

TNeuerArtikel hängt an TMain(Self) und wird dieses TMain geschlossen, dann nimmt es dieses TNeuerArtikel mit über den Jordan.

die Form Main wird nur beim schliessen des gesamten Programms geschlossen die Form ist die MDI Form alle anderen Formen sind MDIChild.

[SneakyBagels]

Es gibt mittlerweile soviel Arbeitsspeicher... wieso gibt man überhaupt noch Forms frei? Ich gehe einfach mal davon aus, dass es sich hierbei um ein Kleinstprojekt handelt wo das eh vollkommen überflüssig ist Forms freizugeben. Ob diese Kleinstanwendung jetzt 2 MB oder 5 MB belegt ist doch egal.

[haentschman]

Hallöle...

Die Preisfrage ist, wo SpalteNeuerArtikel deklariert ist.
...deshalb solltest du das Projekt anhängen. Ansonsten raten wir in 20 Seiten immer noch weiter.

PS:

Zitat:

die Form ist die MDI Form alle anderen Formen sind MDIChild.

Meine Meinung: Wenn des möglich sein sollte, lasse die MDI Fenster weg. MDI ist imho nicht mehr zeitgemäß.

[Aviator]

Zitat von SneakyBagels:

Es gibt mittlerweile soviel Arbeitsspeicher... wieso gibt man überhaupt noch Forms frei? Ich gehe einfach mal davon aus, dass es sich hierbei um ein Kleinstprojekt handelt wo das eh vollkommen überflüssig ist Forms freizugeben. Ob diese Kleinstanwendung jetzt 2 MB oder 5 MB belegt ist doch egal.

Also diese Denkweise finde ich mehr als fragwürdig.

Natürlich gibt man Instanzen (egal welcher Art) immer wieder frei wenn man sie nicht benötigt. Außerdem hat man es sich bei der Freigabe der Form gespart, dass man zuvor geänderte Felder (Edit, ComboBox, ...) wieder auf einen Standardwert zurücksetzen muss, usw.

Also Objekte sollte man immer freigeben.