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