Связь данных в MDI приложениии

[serg1980serg]

Если скажем расположить грид и эдиты на одной форме и естественно связать всё это с БД, то по выделению строк в гриде, данные тут же отображаются и в эдитах, что дает используя эдиты редактировать записи. Тоже самое можно проделывать и когда грид находится на одной форме а эдиты на другой.
Но у меня несколько другая ситуация. Т.к. приложение у меня MDI, эдиты находятся на форме которая ещё не создана. И по нажатию кнопки "Изменить", форма создается (TfrmFofmaSoobshenie.Create(Self).S how) и лишь после создания подгружаются данные в эдиты. При этом нет связи выделенной строки в гриде с эдитами на созданной форме.
Вот я и ищу способ сохранить (передать) связь грида с эдитами, чтоб редактировать в них именно выделенную строку грида.

Имеется БД:
00.jpg

Есть главная форма (frmMaim):
01.jpg

Нажимаем на кнопку "Организации"

procedure TfrmMaim.largebtnОрганизацииClick(Sender: TObject);
begin
  TfrmForms.Create(Self).Show; // создается форма Организаций
  largebtnОрганизации.Enabled:=False; // делается не активной кнопка создания формы
  ActiveMDIChild.WindowState:= wsMaximized; // форма разворачивается на всё окно
  RibbonTabFirms.Visible:= True; // делается видимой вкладка Организаций
  RibbonTabFirms.Active:= True; // делается активной вкладка Организаций
  DataModule1.qryОрганизации.Requery; // обновляем запрос
end;

Получаем форму с гридом (frmForms):
02.jpg

На ней нажимаем кнопку "Добавить"

procedure TfrmMaim.largebtnInsertClick(Sender: TObject);
begin
  TfrmFofmaSoobshenie.Create(Self).Show; // создается форма Сообщение
  ActiveMDIChild.WindowState:= wsMaximized; // форма разворачивается на всё окно
  RibbonTabFirms.Visible:= False; // делается НЕ видимой вкладка Организаций
  RibbonTabSoobshenie.Visible:= True; // делается видимой вкладка Сообщение
  RibbonTabSoobshenie.Active:= True; // делается активной вкладка Сообщение
    // добавление новой записи
  DataModule1.dsФирмы.DataSet.Insert; // в таблицу Фирмы
  DataModule1.dsБанки.DataSet.Insert; // в таблицу Банки
  DataModule1.dsФСС.DataSet.Insert; // в таблицу ФСС
  DataModule1.dsПФР.DataSet.Insert; // в таблицу ПФР
end;

Получаем форму для заполнения (frmFofmaSoobshenie):
03.jpg

По нажатию кнопки "Сохранить"

procedure TfrmMaim.largebtnSaveClick(Sender: TObject);
begin
  DataModule1.tableФирмы.Post; // сохраняем запись
  DataModule1.qryОрганизации.Requery; // обновляем запрос
  largebtnSave.Enabled:=False; // делается кнопка НЕ активной
end;

Запись благополучно записывается в конец таблицы
04.jpg

Далее у меня начинаются проблемы. Не знаю как сделать так, чтоб по нажатию кнопки "Изменить" (при выбранной в гриде какой-либо определенной строки) на форме в Edit-ах отображались данные не из первой строки, а именно из той строки которая была выделена в гриде.

[Stilet]

на форме в Edit-ах

Поставь вместо них DBEdit и в нем укажи поле, откуда будет читаться. Тогда при перескоке по гриду, эдиты автоматом подтянут инфу из записи, на которой произошел перескок.

[evg_m]

вар 1 просто, но все каверзы глобальных переменных.
используем общий (глобальный) dataset (DataSource) из общего модуля данных
для обеих форм: формы с таблицей и формы редактора.

вар 2 данные раздельные, но чуть больше возни
в форму редактора передавать идентификатор (ключ) записи которую будем редактировать.

TformEditor =class(TMDIForm)
private
  procedure SetIDEditRecord(idrecord: integer);
public
  property IDeditrecord: integer write SetIDEditRecord; 
end;

procedure TformEditor.SetIDEditRecord(id: integer);
begin
//Устанавливаем НАШ(свой личный) НД (DataSet) на нужную запись
  MyEditData.Parameter('keyid').Value:=id;
end;

var
   Myeditor: TformEditor;

MyEditror:=TformEditor.Create;
MyEditor.IDEditRecord:=GridData.FieldByName('key').AsInteger;

[serg1980serg]

evg_m спасибо.
Чёта я сам себя заблудил. Воспользовался вариантом №1.