Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.01.23;
Скачать: CL | DM;

Вниз

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://delphimaster.net/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



Страницы: 1 вся ветка

Текущий архив: 2005.01.23;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
4-1098777176
Sirus
2004-10-26 11:52
2005.01.23
Как отловить запсук процессов под Win9x/NT/2000/XP


4-1101845771
Донской
2004-11-30 23:16
2005.01.23
Как передать сервису сообщение?


11-1087380910
Nert
2004-06-16 14:15
2005.01.23
KOLMHLameCoder как пользоваться?


4-1102161255
Atreides
2004-12-04 14:54
2005.01.23
Перехват запуска и закрытия программ


3-1103456531
Nata
2004-12-19 14:42
2005.01.23
добавить запись