Formular in Grid-Event freigeben, wo dieses Grid drauf ist

[lxo]

Vielleicht so in der Art? Siehe Anhang.

[Getox]

Ich versuche das nochmal anders zu beschreiben.

Wir haben einen Login-Screen. Nach dem Login landet man im Hauptformular. Von dort aus kann man ein Modul (nicht modal) aufrufen.

In diesem Modul ist ein Grid, in dem onKeyDown eine Prüfung auf Lizienznutzungen stattfindet. Wenn festgestellt wird, dass an der Lizenzbelegung von außerhalb manipuliert wurde, soll man zurück in den Login-Screen geworfen werden.

Ich befinde mich also im Key-Down Event des Grids von Modul-Formular. Ganz am Ende des Events schließe dieses Formular. Danach schließe ich im selben Event das Hauptformular, damit man zurück auf die Login-Maske geworfen wird.

Beim Schließen des Hauptformulars wird aber onClose das Modul-Formular mit Freeandnil freigegeben. Das KeyDown-Event des Grids scheint aber iintern noch nachgelagerte Aktionen durchzuführen, die aber fehlschlagen, weil das Fenster und das Grid dann schon nicht mehr existiert.

[lxo]

Zitat von Getox:

Ich versuche das nochmal anders zu beschreiben.

Wir haben einen Login-Screen. Nach dem Login landet man im Hauptformular. Von dort aus kann man ein Modul (nicht modal) aufrufen.

In diesem Modul ist ein Grid, in dem onKeyDown eine Prüfung auf Lizienznutzungen stattfindet. Wenn festgestellt wird, dass an der Lizenzbelegung von außerhalb manipuliert wurde, soll man zurück in den Login-Screen geworfen werden.

Ich befinde mich also im Key-Down Event des Grids von Modul-Formular. Ganz am Ende des Events schließe dieses Formular. Danach schließe ich im selben Event das Hauptformular, damit man zurück auf die Login-Maske geworfen wird.

Beim Schließen des Hauptformulars wird aber onClose das Modul-Formular mit Freeandnil freigegeben. Das KeyDown-Event des Grids scheint aber iintern noch nachgelagerte Aktionen durchzuführen, die aber fehlschlagen, weil das Fenster und das Grid dann schon nicht mehr existiert.

Wenn du im CloseEvent des Formulars das Hauptformular schließt und nicht im Event des Grids sollte es funktionieren. Siehe Beispiel das ich vorhin angehängt habe.
Im KeyDownEvent des Grids könntest du dann ja auch noch einen Merker setzen und anhand dessen dann im CloseEvent des Formulars entscheiden ob das Hauptformular mit geschlossen werden soll oder nicht.

[Uwe Raabe]

Dafür gibt es Release.

Zitat:

Release gibt das Formular erst frei, nachdem die Ausführung der Ereignisbehandlungsroutinen des Formulars und seiner untergeordneten Komponenten beendet ist. Die Methode stellt auch sicher, dass alle Botschaften in der Ereigniswarteschlange des Formulars vor dessen Freigabe bearbeitet werden. Jede Ereignisbehandlungsroutine für das Formular oder für dessen untergeordnete Objekte sollte Release anstelle von Free (Delphi) oder Delete (C++) benutzen. Ansonsten kann ein Speicherzugriffsfehler auftreten.

[KodeZwerg]

Wie wäre es mit einem Handler in der Login-Form, der auf eine Nachricht wartet, wenn sie kommt, prüfen welche Forms offen sind und dichtmachen. Wäre das eine Variante? (das key event sendet dann nachricht anstelle was zu schließen...)

[Getox]

Zitat von Uwe Raabe:

Dafür gibt es Release.

Funktioniert hervorragend. Danke.

[Getox]

Ich wollte noch einmal explizit meinen Respekt für Uwe Raabe ausdrücken. Er weiß scheinbar alles über Delphi und hat immer eine passende, saubere und einfache Lösung parat. Ein Mann von Ehre

[Getox]

Zitat von lxo:

Wenn du im CloseEvent des Formulars das Hauptformular schließt und nicht im Event des Grids sollte es funktionieren. Siehe Beispiel das ich vorhin angehängt habe.
Im KeyDownEvent des Grids könntest du dann ja auch noch einen Merker setzen und anhand dessen dann im CloseEvent des Formulars entscheiden ob das Hauptformular mit geschlossen werden soll oder nicht.

Das hatte nicht funktioniert, weil die onClose-Events beider Forms zwischen dem von mir implementierten keyDown-Event und dem was das Grid danach noch so macht abgefeuert werden. Also auch beides "mitten drin". Trotzdem danke für die Mühe. Ich habe ja inzwischen eine Lösung.

Funfact: Als ich dein Projekt erzeugt und gestartet habe, ist Kaspersky durchgedreht, weil es die Anwendung als Virus erkannt hat o.O Direkt desinfizierung des Systems mit anschließendem Neustart, ohne Alternative. Eine halbe Stunde Später stand unser Admin auf der Matte. Netzwerkstecker gezogen und Komplettscan gemacht. Anschließend noch eine unangenehme Abreibung kassiert

[lxo]

Zitat von Getox:

Funfact: Als ich dein Projekt erzeugt und gestartet habe, ist Kaspersky durchgedreht, weil es die Anwendung als Virus erkannt hat o.O Direkt desinfizierung des Systems mit anschließendem Neustart, ohne Alternative. Eine halbe Stunde Später stand unser Admin auf der Matte. Netzwerkstecker gezogen und Komplettscan gemacht. Anschließend noch eine unangenehme Abreibung kassiert

Ups
War nicht meine Absicht

[KodeZwerg]

Delphi Rio, Kasperky Internet Security 21.3.10.391(b), projekt geladen, kompiliert, ausgeführt, im 2. Form im Grid "Enter" gedrückt, alles funktioniert ohne das sich mein Scanner meldet.
(habs auf Release gestellt...)