Можно ли в коде изменить номер компоненты

[MixanMM]

Добрый день, подскажите, мне нужно что бы примерно работало так

procedure TForm1.Frame1Button4Click(Sender: TObject);
var
button:Tbutton;
begin
button:=button+1;

knopka(Frame41.Button1);

end;

Где будет массив из 10 баттонов, и в цикле в процедуру knopka подставлять Кнопку Баттон+1, можно ли как то это сделать, или придется без цикла, линейно вызывать для каждой кнопки? вот так:
procedure TForm1.Frame1Button4Click(Sender: TObject);
var
button:Tbutton;
begin


knopka(Frame41.Button1);
knopka(Frame41.Button2);
knopka(Frame41.Button3);
knopka(Frame41.Button4);
и т.д.
end;

[evg_m]

Tcomponent "знает" список чем владеет (Owner)
property Components[]
property Componentscount
function FindComponent

TControl "знает" список дочерних (кто показывает)
property Controls[]
property controlsCount
function FindControl ?

TFrame is TContol
TButton is TControl
TControl is TComponent

как это мне поможет?

welcome to Find with this keyword

[MixanMM]

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

Tcomponent "знает" список чем владеет (Owner)
property Components[]
property Componentscount
function FindComponent

TControl "знает" список дочерних (кто показывает)
property Controls[]
property controlsCount
function FindControl ?

TFrame is TContol
TButton is TControl
TControl is TComponent

как это мне поможет?

welcome to Find with this keyword

получается примерно так:

begin
for i := 1 to 33 do begin
    Button.Name := Button + IntToStr(i);
    with Button(FindComponent(Button.Name + IntToStr(i))) do
    begin
      knopka(Frame41.Label1,Frame41.Button,Frame41.Label2);
    end;
  end;

Но что подставить сюда в процедуру, что бы она понимала что это кнопка??
...
knopka(Frame41.Label1,Frame41.Button,Frame41.Label2);
...

[evg_m]

Но что подставить сюда в процедуру, что бы она понимала что это кнопка??

очевидно именно то что нашли.

b:=FindComponent() as TButton;
Knopka(b);

https://www.programmersforum.ru/sear...=1&saveprefs=1

[MixanMM]

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

очевидно именно то что нашли.

b:=FindComponent() as TButton;
Knopka(b);

https://www.programmersforum.ru/sear...=1&saveprefs=1

Небольшая загвоздка - эти кнопки находятся на фрейме, код отрабатывает, ежели кнопки есть на форме, как указать, что бы он их использовал из фрейма? Или можно как то процедуру убрать во фрейм, и вызывать из главной формы?

[evg_m]

1. искать их на Frame "напрямую"

FrameXXX.FindComponent(

TFrame is TContol
TButton is TControl
TControl is TComponent

2. искать через функцию Frame (написанную самолично).

TFrameXXX =class
   ...
  public
   function FindButtonByName(const bname: string): TButton;
  end;

3. почитать forum через расширенный поиск.

welcome to Find with this keyword

[MixanMM]

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

1. искать их на Frame "напрямую"

FrameXXX.FindComponent(

2. искать через функцию Frame (написанную самолично).

TFrameXXX =class
   ...
  puiblic
   function FindButtonByName(const bname: string): TButton;
  end;

3. почитать forum через расширенный поиск.

Ладно, не буду усложнять, сделаю линейно. есть еще вопрос: почему вот так работает:

procedure TForm1.Frame1Button4Click(Sender: TObject);
begin
knopka(Frame41.Label1,Frame41.Button1,Frame41.Label2);
end;

а если написать свою процедуру , например:

procedure x();
begin
knopka(Frame41.Label1,Frame41.Button1,Frame41.Label2);
end;

выдает : [dcc32 Error] Unit1.pas(153): E2003 Undeclared identifier: 'Frame41' ?

[evg_m]

потому что метод формы (procedure TForm1.Frame1Button4Click) знает о том что расположено на данной форме(в данном классе-объекте).
может пользоваться всеми именами данного класса.
Frame41 является именем данного класса.

а регулярная (обычная/простая) процедура (procedure x();) ничего кроме себя не знает.
и может пользоваться только глобальными переменными.
Frame41 не является таковой.

[MixanMM]

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

потому что метод формы (procedure TForm1.Frame1Button4Click) знает о том что расположено на данной форме(в данном классе-объекте).
может пользоваться всеми именами данного класса.
Frame41 является именем данного класса.

а регулярная (обычная/простая) процедура (procedure x();) ничего кроме себя не знает.
и может пользоваться только глобальными переменными.
Frame41 не является таковой.

Как то можно обычную процедуру обучить знаниям о других классах? т.к. мне бы еще нужно несколько раз вызвать то что лежит в процедуре

[evg_m]

1. процедуру можно сделать методом
ведь вызывать-то ее вы будете в методах той формы.

TFormXX =class 
...
private/protected //на выбор
  procedure X(...);
end;

procedure TFromXX.X(...);
begin
...
end;