Delphi - Komponensek darabszámának korlátozása

forráskód letöltése
Sokszor készülhet olyan komponens, melyből funkciója miatt értelmetlen, vagy akár hibás működéshez vezetne, ha egynél többet használnánk Form-onként.
Hogy miként gátolhatjuk meg a programozót, hogy egynél több komponenst helyezzen a Form-ra, az kiderül a mellékelt cikkből.
A mellékelt példaprogram megnyitása előtt a OneComponent.pas-ban lévő komponenst telepítenie kell a Delphi alá.
A trükk lényege abból áll, hogy amikor először helyezzük a komponenst a Form-ra, akkor egy globális változóba eltároljuk a létrejött példányt.
Második létrehozás esetén ezt ellenőrizve, egy hibaüzenet küldése mellett megszakítjuk a létrehozás folyamatát, így a komponenst nem tudjuk több példányban elhelyezni Form-onként.