Главная страница
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.029 c
1-1105609637
Arm79
2005-01-13 12:47
2005.01.23
Как получить документ Word в виде картинки?


14-1104776808
Anonimus
2005-01-03 21:26
2005.01.23
Программа


14-1104815872
cyborg
2005-01-04 08:17
2005.01.23
Как хорошо!


3-1103275599
RRA
2004-12-17 12:26
2005.01.23
Использование LIKE при формировании SQL запроса


3-1103534177
vvllaadd
2004-12-20 12:16
2005.01.23
Тип поля задан ALPHA, почему выдается такая ошибка