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

[zvygin1964]

Не делал. Какой смысл тратить время на картинки, если номера Tag программист должен присваивать вручную через инспектор объектов?
Да. Функцию 'ReplaceStr' нашел, но она не слушается.
Не программист я. И языков не знаю...

[indexx]

Функцию 'ReplaceStr' нашел, но она не слушается

Какая сволочь. Всех слушается а тебя не хочет. КОШМАР! Ткни ей пальцем в глаз.

если номера Tag программист должен присваивать вручную через инспектор объектов?

RunTime? Не не слышали.

[zvygin1964]

Термин "RunTime" попадался, но не знаю, что это такое. "Не слышали",- не где мне такое слышать, я общаюсь с другими людьми...

[indexx]

Рассказываю. Есть два времени. Design Time, и Run Time. Первое время относится к изменению свойств программы до её запуска. Или как ты говоришь
>> Tag программист должен присваивать вручную через инспектор объектов
Второе время Run Time, это время, в которое твоя программа выполняется. В это время ТАК ЖЕ МОЖНО МЕНЯТЬ СВОЙСТВА ОБЪЕКТОВ. Неожиданно, не правда ли?

[zvygin1964]

Если без вашей функции 'ReplaceStr', то это тоже вручную:

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

Ведь количество Button надо вводить в данные цикла в каждом случае отдельно.

Жаль эту тему закрыли:

procedure TForm1.Button1Click(Sender: TObject);
 var //создать массив  номеров установленных в состояние Checked=1 компонентов TCheckBox
 i:Integer;
begin //от "maLoy*508" http://www.programmersforum.ru/showthread.php?p=1415338#post1415338
 for i := 0 to Form1.ComponentCount - 1 do // перебираем на форме все компоненты
 begin
  if (Form1.Components[i] is TCheckBox) and TCheckBox(Form1.Components[i]).Checked then // и если выбранный компонент является чекбоксом, и он выбра(стоит галочка)
  begin
   SetLength(cbet, (length(cbet)+1));  // то мы увеличиваем размер массива на 1
   cbet[High(cbet)] := TCheckBox(Form1.Components[i]).Tag;  // добавляем значение в массив
  end;  
 end;  
 end;

Изменяемый размер массива для данного примера был бы очень удобен.

[min@y™]

Народ, ну напишите Дяде Мише уже компонент TButtonList, пусть кинет его на форму себе и успокоится!

[indexx]

>> то это тоже вручную
Да ладно? А если так?

procedure TForm1.Button1Click(Sender: TObject);
var //создать массив  номеров установленных в состояние Checked=1 компонентов TCheckBox
  i, n:Integer;
begin //от "maLoy*508" http://www.programmersforum.ru/showt...38#post1415338
  n := 0;
  for i := 0 to Form1.ComponentCount - 1 do // перебираем на форме все компоненты
    begin
      if (Form1.Components[i] is TCheckBox) and TCheckBox(Form1.Components[i]).Checked then // и если выбранный компонент является чекбоксом, и он выбра(стоит галочка)
        begin
          inc(n);
          TCheckBox(Form1.Components[i]).Tag := n;  
        end;  
    end;  
end;

Массивов нет, все чекбоксы пронумерованы то свойству Tag в порядке возрастания. АЛИЛУЯ!

[zvygin1964]

Верю, что

пронумерованы то свойству Tag

. Но не вижу.

procedure TForm1.FormCreate(Sender: TObject);
var
  i, n, s:Integer;
begin
  begin
  Button[1]:= Button1;
  Button[2]:= Button2;
  Button[3]:= Button3;
  Button[4]:= Button4;
  Button[5]:= Button5;
  Button[6]:= Button6;
  end;

  n := 0; //от "indexx" http://www.programmersforum.ru/showthread.php?t=118353&page=4
  for i := 0 to Form1.ComponentCount - 1 do  // перебираем на форме все компоненты
  begin
    if (Form1.Components[i] is TButton) {если компонент TButton, то } then
    begin
      inc(n);
      TButton(Form1.Components[i]).Tag := n; //присваиваем   Tag всем  TButton по порядку
    end;

       for s:= 1 to 6    do
    begin
      button[s].visible:=false;
    end

  end;
end;

  procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 for  i:=  1 to 6 do
 begin
   if (X>=Button[i].Left) and  (X<=(Button[i].Left+Button[i].Width)) and  //Left-ширина компонента, Width-координата левого края
      (Y>=Button[i].Top) and  (Y<=(Button[i].Top+Button[i].Height))//Top-координата верхнего края,Height-высота компонента
    then
    begin
     button[i].visible:=True;//Показать именно ту button, на которую наведен курсор.
     j := i     ; //Номер последней использованной button.
     t:= TButton(Sender).Tag ;//Я надеюсь, что  t стала равна Tag той же  button.
    end
    else
    Button[i].Hide;     //скрыть
 end;
 end;

procedure TForm1.Button7Click(Sender: TObject);
begin
 Memo1.lines.add('курсор был над Button'+IntToStr(j)); //работает
 Memo2.lines.add('Tag кнопки = ' + IntToStr(t));// выводится ноль. Не работает!!
end;

[min@y™]

А чо такое j и t? Где прописаны?
И если TForm1.FormMouseMove - это обработчик события OnMouseMove формы, то как ты думаешь, что содержит переменная Sender вот тут?

t:= TButton(Sender).Tag ;//Я надеюсь, что  t стала равна Tag той же  button.

[indexx]

Но не вижу Я в этом бреде воспалённого ума тоже ничего не вижу. Тут либо код за тебя самому писать либо проходить мимо. И наверное выберу второе.