delphi - プロジェクトへのユニットの自動追加

Question

コンポーネントが自動的Delphi 7にドロップされるプロジェクトDelphi 2006のファイルに追加する必要があるユニットを使用しています。.dprEureka Log がユニット 'ExceptionLog' をプロジェクト ファイルに自動的に追加する方法と同様に、次のようになります。

プロジェクト内の任意のフォームにコンポーネントをドロップしたときに、プロジェクト ファイルにプログラムでユニットを追加する方法を誰か教えてもらえますか?

Answer 1

そのためには、おそらくOpenToolsAPIを使用する必要があります。

また、ユニットの追加をトリガーするために、コンポーネントのTSelectionEditorを作成する必要がある場合もあります（RequiresUnitメソッドを試してみます）。

アクティブなプロジェクトにユニットを追加する簡単な方法がありますが（以下のコード）、これは、コンポーネントを追加しているフォームが属するプロジェクトではない可能性があるアクティブなプロジェクトに対してのみ機能します。また、uses句の最後にユニットを追加します。

uses
  ToolsAPI;

var
  currentProject: IOTAProject;
begin
  currentProject := GetActiveProject();
  currentProject.AddFile('MyUnit.pas', True);

GExpertsのソースコードには、ユニットを解析してuses句を変更できるクラス（TUsesManager）が含まれているため、確認できます。

Answer 2

奇数。

以前は、デフォルトのdprにほとんど何も含まれないように設定していたため、ツールボックスは非常に空でした。それで、それが私のツールボックスにあった場合、それはdprにありました-あなたは何に問題がありますか-通常、それがツールボックスにある場合、それはすでにdprにあります。

Answer 3

Project > Eurekalog Options に移動し、Eurekalog を無効にします。