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

[min@y™]

А как бы сделать наоборот: извлечь из Caption его номер и присвоить его в Tag.

Зачем?!
Ты меня уже почти год вводишь в ступор подобными вопросами.

[indexx]

Buttons[i].Tag := i;

Buttons[i].Tag := StrToInt(ReplaceStr(Buttons[i].Caption, 'Button', '', [ReplaceAll]));

Если не то, то учимся задавать вопросы.

[zvygin1964]

Оно, но не работает...

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure Button3Click(Sender: TObject);

    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
  type
   MyButton = array [1..5] of TButton;
var
  Form1: TForm1;
    Buttons: array of TButton;
      Button : MyButton;
       i,t: Integer;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 i,t: Integer;
begin
 for t := 1 to 5 do
Buttons[i].Tag := StrToInt(ReplaceStr(Buttons[i].Caption, 'Button', '', [ReplaceAll]));
end;

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



end.

Undeclared identifier: 'ReplaceStr'
Undeclared identifier: 'ReplaceAll' .
min@y™! Ну покормите вы наконец Виталика, котов надо кормить хоть раз в год!

[min@y™]

Undeclared identifier: 'ReplaceStr'
Undeclared identifier: 'ReplaceAll' .

Как исправишь эти ошибки, при запуске программы получишь Access violation вот в этой строке:

Buttons[i].Tag := StrToInt(ReplaceStr(Buttons[i].Caption, 'Button', '', [ReplaceAll]));

Объясни ты мне, нафига тебе оно надо?

[zvygin1964]

Я не знаю что такое "получить Access violation".
Мне это надо: "сфотографировал вращающийся маховик газового крана;
поместил его на Form1 как фон;
набросал по обруч маховика невидимых и очень мелких Button-ов или Shape-ов (штук 100 или сколько надо);
теперь при движении курсора мыши надо определить в какую сторону его крутили (закрывали или открывали), с какой скоростью и равномерностью (если что не так, то звони 03 и соскребай со стен тех кто выжил.)
Вероятно курсор можно отследить по

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);
begin
  begin
  if (X>=Button1.Left) and (X<=(Button1.Left+Button1.Width)) and//Left-ширина компонента, Width-координата левого края
     (Y>=Button1.Top) and (Y<=(Button1.Top+Button1.Height))//Top-координата верхнего края,Height-высота компонента
  then
  
  else
  
  end;
  begin

Но следить за тем возрастают номера Tag или убывают (не точно, но общий тренд).

И это я хочу сделать сам... Поэтому и задаю вопросы кусочками...

[min@y™]

Мне это надо: "сфотографировал вращающийся маховик газового крана;
поместил его на Form1 как фон;
набросал по обруч маховика невидимых и очень мелких Button-ов или Shape-ов (штук 100 или сколько надо);
теперь при движении курсора мыши надо определить в какую сторону его крутили (закрывали или открывали), с какой скоростью и равномерностью

О_О !!!1111 Рукалицо!...



Вот это поворот!
Сполз по стене...

Ты серьёзно или троллишь?

Покажи скриншот формы, пока она у тебя есть!!!
Распечатаю на ватмане, повешу на стену в кабинете!

[zvygin1964]

Да ладно, не переживайте вы так серьезно... Пока ломаю

procedure TForm1.FormCreate(Sender: TObject);
var
 i: Integer;
begin
 for i := 1 to 200 do
Buttons[i].Tag :=  i;
end;

[zvygin1964]

Зачем скриншоты? Сам написал инструкцию, сфотографировал, смонтировал фильм, озвучил...
Фото выслал на ваш ящик.

[min@y™]

Фото выслал на ваш ящик.

Я фото не просил. Дай скриншот формы, открытой в delphi в design-режиме.

[indexx]

Undeclared identifier: 'ReplaceStr'

Если скопировать сие чудо в строку поиска Google, можно столько всего нового узнать. Ты же пробовал самостоятельно это делать, прежде чем постить на форуме, да? Признавайся.

Мне это надо: "сфотографировал вращающийся маховик газового крана;
поместил его на Form1 как фон;
набросал по обруч маховика невидимых и очень мелких Button-ов или Shape-ов (штук 100 или сколько надо);
теперь при движении курсора мыши надо определить в какую сторону его крутили (закрывали или открывали), с какой скоростью и равномерностью (если что не так, то звони 03 и соскребай со стен тех кто выжил.)

Как однако людей торкает...