掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のボタンのCaptionに代入するには (ID：2766)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
unit Unit2; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Buttons ; type TForm2 = class(TForm) Memo1: TMemo; SpeedButton1: TSpeedButton; procedure Memo1Change(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form2: TForm2; implementation uses unit1; {$R *.dfm} procedure TForm2.Memo1Change(Sender: TObject); var i: integer; c: TComponent; begin for i:=0 to 34 do begin c:= Form1.FindComponent('SpeedButton'+IntToStr(i+1)); TSpeedButton(c).Caption:= Memo1.Lines[i]; end; end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.