Delphi IDEのカスタムメニュー項目は、どのように追加するのですか？

Question

Delphi 7とDelphi 2006を使ってプロジェクトを進めていますが、特定のシステム情報を取得するコンポーネントを開発中です。 は今の要件は、この

と私は検索しました。この

ようdelphi 7のためのように、コンポーネントがシステムにインストールされた後、IDEのメニュー項目があるはずということですネット上でメニュー項目を追加することについては、しかし、私はIDEのような項目を追加するために何も持っていないEurekaLogがあります。 EurekaLogまたはmysqlのような項目をどのように追加するか教えてください。 レジストリのどこですか？

Answer 1

メニューをDelphi IDEに追加するには、Delphi Open Tools APIを使用する必要があります。ここから、このようなコードを使って、delphi IDEのメインメニューにアクセスすることができます。その後、

LMainMenu:=(BorlandIDEServices as INTAServices).MainMenu; 

または

LMainMenu:=(BorlandIDEServices as INTAServices).GetMainMenu; 

そして、あなたがしたいメニュー項目を追加します。

あなたは、具体的HELPメニューにメニュー項目を追加し、またそれを得るようにしたい場合は、追加のサンプル

• Open Tools API Chapter 15: IDE Main Menus
• Introduction to the Delphi Open Tools API
• How can I add a menu item to the IDE’s main menu?

Answer 2

ため、これらのリンクをチェックパッケージがアンロードされたときに削除され、アイテムの有効/無効が処理されると、このウィザードコードが役に立ちます。私は、GExpertsのドキュメンテーションが示しているサンプルウィザードのコードをスタータープロジェクトとして取り上げ、少し上手いスタートプロジェクトとしてここに掲載しました。 、彼らは「ウィザード」の意味は、「シンプルなIDEエキスパート」である

https://bitbucket.org/wpostma/helloworldwizard/

つまり、メニューで何かをに追加：あなたはこのコードを取得し、それを拡張する場合は、非常に迅速に開始することができますIDEは、IOTAWizardとIOTAMenuWizardを実装しています。このアプローチには多くの利点があり、GExpertsウィザードが書かれている方法です。

コードのコアは、パッケージ（DPK）に入れ、インストールされ、IDEに登録する必要がある。このスタータウィザード、ある：

// "Hello World!" for the OpenTools API (IDE versions 4 or greater) 
// By Erik Berry: http://www.gexperts.org/, eberry@gexperts.org 

unit HelloWizardUnit; 

interface 

uses ToolsAPI; 

type 
    // TNotifierObject has stub implementations for the necessary but 
    // unused IOTANotifer methods 
    THelloWizard = class(TNotifierObject, IOTAMenuWizard, IOTAWizard) 
    public 
     // IOTAWizard interface methods(required for all wizards/experts) 
     function GetIDString: string; 
     function GetName: string; 
     function GetState: TWizardState; 
     procedure Execute; 
     // IOTAMenuWizard (creates a simple menu item on the help menu) 
     function GetMenuText: string; 
    end; 


implementation 

uses Dialogs; 

procedure THelloWizard.Execute; 
begin 
    ShowMessage('Hello World!'); 
end; 

function THelloWizard.GetIDString: string; 
begin 
    Result := 'EB.HelloWizard'; 
end; 

function THelloWizard.GetMenuText: string; 
begin 
    Result := '&Hello Wizard'; 
end; 

function THelloWizard.GetName: string; 
begin 
    Result := 'Hello Wizard'; 
end; 

function THelloWizard.GetState: TWizardState; 
begin 
    Result := [wsEnabled]; 
end; 

end. 

登録コードは上に示されていないが、あなたが上記のリンクからこれをダウンロードするなら、それ自身の "Reg"（登録）ユニットに含まれています。 A tutorial link is on EDN here.