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

Вниз

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

← →
sirin   (2004-08-20 13:39) [0]

Здравствуйте
Есть простой эксперт
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 14:18) [1]

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

---

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

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

---

← →
Юрий Зотов ©   (2004-08-20 16:56) [3]

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

---

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

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

Наверх

Память: 0.47 MB
Время: 0.028 c