привязка к динамическим объектам

[areyoudead]

Добрый вечер, обращаюсь к вам за помощью ещё раз)
Есть динамически создаваемые формы, на них динамически создаваемые компоненты
вопрос: как намертво привязать эти компоненты к конкретной, созданной форме.
через parent, owner или через что-то еще, не могу разобраться.
Просто создаешь одну форму, на ней все работает, создаешь следующую, не закрывая старую, на ней тоже все работает, а на предыдущей все события кнопок и созданные компоненты обращаются к последней созданной форме .

[mihali4]

NewButton.Parent:=NewForm;
NewButton.OnClick:=NewForm.MyButton.Click;

[areyoudead]

а как быть с таким компонентами как ADOConnection ADOTable и подобные, у которых нет Parent?
заменить Owner? подскажите как будет выглядеть синтаксис?

[mihali4]

Ну что, без "доброго дяди" никак ?
Или серое вещество кончилось ?
Или просто лень самому ?

var q: TQuery;
begin
q:=TQuery.Create(Form1);
q.DatabaseName:='DBDEMOS';
DataSource1.DataSet:=q;
q.SQL.Text:='select * from events';
q.Open;
end;

[areyoudead]

да в том то и дело , что сам во всем стараюсь разбираться, перед тем как сюда написать, кучу всего перерыл и перечитал.
Поэтому уже не один день пытаюсь разобраться сам.

Но с этим случаем, что-то не так, не могу понять самой привязки или что-то неправильно делаю.
Прикрепляю проектик, если не сложно посмотрите, укажите ошибку.

вот описание небольшое в чем загвоздка:

Откройте комбо1, нажмите "редактировать" все в нем работает.
Откройте, не закрывая первое, комбо2, там тоже с редактированием все правильно, а теперь вернитесь к открытому первому.
В нем отображаются данные из последнего созданного, а нужно, чтобы вновь созданная форма, не перебивала значения старой

[mihali4]

Может, все-таки

ManageTovar.ShowModal; 
ManageTovar.Free;

?
Если б вы разные формочки создавали для каждого склада...
А так неразбериха получается ! Раз создали форму редактирования, два создали ее же (не убив предыдущий экземпляр)...
Вот вам и "накладки"...

Кстати, ни комбо1, ни комбо2 не нашел... Есть только комбо3.

[evg_m]

а нужно, чтобы вновь созданная форма, не перебивала значения старой

Не нужно использовать глобальные переменные при формировании данных формы. Я имею ввиду вот эти переменные.
var
EditTovarForm: TEditTovarForm;
var
KodTovara,
Naimenovanie,
Edinitsy,
Kolichestvo,
Tara,
KolichestvoVTare,
MaksSrok,
Dlinna,
Shirina,
Visota,
NomerSklada,
MestoNaSklade,
DataPostuplenia,
DataSpisania,
CENA,
operator:string;
rs:_Recordset;

вновь создаваемая форма ПЕРЕБИВАЕТ их значения и при повторном их использовании в первой форме вы получаете их новые значения (для второй формы).Перенесите все зти объявления в раздел Private (или publuc) соответсвующей формы.

А еще лучше перенсти вот этот код

          Command.CommandText:=('select * from [товары] where [код товара]='+data.DataSet.FieldByName('Код товара').Text+';');
          rs :=command.Execute;
          with EditTovarForm do
          begin



          KodTovara:=rs.Fields['Код товара'].Value;
          KodTovaraEdit.Text:=rs.Fields['Код товара'].Value;
          NaimenovanieEdit.Text:=rs.Fields['Наименование'].Value;
          EdinitsyCombo.Text:=rs.Fields['Единицы'].Value;
          KolichestvoEdit.Text:=rs.Fields['Количество на складе'].Value;
          TaraCombo.Text:=rs.Fields['Тара'].Value;
          KolichestvoVTareEdit.Text:=rs.Fields['Количество в таре'].Value;
          MaksSrokEdit.Text:=rs.Fields['Макс срок хранения на складе'].Value;
          DlinnaEdit.Text:=rs.Fields['Длинна'].Value;
          ShirinaEdit.Text:=rs.Fields['Ширина'].Value;
          VisotaEdit.Text:=rs.Fields['Высота'].Value;
          NomerSkladaCombo.Text:=rs.Fields['Номер склада'].Value;
          MestoNaSkladeEdit.Text:=rs.Fields['Место на складе'].Value;
          DataPostupleniaPicker.Date:=Strtodate(rs.Fields['Дата поступления'].Value);
          DataSpisaniaPicker.Date:=Strtodate(rs.Fields['Дата списания'].Value);
          CENAEdit.Text:=rs.Fields['Цена'].Value;
          //Заносится уже имя редактирующего
          operatoredit.Text:=rs.Fields['Оператор'].Value;
//говорит нам о том , что мы редактируем товар
EditDialog:=true;

end;
rs.Close;

Оставив здесь

with EditTovarForm do 
  editcode:=data.DataSet.FieldByName('Êîä òîâàðà').Text;

В такую процедуру

procedure TEditTovarForm.EditCode(tovarcode: string);
begin
           Command.CommandText:=('select * from [товары] where [код товара]='+data.DataSet.FieldByName('Код товара').Text+';');
          rs :=command.Execute;
          with EditTovarForm do
          begin



          KodTovara:=rs.Fields['Код товара'].Value;
          KodTovaraEdit.Text:=rs.Fields['Код товара'].Value;
          NaimenovanieEdit.Text:=rs.Fields['Наименование'].Value;
          EdinitsyCombo.Text:=rs.Fields['Единицы'].Value;
         KolichestvoEdit.Text:=rs.Fields['Количество на складе'].Value;
          TaraCombo.Text:=rs.Fields['Тара'].Value;
          KolichestvoVTareEdit.Text:=rs.Fields['Количество в таре'].Value;
          MaksSrokEdit.Text:=rs.Fields['Макс срок хранения на складе'].Value;
          DlinnaEdit.Text:=rs.Fields['Длинна'].Value;
          ShirinaEdit.Text:=rs.Fields['Ширина'].Value;
          VisotaEdit.Text:=rs.Fields['Высота'].Value;
          NomerSkladaCombo.Text:=rs.Fields['Номер склада'].Value;
          MestoNaSkladeEdit.Text:=rs.Fields['Место на складе'].Value;
          DataPostupleniaPicker.Date:=Strtodate(rs.Fields['Дата поступления'].Value);
          DataSpisaniaPicker.Date:=Strtodate(rs.Fields['Дата списания'].Value);
          CENAEdit.Text:=rs.Fields['Цена'].Value;
          //Заносится уже имя редактирующего
          operatoredit.Text:=rs.Fields['Оператор'].Value;
//говорит нам о том , что мы редактируем товар
EditDialog:=true;

end;
rs.Close;
end;

в зтом случае эти переменные возможно даже и не понадобятся.

[areyoudead]

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

Кстати, ни комбо1, ни комбо2 не нашел... Есть только комбо3.

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

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

кстати, спасибо вам, что не оставляете без внимания