| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

expert [D6, WinXP]

sirin ©   (2004-08-20 13:39:00) 

Здравствуйте
Есть простой эксперт
unit exmpl_01;

{ STANDARD EXPERT }

interface

uses
 Dialogs, ExptIntf;

type
 { класс эксперта является потомком базового класса TIExpert }
 TEMyExpert = class( TIExpert)
   function GetName: string; override;
   function GetStyle: TExpertStyle; override;
   function GetIDString: string; override;
   function GetMenuText: string; override;
   function GetState: TExpertState; override;
   procedure Execute; override;
end;

procedure register;

implementation

{ возвращаем имя эксперта }
function TEMyExpert.GetName: string;
begin
 Result := 'My Simple Expert 1';
end;

{ возвращаем стиль эксперта }
function TEMyExpert.GetStyle: TExpertStyle;
begin
 Result := esStandard;
end;

{ возвращаем строку - идентификатор эксперта }
function TEMyExpert.GetIDString: string;
begin
 Result := 'Doomy.SimpleAddInExpert_1';
end;

{ возвращаем текст пункта меню }
function TEMyExpert.GetMenuText: string;
begin
 Result := 'Simple Expert 1';
end;

{ возвращаем множество, характеризующее состояние пункта меню эксперта }
{ (доступность, наличие "галочки"); в данном случае пункт меню доступен, }
{ а "галочка" отсутствует }
function TEMyExpert.GetState: TExpertState;
begin
 Result := [esEnabled];
end;

{ при выборе пункта меню эксперта отображаем сообщение }
procedure TEMyExpert.Execute;
begin
 MessageDlg('Standard Expert Started!', mtInformation, [mbOK], 0);
end;

{ регистрируем эксперт }
procedure register;
begin
 RegisterLibraryExpert( TEMyExpert.Create);
end;

end.


Дальше я создаю новый пакет, где этот эксперт компилирую
Но он не хочет появлятся ни на вкладне Help, ни вообще ни в какой вкладке
кто нить может сказать, как это лечить?

---

Юрий Зотов   (2004-08-20 16:56:00) [1]

В окне пакета нажать кнопку Install.

---

sirin   (2004-08-20 14:33:00) [2]

А можно немного поподробней?
как именно его нужно устанавливать?

---

Юрий Зотов   (2004-08-20 14:18:00) [3]

Похоже, дело просто-напросто в том, что пакет надо не просто скомпилировать, а еще и установить его в IDE.
:о)

---

Наверх