
A mellékelt példaprogram megnyitása előtt a ControlShadow.pas-ban lévő komponenst telepítenie kell a Delphi alá. Ehhez válassza a Component - Install Component menüpontot.
A komponenst el kell helyeznünk azon a Form-on, amelyen árnyékhatást szeretnénk létrehozni. Az árnyékok csak futási időben jelennek meg. A megjelenő árnyék színét a ShadowColor property segítségével állíthatjuk be. Az árnyék vastagságát a ShadowWidth értéke határozza meg, képpontokban mérve.
Az árnyékhatás megjelenítését a PaintShadow metódus hajtja végre. Amikor a Form-ot minimalizáljuk, majd maximalizáljuk, akkor az árnyékok, és minden más amit a Form-ra rajzoltunk, eltűnnek. Ha azt akarjuk, hogy az árnyékhatás mindig megmaradjon, akkor a Form OnPaint eseményében hívjuk meg a komponens PaintShadow metódusát. Ilyenkor a metódust semmilyen más helyen nem szükséges meghívnunk.
Ha el akarjuk tüntetni az árnyékokat, akkor azt a ClearShadow metódus segítségével tehetjük meg.
A komponenst a TComponent osztályból származtatjuk.
Az FOwner változóban tároljuk el a hivatkozást arra a Form-ra, amelyen a komponenst elhelyezték. A Form egyes kontroljait a Controls tömbön keresztül érhetjük el. A tömb elemeinek számát a ControlCount értéke adja meg.
for i:=0 to (FOwner as TForm).ControlCount-1 do begin
Control:=(FOwner as TForm).Controls[i];
Az árnyékok törlését a legegyszerűbben úgy hajthatjuk végre, hogy a Form-ot lefestjük a saját színével. Ez a művelet azonban azzal jár, hogy a Label-szerű komponensek is lefestésre kerülnek. A Form-on található egyes komponensek újrarajzolását az adott komponens Refresh metódusának meghívásával kérhetjük.
for i:=0 to (FOwner as TForm).ControlCount-1 do
(FOwner as TForm).Controls[i].Refresh;