событие для массива созданных элементов

[areyoudead]

Добрый вечер. нужна ваша помошь)
подскажите пожалуйста:
есть массив программно созданных элементов(кнопок), нужно ему присвоить событие onClick например.

когда создаешь одну кнопку, а не массив, все понятно, а как будет выглядить эта процедура для массива вот такого типа:

   var 
BUTTON: array[1..10] of TButton;
I: Integer;

procedure tform1.CreateButton(offset:integer);
begin
  Button[i]:= TButton.Create(self);
  Button[i].Parent := form1;
  Button[i].Name:='MyButton'+inttostr(offset);
  Button[i].Left:=Button[i].width*i;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
i:=i+1;
createbutton(i);
end;

думал что будет выглядеть примерно так:
procedure tform1.Button[i]OnClick =)
и сломал уже всю голову(

и П.С.
подскажите пожалуйста как сделать бесконечный массив? ну чтобы не [1..10000000000 ] а как-нибудь по приемлемей

[XeruH]

Так?

Button[i].OnClick := 'ваш обработчик нажатия на кнопку'

[yasic]

unit MyButtonEvent;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure Reaction (Sender : TObject);
public

end;

type
MyButton = array [1..5] of TButton;

var
Form1: TForm1;
Button : MyButton;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
i : Byte;
begin
for i := 1 to 5 do
begin
Button[i] := TButton.Create(Self);
with Button[i] do
begin
Caption := 'Button' + IntToStr(i);
Width := 50;
Height := 20;
Top := 30;
Left := 30 + (70 * i);
OnClick := Reaction;
Parent := Self;
end;
end;
end;

procedure TForm1.Reaction(Sender: TObject);
begin
ShowMessage('Click');
end;

end.

[yasic]

бесконечного массива не бывает (если не прав поправьте)

[areyoudead]

Спасибо XeruH, спасибо yasic!! то, что нужно!
логичное продолжение вопроса) как узнать какая из этих кнопок была нажата?

[areyoudead]

спасибо, уже разобрался)

ShowMessage(TButton(Sender).Name);

[yasic]

в обработчике Reaction переменная Sender. с ней и нужно работать
ну к примеру так:
if TButton(Sender).Caption = 'Button1' then ShowMessage('Press Button1');

[Скандербег]

var
  Buttons: array of TButton;

procedure tform1.CreateButton;
var I : Integer;
begin
  SetLength(Buttons, Length(Buttons)+1);
  I := High(Buttons);
  Buttons[i] :=  TButton.Create(self);
  Buttons[i].Parent := Self;
  Buttons[i].Caption := 'MyButton' + inttostr(I);
  Buttons[i].Tag := I;
  Buttons[i].Left := Button[i].width * I;
  Buttons[i].OnClick := Reaction;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  createbutton;
end;

procedure TForm1.Reaction(Sender: TObject);
begin
  ShoMessage('Нажата кнопка № '+IntToStr(TButton(Sender).Tag)+' '+TButton(Sender).Caption)
end;

Т.е., как видно, "бесконечные" массивы существуют, если их называть динамическими.

[yasic]

а вот это уже другой разговор. динамические да, "бесконечные" - не слышал ни разу. с другой стороны функция SetLength(M, N). N - это же размерность, а значит массив будет иметь диапазон значений.

У нас принято оформлять код специальным тэгом - при помощи кнопочки "#".
Только...
И не значком #.
И не РНР-кодом.
И не значком цитаты.
И не собственными "ручками".
Рекомендую. Помимо общих правил форума есть и дополнения к ним в каждом разделе...
Модератор

P.S. В следующий раз накажу.

[zvygin1964]

Спасибо!Все описанное выше, ссыпал в кучу, взболтал и получил:

unit MyButtonEvent; // http://www.programmersforum.ru/showthread.php?t=118353

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    procedure ButtonClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
     procedure CreateButton;
   //  procedure Button1Click(Sender: TObject);
         procedure Reaction(Sender: TObject);
    { Private declarations }
  public
    { Public declarations }
  end;
 type
   MyButton = array [1..5] of TButton;
var
  Form1: TForm1;
   Buttons: array of TButton;
      Button : MyButton;

implementation

{$R *.dfm}

procedure TForm1.CreateButton;
var
I : Integer;
begin
 SetLength(Buttons, Length(Buttons)+1);
  I := High(Buttons);
  Buttons[i] :=  TButton.Create(self);
  Buttons[i].Parent := Self;
  Buttons[i].Caption := 'MyButton' + inttostr(I);
  Buttons[i].Tag := I;
  Buttons[i].Left := Button[i].width * I;
  Buttons[i].OnClick := Reaction;
end;


procedure TForm1.ButtonClick(Sender: TObject);
begin
 createbutton;
end;

procedure TForm1.Reaction(Sender: TObject);
begin
  ShowMessage('Нажата кнопка № '+IntToStr(TButton(Sender).Tag)+' '+TButton(Sender).Caption)
end;

procedure TForm1.FormCreate(Sender: TObject);
 var
i : Byte;
begin
for i := 1 to 5 do
begin
Button[i] := TButton.Create(Self);
with Button[i] do
begin
Caption := 'Button' + IntToStr(i);
Width := 50;
Height := 20;
Top := 30;
Left := 30 + (70 * i);
OnClick := Reaction;
Parent := Self;
end;
end;
end;

end.

Работает. Чего тут лишнего?