anscheinend gibt es da einen kleinen Bug mit Grids die in den Formularen vorhanden sind.
Es ist nicht möglich mit PgUp bzw PgDown Seitenweise durch ein Grid zu blättern.
Ich habe folgendes Formular entwickelt:
In diesem Grid sind im Moment ca. 600 Datensätze vorhanden.
Wird nun in diesem Fokussierten Grid eine der beiden o.g. Tasten betätigt erscheint dies als Resultat:
So, und nun das wichtigste - die Lösung:
Ursache für diese Verhalten ist in der Procedure TfrmBasis.FormKeyUp zu finden.
Hier wird einfach unter anderem der Keycode VK_NEXT, VK_PRIOR ausgewertet und die Procedure SucheFeldFocus aufgerufen,
die wiederum prüft q_1.State auf dssInsert oder dssEdit.
Da beim Seitenweise scrollen der Status auf dssBrowse steht wird o.g. Fehlermeldung ausgegeben.
Durch Abfragen, welche Komponenten den Fokus besitzt, kann dieser Fehler behoben werden.
Folgende Zeile, die in der Procedure TfrmBasis.FormKeyUp eingebaut wird, behebt das Problem:
Code: Alles auswählen
// Letzter Stand: 26.07.2007 by KDP
// KDP
if tForm(Sender).ActiveControl is TIB_Grid Then exit; // Feature nicht für Grids
PS: Ich wollte mich noch einmal nach dem Quellcode erkundigen. Siehe Mail vom 24.07.2007