ActiveX control

← →
ivan (2004-04-06 00:08) [0]

Подскажите пожалуста, как разместить на форме ActiveXcontrol зная его GUID?

← →
VMcL © (2004-04-06 00:36) [1]

Меню Component | Import ActiveX Control...
?

← →
ivan (2004-04-07 08:07) [2]

Нет, мне нужно, зная CLSID компонента, вставить его на свою форму в РанТайм.

← →
WondeRu © (2004-04-07 13:05) [3]

Сам такой же вопрос задавал!
http://predskazanie-wunschpunsch.ru/view/10-1079426339/

← →
MagDelphi (2004-04-07 13:57) [4]

пример для SpeechApi
создаёш юнит
unit axControl;
{ Класс-контейнер для ActiveX (компонента управления). }
interface
uses
Windows, Messages, Classes, Controls,
ActiveX, OleCtrls,StdCtrls; //
///********************************************************************
type
TAxControl = class(TOleControl)//
private
CControlData : TControlData2; // Информация об ActiveX.
protected
procedure InitControlData; override;
public
property CData : TControlData2 read CControlData;
constructor Create (AOwn : TComponent;AGUID : TGUID);
end;
implementation
//////////////////////////////////////////////////////////////////////////////
constructor TAxControl. Create (AOwn : TComponent ;AGUID : TGUID);
begin
FillChar(CControlData,sizeof(CControlData),0); // Обнуляете поле с информацией об Active
CControlData.ClassID :=AGUID; // Указываете QUID компонента,который будет создаваться.
inherited Create (AOwn); // Вызываете конструктор предка.
ControlStyle := ControlStyle + [csClickEvents]; // Стиль отображения
end ;
///////////////////////////////////////////////////////////////////////////////////
procedure TAxControl. InitControlData;
begin
ControlData := @CControlData; // Указываете адрес, где находится информация об ActiveX.
end;

//////////////////////////////////////////////////////////////////////////////////////
end.

подключаеш его к форме.
uses AxControl,ComObj, ComCtrls;
на форме
var compon:TAxControl;
compon:=TAxControl.Create(self,stringtoguid("{EEE78591-FE22-11D0-8BEF-0060081841DE}"));//}
compon.Parent:=panel1;
compon.Visible:=true;
compon.Top:=10;
compon.Left:=10;
compon.Width:=100;
compon.Height:=100;
compon.OleObject.Speak(timetostr(time));//голсом время
примеры на magdelphi.boom.ru

ActiveX control Найти похожие ветки