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:

Zitat von devidespe (Beitrag 1275901)

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:

Zitat von mkinzler (Beitrag 1275927)

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:

Zitat von devidespe (Beitrag 1275933)

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

Delphi-Quellcode:

FormDatenVergleichVar := TFormDatenVergleich.Create(Application);

geändert nach

Delphi-Quellcode:

FormDatenVergleichVar := TFormDatenVergleich.Create(Self);

Macht sowas von keinen Unterschied. :)

2. Änderung: Die Zeile

Delphi-Quellcode:

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

[himitsu]

PopupParent = die Form, über welche diejenige Form immer drüber liegt.
PopupMode gehört auch noch dazu.

Vorallem bei Programmen mit mehreren Fenstern, welche nicht ShowModal sind ganz praktisch, um zu verhindern, daß Fenster hinter anderen verschwinden. (ohne explizite Angabe benutzt Delphi standardmäßig die MainForm)

[kretabiker]

@himitsu: Danke für die Erläuterung

[DevidEspenschied]

Hallo zusammen,

danke für eure Hinweise. Das mit dem PopupParent habe ich nachvollziehen können, ich hatte es bisher verwendet, damit Fenster nicht hintereinander verschwinden, und ich immer ein modales Fenster habe. Das funzt aber im Zusammenhang mit AdvStringGrid nicht.

Da ich auf den GlassFrame nicht verzichten kann/möchte, habe ich vorerst das PopupParent weggelassen, der TMS Support weiß bescheid und besitzt eine nachvollziehbare Applikation. Ich nehme an, hier wird in Kürze ein Fix erscheinen.

Der problematische Zusammenhang mit GlassFrame ist auch deswegen nachvollziehbar, weil es mit PopupParent unter Windows XP funktioniert, da hier der GlassFrame standardseitig deaktiviert ist.

[himitsu]

Was kommt denn hier raus?

Delphi-Quellcode:

var
  LogForms: string;
procedure AddFormLog(S: string);
  begin
    LogForms := LogForms + S + ':' + sLineBreak;
    if Assigned(Screen.ActiveCustomForm) then
      with Screen.ActiveCustomForm do
        LogForms := LogForms + 'Active = ' + ClassName + '.' + Name + ' > ' + BoolToStr(Visible, True) + sLineBreak
    else
      LogForms := LogForms + 'Active = nil' + sLineBreak;
    for i := 0 to Screen.CustomFormCount - 1 do
      with Screen.CustomForms[i] do
        LogForms := LogForms + ClassName + '.' + Name + ' > ' + BoolToStr(Visible, True) + sLineBreak;
  end;
begin
  LogForms := 'Drücke Strg+C zum Kopieren' + sLineBreak + sLineBreak;
  AddFormLog('BeforeCreate');
  FormDatenVergleich.FormDatenVergleichVar := FormDatenVergleich.TFormDatenVergleich.Create(Application);
  try
    AddFormLog('PopupParent');
    FormDatenVergleich.FormDatenVergleichVar.PopupParent := Self;
    AddFormLog('BeforeShow');
    FormDatenVergleich.FormDatenVergleichVar.ShowModal;
  finally
    AddFormLog('AfterShow');
    FormDatenVergleich.FormDatenVergleichVar.Free;
    AddFormLog('AfterFree');
  end;
  //Application.ProcessMessages;
  //AddFormLog('AfterMessages');
  ShowMessage(LogForms);
end;

[DevidEspenschied]

Das hier:

Delphi-Quellcode:

[Window Title]
Project4

[Content]
BeforeCreate:
Active = TForm2.Form2_1 > True
TForm2.Form2_1 > True
TForm1.Form1 > True
TForm2.Form2 > False
TForm3.Form3 > False
TNoActiveForm. > False
TTrackerForm. > False
PopupParent:
Active = TForm2.Form2_1 > True
TForm2.Form2_1 > True
TForm1.Form1 > True
TForm2.Form2 > False
TForm3.Form3 > False
TNoActiveForm. > False
TTrackerForm. > False
TFormDatenVergleich.FormDatenVergleich > False
TNoActiveForm. > False
BeforeShow:
Active = TForm2.Form2_1 > True
TForm2.Form2_1 > True
TForm1.Form1 > True
TForm2.Form2 > False
TForm3.Form3 > False
TNoActiveForm. > False
TTrackerForm. > False
TFormDatenVergleich.FormDatenVergleich > False
TNoActiveForm. > False
AfterShow:
Active = TForm2.Form2_1 > True
TForm2.Form2_1 > True
TFormDatenVergleich.FormDatenVergleich > False
TForm1.Form1 > True
TForm2.Form2 > False
TForm3.Form3 > False
TNoActiveForm. > False
TTrackerForm. > False
TNoActiveForm. > False
AfterFree:
Active = TForm2.Form2_1 > True
TForm2.Form2_1 > True
TForm1.Form1 > True
TForm2.Form2 > False
TForm3.Form3 > False
TNoActiveForm. > False
TTrackerForm. > False