Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата

<PARAM NAME="Caption" VALUE="findword">

<PARAM NAME="Color" VALUE="2147483663">

<PARAM NAME="Font" VALUE="MS Sans Serif">

<PARAM NAME="KeyPreview" VALUE="0">

<PARAM NAME="PixelsPerInch" VALUE="96">

<PARAM NAME="PrintScale" VALUE="1">

<PARAM NAME="Scaled" VALUE="-1">

<PARAM NAME="DropTarget" VALUE="0">

<PARAM NAME="HelpFile" VALUE="">

<PARAM NAME="DoubleBuffered" VALUE="0">

<PARAM NAME="Enabled" VALUE="-1">

<PARAM NAME="BiDiMode" VALUE="0">

<PARAM NAME="Cursor" VALUE="0">

<PARAM NAME="filename" VALUE="nothing">

</OBJECT>

Т.е. эта программа сама подставляет полное определение компонента (его CLASSID, например). Правда, полученный код иногда приходится подправлять вручную. Например может потребоваться убрать явное указание высоты и ширины объекта.

Теперь подходим к самому главному: как сделать сам компонент (чтобы было что вставлять в нашу страничку :). Итак, в Delphi делаем NewActiveXActive form. В окошке Active Form Wizard выбираем Threading model=Apartment. Другие threading models не работают с IE 4. Выглядит это так: компонент в страничке открывается, но иногда вдруг выскакивает Access violation. (обычно на событие Create). Модель же Both работает с IE 5. Флажок "Include Design-Time licence" лучше не устанавливать. Дальше открывается новая форма, где вы можете размещать свои кнопки-текстбоксы, определять реакцию на события и т.д.

Далее будут описаны некоторые хитрости. Например, нужно хранить некоторые данные во внешнем файле. Я столкнулся со следующим: мой компонент на разных машинах размещал свои файлы в разных местах: на одной в каталоге Windows, на другой - на рабочем столе. Был найден такой выход: пусть страничка по требованию компонента возвращает ему каталог, в котором она находится. Для этого на форму я поместил PageControl, сделал закладки невидимыми и на OnShow (у формы ActiveX компонента нет события OnShow) одной из страниц поставил генерацию собственного события OnWantDir. А в теле HTML-странички соответственно реакцию на него:

<SCRIPT LANGUAGE="VBScript">

<!--

Sub findword1_OnWantDir()

findword1.page_location = location.href

end sub

-->

</SCRIPT>

Рекомендуем скачать другие рефераты по теме: движение реферат, скачать бесплатный реферат без регистрации.





Предыдущая страница реферата | 1  2  3  4  5 | Следующая страница реферата