Index: LuaForm.pas
===================================================================
--- LuaForm.pas (revision 2232)
+++ LuaForm.pas (working copy)
@@ -330,6 +330,17 @@
   end;
 end;

+function customform_TransparentNow(L: Plua_State): integer; cdecl;
+var
+  f: TCustomForm;
+  h: THandle;
+begin
+  f:=luaclass_getClassObject(L);
+  h:=f.Handle;
+  SetWindowLong(h, GWL_EXSTYLE, GetWindowLong(h, GWL_EXSTYLE) or WS_EX_LAYERED);
+  SetLayeredWindowAttributes(h, $FFFFFF, 255, LWA_COLORKEY);
+end;
+
 procedure customform_addMetaData(L: PLua_state; metatable: integer; userdata: integer );
 begin
   customcontrol_addMetaData(L, metatable, userdata);
@@ -349,6 +360,7 @@
   luaclass_addClassFunctionToTable(L, metatable, userdata, 'setBorderStyle', customform_setBorderStyle);
   luaclass_addClassFunctionToTable(L, metatable, userdata, 'printToRasterImage', customform_printToRasterImage);
   luaclass_addClassFunctionToTable(L, metatable, userdata, 'dragNow', customform_dragNow);
+  luaclass_addClassFunctionToTable(L, metatable, userdata, 'TransparentNow', customform_TransparentNow);

   luaclass_addPropertyToTable(L, metatable, userdata, 'OnClose', customform_getOnClose, customform_setOnClose);
   luaclass_addPropertyToTable(L, metatable, userdata, 'Menu', customform_getMenu, customform_setMenu);