Динамическое создание объектов и задание событий

[TreadProblem]

Задача:Создание динамической формы и всех объектов на ней, по заранее заданным критериям, которые берутся к примеру из файла.

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

Проблема вот в чем. как динамически создавать события для динамически созданных объектов?

В инете нашел только, как прикрутить уже заранее созданное событие к динамически созданному объекту, а если мне нужно что бы код в событии был всегда разным? довольно странно создавать 100 кнопок и использовать для него 1 заранее созданное событие. все 100 кнопок будут делать 1 и ту же функцию(( а если заранее для всех 100 кнопок прописывать событие, то и динамическое создание просто не к чему, потому что придется руками прописать все 100 событий для каждой кнопки( 0о

пример того что нашел в инете:

public
Buttons: Array[1..5] of TButton;
procedure ButtonsDown(Sender: TObject);
end;

.................................................. ...............

with Buttons[i] do begin
.................................................. ............
onClick:=ButtonsDown;
.................................................. ............

ведь как я понял все 5 кнопок на событие onClick будут реагировать одинаково 0о

т.е. если я в процедуру ButtonsDown засуну что то типа ShowMessage('ОЛОЛО'); по нажатию на любую из 5и динамически созданных кнопок будет появлятся мессага "ОЛОЛО" . это как то странно 0о либо я чего то не догнал 0о


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

Да. Это так.

Но, если Вы внимательно посмотрите на процедуру обработки нажатия ButtonsDown, то увидите, что в неё передаётся параметер: Sender: TObject
Этот Sender - это и есть так кнопка, на которую произведено нажатие.
Ну а дальше - Вам решать, что с этим делать.
Можно отобразить имя кнопки.

ShowMessage('Имя кнопки: '+ TButton(Sender).Name);

А можно, в зависимости от имени - производить ветление (т.е. при нажатии на разные кнопки будут разные действия) - всё в Ваших руках, как программиста!

И ещё один маленький хинт...
У кнопки есть такое свойство, как Tag. По сути это просто Integer. Можно при создании кнопки туда что-то записывать (например, тот же счётчик I) - просто числовое поле удобнее анализировать в коде процедуры обработки, чем строковое имя кнопки..

Надеюсь, сумел объяснить...

[TreadProblem]

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

Да. Это так.

Но, если Вы внимательно посмотрите на процедуру обработки нажатия ButtonsDown, то увидите, что в неё передаётся параметер: Sender: TObject
Этот Sender - это и есть так кнопка, на которую произведено нажатие.
Ну а дальше - Вам решать, что с этим делать.
Можно отобразить имя кнопки.

ShowMessage('Имя кнопки: '+ TButton(Sender).Name);

А можно, в зависимости от имени - производить ветление (т.е. при нажатии на разные кнопки будут разные действия) - всё в Ваших руках, как программиста!

И ещё один маленький хинт...
У кнопки есть такое свойство, как Tag. По сути это просто Integer. Можно при создании кнопки туда что-то записывать (например, тот же счётчик I) - просто числовое поле удобнее анализировать в коде процедуры обработки, чем строковое имя кнопки..

Надеюсь, сумел объяснить...

да, спасибо за ответ) но нового ничего не увидел к сожалению( о свойстве tag прочитал сегодня в нескольких статьях.

единственное решение которое идет в голову довольно топорно.
Сделать 1 событие и в него загнать условную структуру типа:

if id=1 then begin
  showmessage('ololo');
end else id=2 then begin
  edit1.text='olololo';
end else и т.д.

к примеру если баттон1 то id=1 и будет выполнятся шоумессадж, если баттон2 то в едит запишется "ололо", это по сути тоже самое что задать все события заранее, но запехнув их так сказать в одно место.

вообще задача стоит в том, что бы событие так же создавалось динамически.

[veniside]

Так вам и много обработчиков плохо, и один обработчик тоже плохо.
Есть ещё такой оператор case, чтобы не плодить условия:

PHP код:

case (Sender as TComponent).Tag of
  1: ;
  2: ;
  3: ;
end; 


Тоже не устроит? Тогда вы хотите чего-то странного.

Проблема вот в чем. как динамически создавать события для динамически созданных объектов?

Давайте определимся, либо код обработчика есть в момент компиляции программы, либо его нет.

Если код есть, ваша задача просто связать его с нужными событиями у нужных контролов. Можно даже динамически указывать имена методов в вашем файле (как это делается в .dfm) и через RTTI находить их адреса:

PHP код:

    class function MethodAddress(const Name: ShortString): Pointer; 


Если же кода обработчика нет в момент компиляции, то вам нужен скриптовый движок, типа RemObjects.

[Johnson]

ХЗ кто как, а я обработчики событий решал всегда через тэги контролов...

with Buttn[I] do begin
....
tag:=I;
OnClick:=Btn_Click;
...
end;


procedure btn_click(Sender:TObject);
begin
case (sender as TButton).tag of
0:begin
//действия по кнопке с тэгом 0
end;
end;
end;

[asmodey1]

Вы абсолютно правы, но ТС "заказал" нечто с искусственным разумом:

задача стоит в том, что бы событие так же создавалось динамически

То есть он не хочет описывать обработчик в дизайн-тайме...
Ну что ж - флаг ему в руки.

З.Ы. Немножко дополню. Если временно нужно вообще отменить обработчик, то делаем так:

OnClick:=nil;

[Stilet]

что бы событие так же создавалось динамически

Ну VBScript еще не отменили... Вполне программа может генерировать нужный скрипт и выполнять его.

[Serge_Bliznykov]

хотел пройти мимо "молча", но не смог...

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

вообще задача стоит в том, что бы событие так же создавалось динамически.

TreadProblem, а расскажите поподробнее, о чём это Вы?!

[_SERGEYX_]

Хе-хе, ТС не знает как событие к кнопке прикрутить, а вы ему предлагаете VBScript, RemObjects. PaxCompiler в самый раз будет.

[Johnson]

В самый раз будет толкнуть ТС на осознание событий (что они из себя представляют), а не на ПаксКомпайлер Ну и совместно с этим пинком показать примеры...