[DUG] descending from TWebModule

[Phil Middlemiss]

Thanks David, I'll give that a go tonight (more home-work stuff; after 
"Lost" has finished of course!)

Cheers,
Phil.

David Brennan wrote:

>Phil,
>
>It's frustrating isn't it. Took me quite a while to work out how to set
>things up.
>
>The following code is taken from our registration procedure and demonstrates
>how to install designers for your own VCL level DataModules, Forms and
>Frames. I have hacked it to remove other unrelated code so it might not
>compile but it should give you the idea.
>
>David.
>
>unit DbbRegDesigners;
>
>interface
>
>uses
>	Classes, DsgnIntf,
>  DmDesigner, // Contains TDataModuleDesignerCustomModule
>  WctlForm; // Contains TWinControlCustomModule
>  
>  procedure Register;
>
>implementation
>
>type
>  TDbbFormCustomModule = class(TCustomModule)
>  end;
>
>  TDbbFrameCustomModule = class(TWinControlCustomModule)
>  public
>    class function Nestable: Boolean; override;
>  end;
>
>{ TDbbWinControlCustomModule }
>
>class function TDbbFrameCustomModule.Nestable: Boolean;
>begin
>  // Necessary for TDbbFrame descendents to appear in the create Frame
>  // list.
>  Result := True;
>end;
>
>procedure Register;
>begin
>  RegisterNoIcon([TDbbDataModule]);
>  RegisterCustomModule(TDbbDataModule, TDataModuleDesignerCustomModule);
>  RegisterNoIcon([TDbbForm]);
>  RegisterCustomModule(TDbbForm, TDbbFormCustomModule);
>
>  // Note: DON'T call RegisterNoIcon for TDbbFrame. This will disable copy
>and
>  // paste of TDbbFrame descendents and make it impossible to place a new
>  // TDbbFrame descendent on a form.
>  RegisterCustomModule(TDbbFrame, TDbbFrameCustomModule);
>
>end;
>
>end.
>
>-----Original Message-----
>From: delphi-bounces at ns3.123.co.nz [mailto:delphi-bounces at ns3.123.co.nz] On
>Behalf Of Phil Middlemiss
>Sent: Wednesday, 8 June 2005 8:22 a.m.
>To: NZ Borland Developers Group - Delphi List
>Subject: [DUG] descending from TWebModule
>
>I have defined a class that descends from TWebModule and adds a couple 
>of extra methods that we will commonly use. There is no attached dfm 
>with it. When I create a new TWebModule and then change it's definition to:
>
>TBrandNewModule = class(TMyWebModule)
>etc
>
>it compiles fine, but if I close the BrandNewModule unit and reopen it, 
>the IDE thinks that the {$R *.dfm}should be a TForm descendant and not a 
>TWebModule descendant, and therefore anything in the saved dfm unit that 
>doesn't belong on a TForm is lost and the created window is a TForm, not 
>a TWebModule.
>
>Is there some trick here? It doesn't quite seem a job for the 
>repository, and I tried registering the TMyWebModule class aswell 
>without any joy.
>
>Phil.
>_______________________________________________
>Delphi mailing list
>Delphi at ns3.123.co.nz
>http://ns3.123.co.nz/mailman/listinfo/delphi
>
>_______________________________________________
>Delphi mailing list
>Delphi at ns3.123.co.nz
>http://ns3.123.co.nz/mailman/listinfo/delphi
>
>
>
>  
>