Slink-e / CDJ Discussion Archive #8
Re: Delphi and Active X events
Posted By: Dennis Laslo <dlaslo@e...> In Response To: Re: Delphi and Active X events (Jon Welfringer)
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;