複数のコンポーネントを配列化して処理する～イベント編～

イベントを一括で記述する方法

今回は複数のTButtonを配列にして、OnClickイベントの処理を一括で書いてしまいます。
コードはこんな感じ。

unit Unit2;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
System.Generics.Collections,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
FMX.Controls.Presentation, FMX.Edit, FMX.StdCtrls;
type
TForm2 = class(TForm)
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure ButtonClick(Sender: TObject);
private
{ private 宣言 }
public
{ public 宣言 }
Button  : Array[1..5] of TButton;
end;
var
Form2: TForm2;
implementation
{$R *.fmx}
procedure TForm2.ButtonClick(Sender: TObject);
var
index : Integer;
begin
TButton(Sender).Text := 'My Click!!';
end;
procedure TForm2.FormCreate(Sender: TObject);
var
I: Integer;
begin
for I := Low(Button) to
High(Button) do
begin
Button[I] := TButton(FindComponent('Button'+IntToStr(I)));
Button[I].OnClick := ButtonClick;
end;
end;
end.

FormCreateでTButtonの配列に各コンポーネントを代入しています。
ここは前回と同様です。
その時に今回はOnClickプロパティにButtonClickを指定しています。
OnClickプロパティの型はTNotifyEventです。

  TNotifyEvent = procedure(Sender: TObject) of
object;

なのでButtonClickの宣言を合わせています。

こうすることで、配列中のどれかボタンがクリックされると、ButtonClickがコールされることになります。

さて、問題は配列中のどのボタンが呼び出したのかという事です。

ここで使うのがSenderです。
Senderには関数を呼び出したオブジェクト自身が渡されています。
なので、これをTButtonでキャストすることでそのまま使うことができます。

  TButton(Sender).Text := 'My Click!!';

ここで、クリックされたボタンのTextプロパティが変更されます。

呼び出し元の配列インデックスを取得したい場合

さて、呼び出したオブジェクト自身を操作することはできましたが、呼び出したオブジェクトが配列の何番目なのかを知りたい。という場面も多々あると思います。
例えば、配列のインデックスを取得してその番号をTLabelなどで表示したい、という時。

これには2パターンのやり方があります。

procedure TForm2.ButtonClick(Sender: TObject);
var
index : Integer;
begin
for index := Low(Button) to
High(Button) do
begin
if Button[index] = TButton(Sender) then
begin
Label1.Text := 'Button'+IntToStr(index)+' OnClick';
Break;
end;
end;
end;

procedure TForm2.ButtonClick(Sender: TObject);
var
index : Integer;
begin
TArray.BinarySearch<TButton>(Button, TButton(Sender), index);
Label1.Text := 'Button'+IntToStr(index)+' OnClick';
end;

procedure TForm2.ButtonClick(Sender: TObject);
var
index : Integer;
begin
TArray.BinarySearch<TButton>(Button, TButton(Sender), index);
index := index+Low(Button);
Label1.Text := 'Button'+IntToStr(index)+' OnClick';
end;