Which version of Delphi? The methods have changed in recent years In
D2006/D2007.
You can have any properties display on any form, however it is a tad
tricky - we have quite a few of these.
Prob all you need to use is RegisterCustomModule( TMyCustomForm,
TCustomModule);
I found the examples up on the net somewhere.
This is the old method - which works to an extent.
procedure Register;
begin
RegisterCustomModule(TGUIScreenForm, TCustomModule);
RegisterLibraryExpert(TGUIScreenFormExpert.Create); //Optional,
depends on how you want to create the forms, etc.
end;
The newer method - a lot more complex.
TFormWizard = class( TNotifierObject, IOTAWizard,
IOTARepositoryWizard, IOTAProjectWizard)
// IOTAWizard
function GetIDString: String;
function GetName: String;
function GetState: TWizardState;
procedure Execute; virtual;
// IOTARepositoryWizard
function GetAuthor: String;
function GetComment: String;
function GetPage: String;
function GetGlyph: Cardinal;
end;
procedure TFormWizard.Execute;
begin
(BorlandIDEServices as
IOTAModuleServices).CreateModule(TFormCreator.Create);
end;
procedure Register;
begin
RegisterCustomModule( TMyForm, TCustomModule);
// Register our Wizard to add the new Form to the Object Repository
RegisterPackageWizard( TFormWizard.Create );
end;
Myles.
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
On Behalf Of Robert martin
Sent: Thursday, 17 May 2007 02:40
To: NZ Borland Developers Group - Delphi List
Subject: [DUG] Arrgh Form Hell
Hi All
I am taking a beating with form inheritance !
I have two master template forms T1 and T2
T2 inherits from T1
All forms in the app inherit from either T1 or T2.
I wanted to add a property to T1. However this never showed in the
object inspector. After reading I discovered I needed to add a T0 which
only defined properties and have T1 inherit from it. T0 needed to be
registed in a package.
This worked in the T1 now shows the property as do all forms that
inherit from it, apart from T2 !!!! Does anyone have any suggestions?
--
Rob Martin
Software Engineer
phone +64 03 377 0495
fax +64 03 377 0496
web www.chreos.com
Wild Software Ltd
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: [email protected]
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [EMAIL PROTECTED] with Subject:
unsubscribe
Attention:
This communication is confidential and may be legally privileged. If you are
not the intended recipient, please do not use, disclose, copy or distribute it,
other than to return it to us with your confirmation that it has been deleted
from your system.
_______________________________________________
NZ Borland Developers Group - Delphi mailing list
Post: [email protected]
Admin: http://delphi.org.nz/mailman/listinfo/delphi
Unsubscribe: send an email to [EMAIL PROTECTED] with Subject: unsubscribe
