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

[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;