掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のボタンのCaptionに代入するには (ID：2748)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
form2のMemo1が変わるたびにSpeedButtonのCaptionに代入したいのですが下記のプログラムではコンパイルできません。 なにか方法はありませんか。 ちなみにVBではコンポーネントのNameを同じ名前にして配列を表記することができましたけど・・・ procedure TForm2.Memo1Change(Sender: TObject); var i:Integer; begin for i:=0 to 35 do form1.SpeedButton.tag(i):=form2.Memo1.Lines[i]; end; form1に35個のSpeedButtonを貼り付けTagプロパティに0から34までの数字を入力しました。 それぞれのSpeedButtonの名前にはSpeedButton1からSpeedButton35になっています。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.