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

[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

[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