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

[indexx]

На первый взгляд всё нормально. В открытии формы создаётся 5 динамических кнопок. На статической кнопке висит обработчик создания доп. динамической кнопки. Единственный совет, для определения индекса кнопки использовать всё же Tag а не Caption.

[zvygin1964]

Сообщение от indexx

Tag а не Caption.

Спасибо,но без полного листинга примера, ваш совет смогу понять много лет спустя...
Восстанавливая пример из темы, делал всё наугад.. Это случайность, что результат получен.

[indexx]

Пример Вы сами дали. Там есть и Tag, и Caption. Tag предназначен для хранения чисел. Caption для отображения текста поверх кнопки. Где по логике лучше хранить индекс?

[zvygin1964]

 Buttons[i].Tag := I;

не работает.

IntToStr(TButton(Sender).Tag)

всегда дает 0

[indexx]

Значит Tag не был присвоен. Если кнопка была создана в этом отрезке кода

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;

То где тут присвоение Tag?

[min@y™]

zvygin1964, опять ты?!

Buttons[i].Tag := I; // Не работает? Выдаёт ошибку или нет? Чему здесь равно I?

[zvygin1964]

Я. Думаю, что I изменяется от 1 до 5. Но:

procedure TForm1.FormCreate(Sender: TObject);
 var
i :Integer ;    //было Byte, заменил на Integer я и сделал глобальной.
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);
Buttons[i].Tag := 3; // Даже так не работает: Project Project1.exe raised exception class EAccessViolation with message 'Access violation at address 00454B90 in module 'Project1.exe'. Read of address 00000004'. Process stopped. Use Step or Run to continue.
OnClick := Reaction;
Parent := Self;
end;
end;
end;

[Аватар]

Button и Buttons не одно и то же

Button[i] := TButton.Create(Self);
with Button[i] do
begin
...
Buttons[i].Tag := 3; // Даже так не работает:

[zvygin1964]

Получилось!

[zvygin1964]

А как бы сделать наоборот: извлечь из Caption его номер и присвоить его в Tag. Ну, типа, так:
Buttons[i].Tag :=Caption ; //ведь Caption := 'Button' + IntToStr(i);