ShellTreeviewのインストール (ID:148304)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

なんか参照先を見たら見たことがあるようなないような…ということで呼ばれていないですが来ました。

Delphi 10.3でTShellTreeView, TShellComboBox, TShellListViewをお使いになりたいのですよね？
実は(さっき調べていて知ったのですが)これらのシェルコントロールはソースコードがDelphiに含まれています(XE2以降)。

C:\Program Files (x86)\Embarcadero\Studio\20.0\source\vcl\Vcl.Shell.ShellConsts.pas
C:\Program Files (x86)\Embarcadero\Studio\20.0\source\vcl\Vcl.Shell.ShellCtrls.pas

ただなぜかコンポーネントとして登録されておらず、そのためのパッケージを自分で作る必要があります。

1.IDEで ファイル→新規作成→パッケージ -Delphi として、新規パッケージを作成します。
2.IDE右上のプロジェクトでProject1.bplを選択して 右クリック→追加 で上記2つのpasファイルを追加します。
3.同じく右クリック→新規追加→ユニット で新しいユニットを作成します。
4.新しいユニットのinterfaceに

uses
  System.Classes,
  Vcl.Shell.ShellCtrls;

procedure Register;

を、implementationに

procedure Register;
begin
  RegisterComponents('Shell Controls', [TShellTreeView, TShellComboBox, TShellListView]);
end;

を記述します。
5.ファイル→プロジェクトに名前をつけて保存 でユニットとパッケージのプロジェクトを任意の場所、例えば
C:\Users\Public\Documents\Embarcadero\Studio\20.0\Packages
に任意の名前、例えば
ShellControlsReg.pas
ShellControls260.dproj
で保存する。
6.IDE右上のプロジェクトでShellControls200.bplを選択して 右クリック→インストール を選択する。
7.コンパイル、リンク、インストールがうまくいけば
> パッケージ C:\Users\Public\Documents\Embarcadero\Studio\20.0\Bpl\ShellControls260.bpl がインストールされました。
> 以下のコンポーネントが登録されました : TShellComboBox, TShellListView, TShellTreeView
というメッセージが表示され、コンポーネントパレットにShell Controlsというカテゴリと、TShellTreeView, TShellComboBox, TShellListViewが追加されます。

お試しください。

なおその前に試してみたパッケージはアンインストールしてから、上記の手順を試してください。
またコンポーネントパレットがおかしいときは 右クリック→パレットのリセット をお試しください。

←解決時は質問者本人がここをチェックしてください。

戻る