BorlandTalk.com

Sam · Guest

Hi Everybody,

I need some real help to crack this ActiveX problem I'm facing. Please help
me.

Take a look at the following unit/code:

----------------------------------------------------------------------------
--
unit MyClassU;

interface

uses Classes, Controls, Dialogs;

Type
// Helper class for TMyClass, which acts as argument in TMyClass methods.
THelperClass = class(TPersistent)
private
FField1: Integer;
FField2: string;

public
procedure SomePublicProc;

published
property Prop1: Integer read FField1 write FField1;
property Prop2: string read FField2 write FField2;
end;

// Main component class to be converted to ActiveX Control.
TMyClass = class(TWinControl)
private
FClassField: THelperClass;
FIntField: Integer;

public
procedure SetSomeClass(aClass: THelperClass);
function GetSomeClass: THelperClass;

constructor Create(AOwner: TComponent); override;
destructor Destroy; override;

published
property HelperProp: THelperClass read FClassField write FClassField;
property IntProp: Integer read FIntField write FIntField;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Test', [TMyClass]);
end;

{ TMyClass }

constructor TMyClass.Create(AOwner: TComponent);
begin
inherited;
FClassField := THelperClass.Create;
end;

destructor TMyClass.Destroy;
begin
FClassField.Free;
end;

function TMyClass.GetSomeClass: THelperClass;
begin
ShowMessage('In TMyClass.SomeClass');
Result := FClassField;
end;

procedure TMyClass.SetSomeClass(aClass: THelperClass);
begin
ShowMessage('In TMyClass.SetSomeClass');
FClassField := aClass;
end;

{ THelperClass }

procedure THelperClass.SomePublicProc;
begin
ShowMessage('In THelperClass.SomePublicProc');
end;

end.

----------------------------------------------------------------------------
--

TMyClass is the main class which I want to convert to ActiveX using the
ActiveX Wizard in D7. As you would have noticed, I have a published property
of type THelperClass, a function which returns objects of type THelperClass,
and a procedure which takes THelperClass as argument.

My problem is that after I install this component and use the Delphi ActiveX
Wizard to create ActiveX component, I find that the above mentioned
property, method and function is not available in my ActiveX Component. The
HelperClass has not been made available or exposed in the ActiveX. How can I
do that? How can I expose class properties when converting to ActiveX? Is
there any other way of creating ActiveX other than through the Wizard in
Delphi?

Somebody please help me on this.

Thanks in advance.

--
Sam

Deborah Pate (TeamB) · Guest

< I find that the above mentioned property, method and
function is not available in my ActiveX Component.

Sam · Guest

Hi Deborah,

Thanks for the solutions.

Deborah Pate (TeamB) · Guest

< For example, Will it be possible for the user to
say MyClass.HelperClass.Prop1 := 10; ?

Sam · Guest

Thanks Deborah,

I'll go thru that.

Sam.

"Deborah Pate (TeamB)" <d.pate (AT) blueyonder (DOT) co.not-this-bit.uk> wrote in
message news:VA.00001d83.00c1c4eb (AT) blueyonder (DOT) co.not-this-bit.uk...

Sam · Guest

Hi Deborah,

That site was of great help. I was able to expose my helper class as a COM
DLL. Now, I'm seeing how I can convert my already existing VCL Helper
Classes into a COM Class,.....or how I can use this logic to expose my huge
collection of Helper classes related to my existing VCL component and
convert it to an ActiveX Component.

Thanks Again.

--
Sam.

"Deborah Pate (TeamB)" <d.pate (AT) blueyonder (DOT) co.not-this-bit.uk> wrote in
message news:VA.00001d83.00c1c4eb (AT) blueyonder (DOT) co.not-this-bit.uk...

Gary Wardell · Guest

Sam · Guest

Hi,

Is there any way by which I can directly convert this to ActiveX using the
Delphi Wizard? I've noticed that when using the Delphi ActiveX Wizard, the
THelperClass and other such helper classes are not converted in the Type
Library and are hence not exposed to user. After the Wizard creates the
implementation file and type library, I have to manually edit the Type
Library and add the helper class interface and other such classes. Is there
a way by which Delphi will do this automatically?

Thanks,

--
Sam.

"Sam" <anishsam (AT) gnostice (DOT) com> wrote

Deborah Pate (TeamB) · Guest

< Is there a way by which Delphi will do this automatically?