OnClose , action caFree oder caHide

[akurka]

Hallo,
Von der Form1 werden je nach Stellung eines Drehschalters (OnChange)
proceduren von verschiedene Forms (z.Bsp Form2.man, Form3.Prog usw) )aufgerufen. Alle diese Forms beinhalten ein anderes Image. Das funktioniert soweit problemlos.
Beim Starten des Programms wird standartmässig Form2.Man aufgerufen.
Beim Wechsel des Drehschalters wird dann z.Bsp Form3.Prog aufgerufen.
Da es 16 Stellungen des Drehschalters gibt, sind es auch 16 Formulare
die aktiviert werden können.

Im Form2 habe ich OnClose verwendet mit caFree oder caHide. Die Form2
wird aber nicht gelöscht nach dem Drehschalterwechsel(das Image wurde teilweise entfernt)also die Form2 offenbar nicht freigegeben.

Bei jedem umschalten wird dann eine neue Form aufgerufen.
Gemäss verschiedene Forenbeiträge müsste OnClose funktionieren, es tut aber nicht. Woran liegt es ?

[baumina]

Um Form2 zu schließen, musst du irgendwo Form2.Close aufrufen, dann geht er auch dort in OnClose rein.

[himitsu]

Zitat von baumina:

Um Form2 zu schließen, musst du irgendwo Form2.Close aufrufen, dann geht er auch dort in OnClose rein.

Jupp, er hat auch nicht geschrieben, wie er die Fenster wieder zu macht.
Ein Form.Free ruft kein OnClose/OnCloseQuery auf.

[akurka]

Hallo Neutral General
Ja da hast Du schon recht mit einem Timage, nun ist es so, dass es innerhalb des jeweiligen Frames schon mehrere Bilder gibt.
Es sind nicht Bilder im herkömlichen Sinn sondern Menüs mit Edit, Memos, und grafischen Anzeigen.
Wegen der übersichtlichkeit des Programms will ich die einzelne Drehschalter Stellungen : (sprich Betriebsarten der Steuerung) von ein
andern trennen.
-----------------------

Zitat:

Heute, 15:54 by baumina
[Zitat]
vor 2 Stunden
Um Form2 zu schließen, musst du irgendwo Form2.Close aufrufen, dann geht er auch dort in OnClose rein.

andern trennen.

Ja genau das habe ich gemacht : im Form2 steht :

procedure TForm2.OnClose(Sender: TObject; var Action: TCloseAction);
begin
Action:= caHide;// pribiert habe ich auch mit caFree
end;

Es funktioniert aber nicht, der Formular bleibt Leer auf dem Bildschirm stehen.
Wenn ich der Wahlschalter wieder zurück schalte, lauft der Form2 wieder
weiter, d.h Bild baut sich wieder auf und alle Anzeigen funktionieren.

ich habe es auch im Hauptformular probiert mit dem OnClose, das gab
ein Programmabsturz. Auch wenn es so gegangen wäre, ist dieser Lösung
sehr ungünstig.

[Helmi]

Hallo,

wie wäre es, einfach vor dem Anzeigen (ich vermute mal mit Show) der ausgewählten Form
erst mal alle zu hiden?

also:

Delphi-Quellcode:

Form1.Hide;
Form2.Hide;
...

//und ab hier die Anzeige abhängig der Drehschalterstellung

[hoika]

Hallo,
caHide und caFree haben eigentlich nur in MDI-Anwendungen eine Daseinsberechtigung..


Heiko

[Neutral General]

Falls du die globale Variable "Form2" benutzt, dann kannst du nur froh sein, dass dir das Programm bei caFree nicht um die Ohren fliegt.
Das Beste wäre wenn du alle globalen Form-Variablen bis auf die vom Hauptformular löschst, dann kommst du gar nicht erst in Versuchung.

EDIT: Wenn es ist wie baumina sagt, dann fehlt dir tatsächlich nur ein Close. Aber auch da solltest du (höchstwahrscheinlich) nicht auf die
globalen Formvariablen zugreifen.

Ich bin mir nicht ganz sicher wie deine Situation ist, aber ich würde für deinen 16 Formularen 1 Formular machen mit einem TImage.
Je nach Stellungen des Drehschalters lädst du andere Bilder in das Image dieses Formulars.
Ob du nun beim Schließen des Forms das Formular freigibst (und beim nächsten Anzeigen vorher wieder erstellst) oder es nur unsichtbar machst,
sollte soweit ich das mit diesen Infos beurteilen kann relativ egal sein.

[mm1256]

Zitat von Neutral General:

.... ich würde für deinen 16 Formularen 1 Formular machen mit einem TImage. Je nach Stellungen des Drehschalters lädst du andere Bilder in das Image dieses Formulars.

Und wenn ein Formular mehr als nur ein Image beinhaltet, gibt's ja immer noch die Möglichkeit, Frames zu verwenden

[Blup]

Zitat von akurka:

Hallo,
Von der Form1 werden je nach Stellung eines Drehschalters (OnChange)
proceduren von verschiedene Forms (z.Bsp Form2.man, Form3.Prog usw) )aufgerufen. Alle diese Forms beinhalten ein anderes Image. Das funktioniert soweit problemlos.

Das funktioniert nur deshalb, weil dein Projekt so eingestellt ist, beim Programmstart alle Formulare zu erzeugen und den Variablen Form1 .. FormX zuzuweisen.

Zitat von akurka:

Beim Starten des Programms wird standartmässig Form2.Man aufgerufen.
Beim Wechsel des Drehschalters wird dann z.Bsp Form3.Prog aufgerufen.
Da es 16 Stellungen des Drehschalters gibt, sind es auch 16 Formulare
die aktiviert werden können.

Im Form2 habe ich OnClose verwendet mit caFree oder caHide. Die Form2
wird aber nicht gelöscht nach dem Drehschalterwechsel(das Image wurde teilweise entfernt)also die Form2 offenbar nicht freigegeben.

In dieser Konstellation darfst du die Formulare auch nicht löschen (caHide ist Standardbelegung, caFree unzulässig). Ist das Formular "Form2" freigegeben, würde die Variable "Form2" auf einen ungültigen Speicherbereich verweisen. Der Aufruf von "Form2.man" kann dann schon zum Programmabsturz führen. Da der Speichermanager freigegebene Objekte nicht sofort löscht, fallen solche Fehler oft erst später auf. In diesem Fall scheint Form2 noch teilweise da zu sein, aber das Programm kann jederzeit abstürzen, wenn der Speichermanager diesen Speicher für etwas anderes braucht.

Zitat von akurka:

Bei jedem umschalten wird dann eine neue Form aufgerufen.
Gemäss verschiedene Forenbeiträge müsste OnClose funktionieren, es tut aber nicht. Woran liegt es ?

Formulare werden mit "Show" angezeigt und mit "Hide" ausgeblendet.
Individuelle Initialisation kannst du zum Beispiel im OnShow-Ereignis des jeweiligen Formulars aufrufen.
Beim Schalten deines Drehschalters sollte etwa das ablaufen:

Delphi-Quellcode:

  FAktivesForm.Hide;
  FAktivesForm := GetFormular(Drehschalter.Stellung);
  FAktivesForm.Show;

FAktivesForm ist eine Variable, in der du dir das jeweils aktive Formular merkst.

[Neutral General]

Zitat von Blup:

Da der Speichermanager freigegebene Objekte nicht sofort löscht, fallen solche Fehler oft erst später auf. In diesem Fall scheint Form2 noch teilweise da zu sein, aber das Programm kann jederzeit abstürzen, wenn der Speichermanager diesen Speicher für etwas anderes braucht.

Das stimmt so nicht ganz. Der Speichermanager gibt die Objekte (den Speicher der Objekte) sofort frei. (Es gibt in Delphi keinen Garbage Collector)
Wenn du "Glück" hast und niemand sonst Speicher anfordert und die Speicherseite nicht komplett freigegeben wurde, dann funktioniert das Objekt auch noch.
Da Methoden an die Klasse und nicht an eine Instanz gebunden sind, lassen sie sich grundsätzlich immer aufrufen.
Je nach Zustand des freigegebenen Speichers kann es dann aber innerhalb der Methoden beim Zugriff auf Felder der Instanz zu Zugriffsverletzungen kommen.