コントロールを一括で同時に同じ動作をさせるには？

ファン 2005-05-26 18:59:20 No: 15078

VBではたしかグループみたいな機能があったような気がしましたが、DELPHIには無いのでしょうか？よろしくお願いします。

にしの 2005-05-26 19:24:56 No: 15079

VBのコントロール配列に対するイベントのことでしょうか。
Delphiのイベントは、VBと違って固定ではありません。
VBの場合、Button1のクリックイベントは、Button1_Clickという名前に固定されますが、Delphiでは、オブジェクトインスペクタで名前を入力できます。
もちろん、同じイベントプロシージャを、複数のコントロールのイベントに割り当てることも出来ます。

VBと同じようなコントロール配列はありません。
Tagプロパティを活用するなどして、Senderがどのコントロールか判別すれば、似たような事はできると思います。

deldel 2005-05-26 23:55:52 No: 15080

以下参照。

Buttons : array[1..10] of TButton;

var
  i : Byte;
begin
  for i := 1 to 10 do begin
    Buttons[i] := FindComponent('Button' + IntToStr(i)) as TButton;
  end;
end;

var
  i : Byte;
begin
  for i := 1 to 10 do begin
    Buttons[i].Caption := IntToStr(i);
  end;
end;