Delphi – Generate Code for Invisible ActiveX Object Event Handlers in Delphi

activexdelphidelphi-2007

You know in Visual Studio you can use the "+=" syntax and a couple tabs to have it autogenerate the code for an event handler?

How do I accomplish the same thing in Delphi? I'm trying to create an event handler for an event in an invisible activex library that I've imported using the Import Component function.

I realize that with imported activex controls you can just click the object, browse the events tab for what the component provides and double click on the event to have it generate one for you.

These particular activex components are invisible so you can select them on the form. Can Delphi autogenerate the code? If not, can someone point me to some sample code?

Best Answer

In Delphi, even non-visual components are represented on the form as small boxes with an icon. Just select that component and you can get to the events from the object inspector.

If you didn't install it on the component pallet, then there is no autogeneration of the code for the event handler. The easiest way would be to go into the generated tlb.pas file and find the signature of the event you want, copy it, and make a compatible method for it. Then just point the event property to that new method.

Related Solutions

OnReadyStateChange event in ActiveX controls

Yes IE will be cheating. What you actually have in IE is what in the COM world we call an aggregate object. IE will have create an instance of a COM class that it uses to represent ActiveX objects and will aggregate that with the actual instance of the ActiveX class, creating a composite object.

This composite appears to be a single object with new features.

Hence I don't think you need worry about OnReadyStateChange at all.

R – Turbo Power systools stExport event in Delphi

Assuming this is all happening inside your form

type
  TForm1 = class(TForm)
  published
    procedure FormCreate(Sender: TObject);
  private
    FMyExport : TStDBtoCSVExport;
    procedure TForm1.MyExportProgressHandler(Sender : TObject; Index : Integer;
                                             var Abort : Boolean);        
  end;

procedure TForm1.Create(inOwner);
begin
  FMyExport := TStDBtoCSVExport.Create;
  FMyExport.OnExportProgress := MyExportProgressHandler;
end;

procedure TForm1.MyExportProgressHandler(Sender : TObject; Index : Integer;
                                         var Abort : Boolean);
begin
  { anything you like }
end;

Best Answer

Related Solutions

OnReadyStateChange event in ActiveX controls

R – Turbo Power systools stExport event in Delphi

Related Topic