\| Read Responses \| Return to Index \| Read Prev Msg \| Read Next Msg \|

Slink-e / CDJ Discussion Archive #8

Re: Delphi and Active X events

Posted By: Dennis Laslo <dlaslo@e...>
Date: 6/25/00 12:21pm

In Response To: Re: Delphi and Active X events (Jon Welfringer)

Yes...I'd appreciate the code...

There's another tech article on the Borland site about "surfacing" Active X events, as they are fired within a container.

There's a similar blurb in the Help file.

I was assuming the ActiveX code generator took care of everything. Looks like it worked for you????

Here's my code...

TForm1 = class(TForm)

Slinkx1: TSlinkx; . . procedure Slinkx1SlinkeDeviceEvent(Sender: TObject; var Device,

Message1: WideString); . . .

var Form1: TForm1;

implementation . .

procedure TForm1.Slinkx1SlinkeDeviceEvent(Sender: TObject; var Device, Message1: WideString); begin

If device='onkyo' then //never gets here

if message1='power' then

listbox1.Items.Add(Message1); // for now..just put in a listbox end;

Responses To This Message

\| Read Responses \| Return to Index \| Read Prev Msg \| Read Next Msg \|

Slink-e / CDJ Discussion Archive #8 is maintained by slinke-bbs-owner@nirvis.com with WebBBS 3.21.