Einzelnen Beitrag anzeigen

Errraddicator

Registriert seit: 26. Jun 2008
161 Beiträge
 
Delphi 2007 Professional
 
#1

TTabSheet dynamisch erstellt & nun nicht mehr löschbar

  Alt 27. Jun 2008, 10:54
Hiho,

da bin ich schon wieder. *G*

Also jetzt habe ich nach wie vor x Formulare und jedes Formular enthält 1 Thread der Daten liest.
Unter Anderem erstellt dieser Fred auch anhand der Daten x Tabs in diesem Formular.

Das klappt auch wunderbar mit
Delphi-Quellcode:
    // read account list & build a tab for each account
    accList := buildAccountList(qryData, dbConnection);
    for accIndex := 0 to accList.Count - 1 do
    begin
      curAcc := accList[accIndex];

      newSheet := TTabSheet.Create(display.pagAccounts);
      newSheet.PageControl := display.pagAccounts;
      newSheet.Caption := FormatFloat('00000', curAcc.number) + ' ' + curAcc.text;
    end;
Jeder Tab wird mit entsprechendem Titel angezeigt usw.

Wenn ich das Fenster jetzt aber schließen möchte, erhalte ich folgende Meldung:
"Systemfehler! Code 1400: Ungültiges Fensterhandle"

Wenn ich die Tabs nicht erstelle bekomme ich den Fehler nicht mehr, d.h. es MUSS daran liegen.
Allerdings habe ich keine Vorstellung, woran es liegen könnte. *grübel*

Die Tabs werden wie gesagt richtig dargestellt und ich kann in diesen auch navigieren wie ich möchte.
Sobald ich aber ein Free() auf ein x-beliebiges dieser Tabs aufrufen möchte, stürzt er mir ab.

Hat wer ne Idee, woran das liegen könnte?


Bis denne und danke im Voraus

cu Patrick
  Mit Zitat antworten Zitat