掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
一つの変数に別々のクラス（オブジェクト）を割り当てるには？ (ID：12452)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
通常は下記のように"var"にクラスを記述しますが、これを"Sender"のクラスを持つ変数（？）を作成することはできないものでしょうか？ procedure TForm1.RadioGroup1Click(Sender: TObject); var TSumClass: TButton; //<--通常ここに定義しますが、なしでできないか？ begin TSumClass := 'Sender'のクラス（オブジェクト）; //<--ここで定義 以降、'Sender'がTButton(NameはBtn1)ならTSumClass.Caption := 'abc' ,TOpenDialog(NameはOpenDialog1)なら w1 := TSumClass.FileName 等の記述が可能 end; //- - - - - - - - - - - - - - - - - - - - - - - - - 下記ステップでNameとClassNameがわかるので、できそうな気がするのですが？ wName := Tform1(Sender).name ; wClass := Tform1(Sender).classname ;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.