Процедура или функция для повторного действия для разных объектов на форме

[abzhapparovmaxat]

Доброго времени суток!
Возник вопрос для упрощения работы с кодом, после долгого поиска в сети, не смог найти ответов, наверно из-за того что не знаю как правильно спросить и поиск не умеет читать мои мысли. Вообщем...
Мне нужна то ли процедура то ли функция которая выполняет одно и тоже действие, одно только НО! это действие должно выполнятся для разных объектов на форме, то есть я укажу переменную которая в теле процедуры(функции) будет подставлятся к ИМЕНИ объекта (как-то так Edit[x], где x это переменная которая будет входящим значением в процедуре(функции).
Если Вам непонятно можете задать вопрос, Я постораюсь конкретезировать.

[Аватар]

А Sender: TObject чем не устраивает? Анализируйте в процедуре какой класс, имя или значение TAG (в нем можно прописать любое int-значение) и делайте соответствующие действия

[abzhapparovmaxat]

Сообщение от Аватар

А Sender: TObject чем не устраивает? Анализируйте в процедуре какой класс, имя или значение TAG (в нем можно прописать любое int-значение) и делайте соответствующие действия

А можно примерчик.
Допустим на форме три кнопки(button1, button2, button3), три эдитполя(edit1, edit2, edit3) и три лэйбла(label1, label2, label3). Надо сделать так чтоб на нажатие кнопки текст в эдитполе копировался в лэйбл соответственно последней цифре в имени) Просто примерно такой код, у меня в проге будет повтрятся раз 15, и чтобы поменять его мне приходится меня во всем коде.
Помогите пожалуйсята на примере.

[Asinkrit]

Можно к примеру так:

procedure TForm1.ButtonClick(Sender: TObject);
var
  i:integer;
  aLabel:TLabel;
  aEdit:TEdit;
begin
  aLabel:=nil;
  aEdit:=nil;
  if (Sender is TButton) then
    if ControlCount > 0 then
      for i:=0 to ControlCount-1 do
        begin
        if not Assigned(aLabel) then
          if (Controls[i] is TLabel) then
            if (Controls[i] as TLabel).Tag = (Sender as TButton).Tag then
              aLabel:=(Controls[i] as TLabel);
        if not Assigned(aEdit) then
          if (Controls[i] is TEdit) then
            if (Controls[i] as TEdit).Tag = (Sender as TButton).Tag then
              aEdit:=(Controls[i] as TEdit);
        if Assigned(aLabel) and Assigned(aEdit) then Break;
        end;
  if Assigned(aLabel) and Assigned(aEdit) then
    aLabel.Caption:=aEdit.Text;
end;

Достаточно назначить данный обработчик всем кнопкам на форме. но всем объектам одной группы, нужно назначить один и тот же Tag; то есть, Button1.Tag:=1; Label1.Tag:=1; Edit1.Tag:=1; Button2.Tag:=2; Label2.Tag:=2; Edit2.Tag:=2; и т. д. и т. п.

[phomm]

Я нередко решаю такую проблему без динамического поиска компонентов.
Завожу разные массивы контролов со сквозной индексацией. В них складываю (обычно в FormCreate) нужные контролы, потом просто работаю по единому индексу. Складывать в массивы можно тем же findcomponent/ controls, а можно и вручную(если не оч много их)

const 
  CC = 3 // components count
var
EdAr : [1..cc] of tedit;
LaAr : [1..cc] of tlabel;
BtAr : [1..cc] of tbutton;
...
procedure tform1.formcreate(sender : tobject);
begin
edar[1] := edit1;
laar[1] := label1;
btar[1] := button1;
btar[1].tag := 1;
// также и остальные, можно всё это и через цикл и findcomponent занести
end;
...
procedure tform1.buttonclick(sender : tobject); // всем кнопкам назначено это 
 //событие, его, кстати, тоже можно назначить им в том же formcreate
var 
  t : integer;
begin
t := (sender as tbutton).tag;
laar[t].caption := edit[t];
end;

Ещё могу посоветовать не плодить на форме все 15 наборов контролов мышаком, задавать вагон свойств, лучше напишите их создание динамически - и сразу в массиве, и выравнивание/размещение на форме, и кучу характеристик - в достаточно простом куске кода. Примеры ищите по запросу в поиске форума - "динамическое создание компонентов"

[evg_m]

Допустим на форме три кнопки(button1, button2, button3), три эдитполя(edit1, edit2, edit3) и три лэйбла(label1, label2, label3). Надо сделать так чтоб на нажатие кнопки текст в эдитполе копировался в лэйбл соответственно последней цифре в имени)

Еще один вариант решения (не фреймах) Tframe
К проекту добавляется новый модуль (новый Frame).(file New Frame)
на котором размещается 1 button 1 Edit 1 Label
для них описывается нужный функционал. (OnKeyPress и т.д.).
На нашу форму добавляется нужное количество таких фреймов.(компонент frame на вкладке Standart из предложенного списка выбрать наш (созданный на предыдущем шаге скорее всего он будет там один).
Это можно делать как в дизайн так и программно.
Все!
Из плюсов.
При изменении функционала во фрейме (новые control's) никаких действий на форме (настройки массивов, тегов, соответствия имен и т.п.) проводить не требуется. Достаточно скорректировать функционал собственно фрейма.
единообразное размещение контролов на форме получается автоматически.

[evg_m]

Допустим на форме три кнопки(button1, button2, button3), три эдитполя(edit1, edit2, edit3) и три лэйбла(label1, label2, label3). Надо сделать так чтоб на нажатие кнопки текст в эдитполе копировался в лэйбл соответственно последней цифре в имени)

Еще один вариант решения (не фреймах) Tframe
К проекту добавляется новый Frame.
на котором размещается 1 button 1 Edit 1 Label
для них описывается нужный функционал. (OnKeyPress и т.д.).
На нашу форму добавляется нужное количество таких фраймов.
Это можно делать как в дизайн так и программно.
Все!

[abzhapparovmaxat]

Asinkrit - Этот вариант не решает как бы проблему глобально, мне так же придется копировать код во все процедуры кнопки ОнКлик. Просто я перехожу с ПБэйсика на Дэльфи, там решалась эта проблема, тем что созданные ГАДЖЕТЫ, а по Дэльфийски КОМПОНЕНТЫ(или ОБЪЕКТЫ) имеют свое ИД, то есть прям в коде можно вместо ИМЕНИ использовать ЧИСЛО(интеджер), которое выполняет абсолютно все функции ГАДЖЕТА к которому оно прикреплено. С помощью не хитрых сложений-вычитаний можно было создать универсальную процедурку в начале кода, и вставлять ее куда угодно, со входящим переменным ИД-значением, то есть я мог свободно одну и туже процедуру использовать как для кнопки1, которая копировала Эдит1 в Лэйбл1, как для кнопки2, которая копировала Эдит2 в Лэйбл2. Примерно так(схематично)
...
Процедура ПроцедураДляКнопок (х)
вставить из Эдит+х в Лэйбл+х
КонецПроцедуры
...
Если нажали на Кнопка1, то ПроцедураДляКнопок (1)
Если нажали на Кнопка2, то ПроцедураДляКнопок (2)
Если нажали на Кнопка3, то ПроцедураДляКнопок (3)
...
Если нажали на Кнопка15, то ПроцедураДляКнопок (15)

Может быть есть подобное в Дэльфи?
___________________________________ _________________________________

phomm Разбираю Ваш пример)

___________________________________ _________________________________

evg_m Прикольно, но я не представляю себе это, можете предоставить примерчик простенький, желательно с комиентариями

[Asinkrit]

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

Asinkrit - Этот вариант не решает как бы проблему глобально...
...
создать универсальную процедурку в начале кода, и вставлять ее куда угодно, со входящим переменным ИД-значением, то есть я мог свободно одну и туже процедуру использовать как для кнопки1, которая копировала Эдит1 в Лэйбл1, как для кнопки2, которая копировала Эдит2 в Лэйбл2.

Что значит не решает, это одна процедура на все ваши кнопки, ничего копировать не надо, она делает все то что вы хотите.. внимательнее будьте.. вам надо только назначить эту процедуру для всех кнопок в инспекторе объектов, и элементы пронумеровать по группам (свойство Tag у объектов) минимум кода, вполне изящное решение.. В обработчик перелается объект который ее вызвал Sender: TObject - это одна из ваших кнопок, в зависимости от tag-а этой кнопки, находятся на форме label и edit с такими же Tag-ами, и производится копирование текста.

[evg_m]

можете предоставить примерчик простенький, желательно с комиентариями

frames.zipдержи.
комментировать там нечего. Моего кода всего одна строка

self.Label1.Caption:=self.Edit1.Text;

Все остальное описано в моем посте.

К проекту добавляется новый модуль (новый Frame).(file New Frame)
на котором размещается 1 button 1 Edit 1 Label

у меня это unit2 (Frame2)

для них описывается нужный функционал. (OnKeyPress и т.д.).

у меня это Onclick для кнопки.

На нашу форму добавляется нужное количество таких фреймов.

.
я добавил 3 раза.