delphi - Delphi エディタで TCollectionItem のラベルを変更する

Question

私が取り組んでいるコンポーネントは、TCollection を使用して他のコンポーネントへのリンクを保持しています。アイテムがデザイナーで編集されると、ラベルは次のようになります。

0 - TComponentLink
1 - TComponentLink
2 - TComponentLink
3 - TComponentLink

意味のあるラベル (おそらくリンクされたコンポーネントの名前) を追加するにはどうすればよいですか? 例えば

0 - UserList
1 - AnotherComponentName
2 - SomethingElse
3 - Whatever

おまけとして、コンポーネントをダブルクリックしたときにコレクションエディターが表示されるようにする方法を教えてください。

score 5 · Accepted Answer

意味のある名前を表示するには、GetDisplayName をオーバーライドします。

function TMyCollectionItem.GetDisplayName: string; 
begin 
  Result := 'My collection item name'; 
end;

非ビジュアルコンポーネントがダブルクリックされたときにコレクションエディタを表示するには、TComponentEditor Edit プロシージャをオーバーライドする必要があります。

TMyPropertyEditor = class(TComponentEditor)
public
  procedure Edit; override; // <-- Display the editor here
end;

...そしてエディタを登録します:

RegisterComponentEditor(TMyCollectionComponent, TMyPropertyEditor);

score 1 · Accepted Answer

エディターに表示される名前は、アイテムの DisplayName プロパティに格納されます。リンクを作成するときに、コードを次のように設定してみてください。

item.DisplayName := linkedItem.Name;

ただし、ユーザーが既に DisplayName を設定している場合は、DisplayName を変更しないように注意してください。これは、UI の大きな煩わしさです。

2 に答える 2