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;
フォームにコンポーネントを配置します。
実行します。
こんにちは、古庄 晋二と申します。
最初はDelphiで、最近はC++Builderで開発を始めました。
その中で山本さんの記事に何度も助けられました。
一言、感謝を伝えたくてメールを書きました。
以下のような活動をしています。
https://www.youtube.com/watch?v=hbaeN5odCIA&t=29s
https://zap100.github.io/