32 lines
657 B
ObjectPascal
32 lines
657 B
ObjectPascal
unit uGUIRegister;
|
|
|
|
interface
|
|
|
|
procedure Register;
|
|
|
|
implementation
|
|
|
|
uses
|
|
Windows, DesignIntf, DesignEditors,
|
|
uCustomEditor, uCustomView;
|
|
|
|
procedure Register;
|
|
var
|
|
delphivclide: THandle;
|
|
TFrameModule: TCustomModuleClass;
|
|
begin
|
|
// Registrar la vista
|
|
delphivclide := GetModuleHandle('delphivclide100.bpl');
|
|
if delphivclide <> 0 then
|
|
begin
|
|
TFrameModule := GetProcAddress(delphivclide, '@Vclformcontainer@TFrameModule@');
|
|
if Assigned(TFrameModule) then
|
|
RegisterCustomModule(TCustomView, TFrameModule);
|
|
end;
|
|
|
|
// Registrar el editor
|
|
RegisterCustomModule(TCustomEditor, TCustomModule);
|
|
end;
|
|
|
|
end.
|