掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
複数のコンポーネントにイベントの動的割り当てをするには？？ (ID：29510)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じかな？ type TForm2 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private 宣言 } public procedure ButtonClick(Sender: TObject); end; var Form2: TForm2; Buttons : array[0..99] of TButton; implementation {$R *.dfm} procedure TForm2.ButtonClick(Sender: TObject); var Button : TButton; begin Button := TButton(Sender); Button.Caption := IntToStr(Button.Tag); end; procedure TForm2.Button1Click(Sender: TObject); var I,W,H : Integer; begin W := 40; H := 20; for I:=0 to 99 do begin Buttons[I] := TButton.Create(Self); Buttons[I].Parent := Form2; Buttons[I].Tag := I; Buttons[I].Width := W; Buttons[I].Height := H; Buttons[I].Left := (I mod 10) * W; Buttons[I].Top := (I div 10) * H; Buttons[I].OnClick := ButtonClick; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.