Hauptform verschwindet nach Aufruf eines anderen Forms

[DonManfred]

Zitat von TurboMagic:

Kannst du bitte mal den Code zeigen, der das Formular erzeugt?
Und evtl. ist im FormCreate oder FormShow oder so Code drin,
der das Owner Form irgendwie versteckt?

Ich würde behaupten wollen, dass da kein Code ist, der das Hauptform versteckt.

Hier der Aufruf (in Mainform):

Code:

procedure Tfrmmain.lblAnzahlReklamationDblClick(Sender: TObject);
var count: integer;
begin
  if not Assigned(frmrekla) then
    Application.CreateForm(Tfrmrekla, frmrekla); // Das ist das problematische Form

  TryStrToInt(lblAnzahlReklamation.Caption,count);
  if count = 0 then begin
    // Neue Reklamation beginnen...
    frmrekla.edit_kvID.Text := Trim(edit_kvid.Text);
    frmrekla.edit_kvposID.Text := Trim(edit_posID.Text);
    frmrekla.Show;
    frmrekla.MarkFirst(Sender);
  end else begin
    // Reklamation aufrufen und Liste anzeigen...
    frmrekla.edit_kvID.Text := Trim(edit_kvid.Text);
    frmrekla.edit_kvposID.Text := Trim(edit_posID.Text);
    frmrekla.Show;
    frmrekla.LadeABs;
    frmrekla.MarkFirst(Sender);
  end;
end;

Formcreate und FormShow

Code:

procedure Tfrmrekla.FormCreate(Sender: TObject);
begin
  label_bestellweg.Caption := '';
end;
procedure Tfrmrekla.FormShow(Sender: TObject);
begin
  //
  combo_lief_lieferant.Text := '';
  chkWarenbezug.Checked := False;
  edit_info.Text := '';
  memo_defekt.Text := '';
  edit_aus_abnr.Text := '';
  edit_aus_posnr.Text := '';
  edit_ab_id.Text := '';
  edit_neulieferungbis.Text := '';
  memo_anrede.Text := '';
  memo_einleitung.Text := '';
  memo_reaktion.Text := '';
  chkkundendienst.Checked := False;
  edit_ab_lieftermin.Text := '';
  edit_vorlage_datum.Text := '';
  edit_vorlage_uhrzeit.Text := '';
  edit_vorlage_betreff.Text := '';
  memo_vorlage.Text := '';
  edit_finanzID.Text := '';
  edit_reklaID.Text := '';
  frmmain.GetLieferanten(combo_lief_lieferant);
  LadeABs;
  qryimgcount.Active := false;
  qryimgcount.SQL.Clear;
  qryimgcount.SQL.Add('SELECT count(img_name) as anzahl_dokumente FROM beka_attachments WHERE img_kvID='+QuotedStr(main.frmmain.edit_kvID.Text)+' ORDER BY img_id DESC;');
  qryimgcount.ExecSQL;
  qryimgcount.Active := true;
  if qryimgcount.RecordCount > 0 then begin
    qryimgcount.First;
    lblAnzahlDokumente.Caption := qryimgcount.FieldByName('anzahl_dokumente').AsString;
  end;
  qryimgcount.Active := false;
end;

Ich möchte hinzufügen, dass die App komplett mit XE3 entwickelt wurde.

Ich habe einen neuen PC bekommen und habe hier XE3 komplett neu installiert mit allen nötigen Komponenten.

Bei den verwendeten TMS Komponenten sowie List&Label habe ich jeweils die aktuellsten Versionen gekauft und diese Installiert.
List&Label war bisher Version 15. Update nun auf Version 25.

Bei TMS hatte ich früher das TMS ComponentPack; das ist zwischenzeitlich durch das TMS VCL UI Pack ersetzt worden. Aktuelle Version vom TMS VCL UI Pack ist installiert.