mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-05-09 03:12:42 +02:00
27 lines
358 B
ObjectPascal
27 lines
358 B
ObjectPascal
unit regappforms;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, appform, dbappform;
|
|
|
|
procedure RegisterAppForms;
|
|
|
|
implementation
|
|
|
|
uses custforms;
|
|
|
|
procedure RegisterAppForms;
|
|
|
|
begin
|
|
RegisterCustomForm(TCustomFormDescr.Create(TAppForm));
|
|
RegisterCustomForm(TCustomFormDescr.Create(TDBAppForm));
|
|
end;
|
|
|
|
initialization
|
|
RegisterAppForms;
|
|
end.
|
|
|