AdvStringGrid lässt MainForm verschwinden und liefert Fokus nicht ans Programm zurück

[DevidEspenschied]

Hallo,

ich verzweifle hier noch an der AdvStringGrid Komponente von TMS. Ich habe diese auf einem Dialog platziert, und wenn ich den Dialog vom MainForm mit ShowModal aufrufe, passiert etwas merkwürdiges. Das Mainform verschwindet, was seltsam ist, der Dialog lädt und erscheint dann jedoch normal, und nach dem Schließen des Dialogs geht der Fokus nicht wieder zum Mainform zurück. Das Programm hängt für den Anwender und in Delphi kann ich das Programm nur noch abbrechen.

Wenn ich anstatt der AdvStringGrid-Komponente die normale StringGrid-Komponente nehme, funktioniert es fehlerfrei. Ich bin aber auf eine ProgressBar-Funktion der TMS-Komponente angewiesen.

Hat jemand ne Idee, wo ich da am besten weitersuchen kann (außer über den Support von TMS, den ich bereits kontaktiert habe)?

Es kann ja nicht daran liegen, dass ich die AdvStringGrid Komponente in der FormCreate des Dialogs befülle, selbst wenn ich das auskommentiere, tritt es auf. Bin über jeden Hinweis dankbar.

[Lemmy]

Zitat von devidespe:

Hat jemand ne Idee, wo ich da am besten weitersuchen kann (außer über den Support von TMS, den ich bereits kontaktiert habe)?

das hätte ich dir empfohlen, denn die reagieren normalerweise recht schnell auf Anfragen.

[kretabiker]

Das ist ein seltsames Verhalten. Ich nutze das TMS-TAdvStrinGrid in hunderten modaler und nicht-modaler Dialoge, aber das von dir geschilderte Problem ist noch nie aufgetreten.

Mich würde ein wenig Source interessieren, also wie sieht der Aufruf des Dialogs aus der Mainform auf, was geschieht in den Methoden des Dialogs usw. Welche Einstellungen im TAdvStringGrid hast du vorgenommen? Vielleicht läßt sich etwas nachbauen zum Testen.

[DevidEspenschied]

Also erst mal die positive Nachricht, auf einem anderen Entwicklungssystem mit den gleichen Voraussetzungen, allerdings Windows XP anstatt Windows 7, funktioniert es. Vielleicht scheint es wirklich ein komponenteninternes Problem zu sein...

Ich rufe das Formular mit folgenden Routinen modal auf, an sich unterscheidet sich das nicht von meinen anderen Dialogen:

Delphi-Quellcode:

FormDatenVergleich.FormDatenVergleichVar:=FormDatenVergleich.TFormDatenVergleich.Create(Application);
try
  FormDatenVergleich.FormDatenVergleichVar.PopupParent:=Self;
  FormDatenVergleich.FormDatenVergleichVar.ShowModal;
finally
  FormDatenVergleich.FormDatenVergleichVar.Free;
end;

Im Anhang das (stark gekürzte) Beispielformular, das unter Windows 7 zu dem beschriebenem Problem führt. Windows 8.1 werde ich morgen früh testen können.

[himitsu]

Das TMS-Ding hat doch bestimmt auch im Hintergund ein paar "unsichtbare" Fenster? (so wie auch die Grids von DevExpress)

http://www.delphipraxis.net/180093-d...sprobleme.html

[mkinzler]

Werte mal die Rückgabe von ShowModal aus und enferne mal den Exceptionhandler.

[DevidEspenschied]

Zitat von mkinzler:

Werte mal die Rückgabe von ShowModal aus und enferne mal den Exceptionhandler.

Hallo,

okay, ich habe den Exceptionhandler entfernt und neu getestet.

ShowModal liefert 1 zurück, das müsste mrOK sein, genau wie der BitBtn-Schalter eingestellt ist. ModalResult liefert auch eine 1 zurück.

Auch bis zur .Free Methode läuft alles durch, dann geht erstmal nicht mehr viel. Mit dem Debugger laufen die Hintergrundprozesse des Programms (z.B. via Timer weiter), aber der Fokus geht nicht ans Mainform zurück. Und seltsam ist auch, dass das Mainform komplett verschwindet, sobald das Fenster erscheint.

[himitsu]

Zitat von devidespe:

Auch bis zur .Free Methode läuft alles durch, dann geht erstmal nicht mehr viel. Mit dem Debugger laufen die Hintergrundprozesse des Programms (z.B. via Timer weiter), aber der Fokus geht nicht ans Mainform zurück. Und seltsam ist auch, dass das Mainform komplett verschwindet, sobald das Fenster erscheint.

Hat sich jemand mal meinen Link durchgelesen?

Der Code im Delphi, welcher nach dem Schließen eines Fensters den Fokus "zurück" setzt, ist totalter Schrott.
Wenn in Screen.CustomForms als Nächstes ein "unsichtbares" Fenster drin steht, dann wird versucht diesem der Fokus zu geben, was natürlich nicht geht und deswegen auch die ganze Anwendung im Hintergrund landet, da kein eigenes Fenster den Fokus besitzt.

[kretabiker]

Also, ich habe das mal hier nachgebaut, wie du es beschrieben hast - und tatsächlich verschwindet das Hauptformular, sobald man das Fenster aufruft. Ich habe dann zwei Änderungen vorgenommen in der aufrufenden Prozedur:

1. Änderung: Die Zeile
FormDatenVergleichVar := TFormDatenVergleich.Create(Application); geändert nach
FormDatenVergleichVar := TFormDatenVergleich.Create(Self); Macht sowas von keinen Unterschied.

2. Änderung: Die Zeile
FormDatenVergleichVar.PopupParent := Self; auskommentiert. Danach funktioniert der Aufruf und die Rückkehr zum Hauptformular ohne Probleme. Da ich PopupParent bislang nicht verwendet habe: Wofür benötigst du diese explizite Zuordnung bzw. ist sie für dein Programm notwendig?

[kretabiker]

Weiter habe ich nun versucht, das fehlerhafte Verhalten mit einem eigenen Formular mit TMS-Grid drauf zu reproduzieren. In den Grundeinstellungen funktioniert der Aufruf des neuen Formulars auch mit dem expliziten Setzen des Popupparent beim Aufruf. Es knallt aber, wenn im aufgerufenen Formular die Eigenschaft GlassFrame.Enabled := True gesetzt wird. Ohne das Aktivieren dieser Eigenschaften funktioniert auch der Aufruf deines Formulars. Also irgendwas geht da schief im Zusammenspiel GlassFrame-Popupparent-TAdvStringGrid - das ist Sache des TMS-Supports.

Damit haste zwei Workarounds, bis TMS sich geäußert hat: 1. Weglassen des explitiziten Zuordnens von PopupParent, wenn es nicht unbedingt gebraucht wird, oder 2. Glassframe nicht aktivieren