Hallo,<p>
ich wollte Ressourcen sparen und habe darum beim TabSheetwechsel folgende Routine eingebaut:<p>
procedure TFormDuebelauswahl.PageControlStammdatenChange(Sen der: TObject);<br>
VAR i: Integer;<br>
begin<br>
FOR i := 0 TO PageControlStammdaten.PageCount-1 DO<br>
IF i <> PageControlStammdaten.ActivePageIndex<br>
THEN TFormDuebelauswahl(PageControlStammdaten.Pages[i]).DestroyHandle;<br>
end; // TFormDuebelauswahl.PageControlStammdatenChange(Sen der: TObject);<p>
Leider kommt seitdem manchmal die Fehlermeldung "Datenmenge weder im Editier noch im Einfügemodus". Auf den Tabsheets sind nämlich unter anderem Datenbankfelder.<p>
Die betreffenden Datenbanken sind in meinem Datenmodul aber ReadOnly, die DBMemos auch.<p>
Hat jemand vielleicht eine Idee, an was das liegen könnte? Auf diese Routine würde ich nur äußerst ungern verzichten, da mein Programm sonst einfach zu viele Systemressourcen benötigt.<p>
Grüße, Mario Noack
ich wollte Ressourcen sparen und habe darum beim TabSheetwechsel folgende Routine eingebaut:<p>
procedure TFormDuebelauswahl.PageControlStammdatenChange(Sen der: TObject);<br>
VAR i: Integer;<br>
begin<br>
FOR i := 0 TO PageControlStammdaten.PageCount-1 DO<br>
IF i <> PageControlStammdaten.ActivePageIndex<br>
THEN TFormDuebelauswahl(PageControlStammdaten.Pages[i]).DestroyHandle;<br>
end; // TFormDuebelauswahl.PageControlStammdatenChange(Sen der: TObject);<p>
Leider kommt seitdem manchmal die Fehlermeldung "Datenmenge weder im Editier noch im Einfügemodus". Auf den Tabsheets sind nämlich unter anderem Datenbankfelder.<p>
Die betreffenden Datenbanken sind in meinem Datenmodul aber ReadOnly, die DBMemos auch.<p>
Hat jemand vielleicht eine Idee, an was das liegen könnte? Auf diese Routine würde ich nur äußerst ungern verzichten, da mein Programm sonst einfach zu viele Systemressourcen benötigt.<p>
Grüße, Mario Noack
Comment