DoingActiveXMethod param1,param2,param3[/code]

Navigate "http://hiasm.com/"[/code]

Prop1 = Val1: Prop2 = Val2[/code]
При желании, можно и прогу на VB с использованием контрола запускать. :)


[size=-2]------ Добавлено в 13:45 [/size]
Ага, понял, почему с DBPix глюкнуло - событий-то у него и нету. Баг, исправить надо.

procedure THIUseActiveX.Init;
var pCtl: PMyOleCtl; tiEvents: ITypeInfo;
begin
  try
    pCtl := NewMyOleCtl(FParent, _prop_CLSID); Control := pCtl;
    FSite.CreateScriptEngine(slVBScript);
    FSite.ControlIUnknown := pCtl.OleObject;
    tiEvents := pCtl.GetEventTypeInfo;
    if tiEvents<>nil then begin
      FEventHandler := TMyEventHandler.Create(Self, tiEvents);
      InterfaceConnect(pCtl.OleObject, FEventHandler.IID, FEventHandler, FEventConnection);
    end;
  except

function TMyEventHandler._AddRef: Integer;
var pdisp: IDispatch;
begin
  pdisp := PMyOleCtl(FMe.Control).OleObject;
  Result := pdisp._AddRef;
end;

function TMyEventHandler._Release: Integer;
var pdisp: IDispatch;
begin
  pdisp := PMyOleCtl(FMe.Control).OleObject;
  Result := pdisp._Release;
end;

Add(UseActiveX,16335345,147,147)
{
 Left=30
 Top=25
 Width=360
 Height=230
 CLSID="{0002E551-0000-0000-C000-000000000046}"
}