![]() |
![]() ![]() ![]() ![]() ![]() |
![]() |
![]() |
Как создать простейший экспертDelphi , Программа и Интерфейс , IDE и КомпиляторКак создать простейший экспертАвтор: http://www.swissdelphicenter.ch { This unit can be compiled into a package and will then appear in the delphi Help menu. } unit SDCSimpleExpert; interface uses ToolsApi; type TSDCSimpleExpert = class(TNotifierObject, IOTAMenuWizard, IOTAWizard) public function GetIDString: string; function GetName: string; function GetState: TWizardState; procedure Execute; function GetMenuText: string; end; procedure Register; implementation uses Dialogs; procedure Register; begin {register expert} RegisterPackageWizard(TSDCSimpleExpert.Create); end; { TSDCSimpleExpert } procedure TSDCSimpleExpert.Execute; begin {code to execute when menu item is clicked} ShowMessage('Hello SwissDelphiCenter Simple Expert.'); end; function TSDCSimpleExpert.GetIDString: string; begin {unique expert identifier} Result := 'SwissDelphiCenter.SimpleExpert'; end; function TSDCSimpleExpert.GetMenuText: string; begin {caption of menu item in help menu} Result := 'SwissDelphiCenter Simple Expert'; end; function TSDCSimpleExpert.GetName: string; begin {name of the expert} Result := 'SwissDelphiCenter Simple Expert'; end; function TSDCSimpleExpert.GetState: TWizardState; begin Result := [wsEnabled]; end; end. Статья Как создать простейший эксперт раздела Программа и Интерфейс IDE и Компилятор может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: IDE и Компилятор ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 ![]() |