Delphi - TTable komponens eseményeinek a kibővítése

forráskód letöltése
Egy TTable komponens számtalan eseménnyel rendelkezik, de nem biztos, hogy ezek között megtaláljuk azokat is, melyre éppen szükségünk lenne.

A mellékelt példában készítünk egy olyan komponenst, mely a TTable-ből származik és ezt kiegészítjük további eseményekkel. A mellékelt példaprogram megnyitása előtt az ExtTable.pas-ban lévő komponenst telepítenie kell a Delphi alá.

A tábla új eseményei az alábbiak lesznek:
  • BeforeFirst - esemény keletkezik, mielőtt a TTable a First utasítást kapná
  • AfterFirst - esemény keletkezik, miután a TTable a First utasítást kapta
  • BeforeLast - esemény keletkezik, mielőtt a TTable a Last utasítást kapná
  • AfterLast - esemény keletkezik, miután a TTable a Last utasítást kapta
  • BeforeAddRecord - rekord hozzáadása előtt
  • AfterAddRecord - rekord hozzáadása után
  • BeforeSetToRecord - rekord változás előtt
  • AfterSetToRecord - rekord változás után
  • BeforeGotoBookmark - könyvjelzőre való ugrás előtt
  • AfterGotoBookmark - könyvjelzőre való ugrás után

Az események generálásához azokat a metódusokat használjuk fel, melyek a TTable protected részében deklaráltak. Ezek a metódusok a fenti események bekövetkeztekor kerülnek meghívásra, így felülírásukkal jól felhasználhatók az események jelzésére.