フォームに配置したコンポーネントを名前で検索するには

TComponentクラスのFindComponentメソッドは、子のコンポーネントをコンポーネント名で検索します。

function FindComponent(const AName: string): TComponent;

該当するコンポーネントが見つかればそのコンポーネントを返します。
見つからないときはnilを返します。

次のサンプルコードでは、フォームに配置されている「Edit2」という名前のコンポーネントを検索します。

procedure TForm1.FormCreate(Sender: TObject);
var
  Edit: TComponent;
begin
  Edit := Self.FindComponent('Edit2');
  if Edit <> nil then
  begin
    TEdit(Edit).Text := '見つかりました。';
  end;
end;

フォームにコンポーネントを配置します。

FindComponent1

FindComponent2

実行します。

FindComponent3

コメント

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください