Hallo alle,
ich habe ein Problem an dem ich schon den ganzen Tag nicht weiter komme...
und das sich schlecht beschreiben lässt, daher ein größeres Bild anbei...
Ich nutze eine eigene Komponente, die Daten aus einer Datenbank holt und dynamisch abgeleitete Panels erzeugt, die die Records darstellen (links im Bild).
Die Einträge kann man z.B. verschieben und bearbeiten und so mit der
DB arbeiten.
Aktuell werden links z.B. 3 Datensätze angezeigt (mögliche Zählweisen).
Wird die Abfrage aktualisiert und es gibt JETZT NUR NOCH 2 Datensätze, werden die Inhalte der ersten 2 Panels ersetzt und das dritte Panel gelöscht (Panel3.Free).
Hat das freizugebende Panel den Fokus wird der auf einen anderen Eintrag gesetzt und der ungültige Eintrag (das Panel3) gelöscht.
Alles wunderbar...
Hat jedoch ein Panel den Fokus, das Formular wird geschlossen und mit einer anderen Abfrage geöffnet, die weniger Resultate liefert, gibt das die genannte Fehlermeldung.
Diese tritt aber erst auf, nachdem meine Komponenten ihre Arbeit verrichtet haben.
Die "Listenkomponente" zeichnet sich nach dem Öffnen des Formulars und ruft dann automatisch neue Daten ab. Jetzt findet sie z.B. mal keine passenden Datensätze und löscht entsprechend alle enthaltetenen Panels.
das sieht etwas so aus:
Delphi-Quellcode:
I := 0
while not EOF do
begin
if I > Items.Count - 1 then
begin
Item := Panel.Create(Self);
Items.Add(Item);
end
else
Item := Items[I];
ItemBeschriftenUndPositionieren;
Inc(I)
end;
while Items.Count > I do
begin
// GetItem(Items.Count - 1).Visible := False;
Items.Delete(Items.Count - 1);
end;
Die Items durchlaufen auch problemlos ihren destructor.
Erst wenn Windows wieder die Kontrolle übernimmt tritt der Fehler auf.
Und das auch nur, wenn beim letzen Schließen des Fensters ein jetzt gelöschter Eintrag den Fokus hatte (setze ich vorher den Fokus noch z.B. auf das Editfeld gibt es keinen Fehler).
Nach "wegdrücken" der Fehlermeldung geht alles ordentlich weiter.
Lösche ich die Items nicht sondern schalte sie nur unsichtbar, tritt der Fehler nicht auf.
Meine Überlegung:
Windows hat sich irgendwie gemerkt, dass der jeweilige Eintrag den Fokus hatte und will da nochmal etwas zeichnen.
Folgender Versuch bringt mich nicht weiter.
Delphi-Quellcode:
procedure TdcPanel.Paint;
begin
if not HandleAllocated then
Exit;
...
end;
"Application.ProcessMessages;" vor und nach den Löschaktionen bringen auch nichts.
ZuLoeschenderEintrag.Focused liefert nie True, vermutlich, da das Formular in dem Moment noch nicht aktiviert ist.
Die Fehlerbeschreibung --> Element '' <-- gibt keinen Komponentennamen an, vermutlich weil die Komponente bereits aufgelöst wurde.
Ich komme da nicht weiter...
Kann das Problem jemand nachvollziehen?
Danke
Stahli