/components/customform/demo/regappforms.pp

http://github.com/graemeg/lazarus · Puppet · 26 lines · 16 code · 10 blank · 0 comment · 0 complexity · ba5e7e5bd0417a79a2b6dfd2aa2ef41d MD5 · raw file 

    

  1. unit regappforms;
    2. 

  2. 

  3. {$mode objfpc}{$H+}
    4. 

  4. 

  5. interface
    6. 

  6. 

  7. uses
    8. 

  8.   Classes, SysUtils, appform, dbappform;
    9. 

  9. 

  10. procedure RegisterAppForms;
    11. 

  11. 

  12. implementation
    13. 

  13. 

  14. uses custforms;
    15. 

  15. 

  16. procedure RegisterAppForms;
    17. 

  17. 

  18. begin
    19. 

  19.   RegisterCustomForm(TAppForm,'AppForms');
    20. 

  20.   RegisterCustomForm(TDBAppForm,'AppForms');
    21. 

  21. end;
    22. 

  22. 

  23. initialization
    24. 

  24.   RegisterAppForms;
    25. 

  25. end.
    26.