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.