Вызов метода MDIChild формы из другой формы.

[Aiden]

Есть 2 формы, обе MDIChild:

Первая форма:

unit DB;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComObj; 

PDBase = ^TDBase;
TDBase = class(TForm)
    xls: TStringGrid;
  private
    vBase:string;
  public
    procedure Load;
    property Base:string read vBase write vBase;
  end;

var
  DBase: TDBase;

implementation

uses RecordEdit;

procedure TDBase.Load;
begin
if FileExists(vBase) then begin
  //код вырезал для экономии места. Тут загрузка данных из БД в СтрингГрид
end;
end;


procedure TDBase.xlsDblClick(Sender: TObject);
var
Form:TRecordEditor;
begin
  Form:=TRecordEditor.Create(Owner);
  Form.Base:=vBase;
  Form.Rec:=xls.Selection.Top;
  Form.Href:=@Self;
  Form.Load;
  Form.Caption:='1';
end;
end;

end.

Вторая форма

unit RecordEdit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, ComObj, DB;

type
  TRecordEditor = class(TForm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    vBase:string;
    vHref:PDBase;
  public
    property Base:string read vBase write vBase;
    property Href:PDBase read vHref write vHref;
    { Public declarations }
  end;

var
  RecordEditor: TRecordEditor;

implementation

{$R *.dfm}

procedure TRecordEditor.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
Href^.Load;
Action:=caFree;
end; 

end.

Вкратце описание - Форма 2 создается формой 1 при двойном клике в СтрингГриде. После закрытия Формы 2 данные в форме 1 должны обновиться при помощи метода Load формы 1. Для получения формы, создавшей форму 2 передаю указатель на нее. В принципе почти все нормально - метод вызывается, НО - переменная vBase "inaccessible value". Даже если по тому-же указателю установить свойство Base - ничего не меняется. Собственно вопросы:
1. Почему? По логике вещей по указателю на экземпляр класса я должен иметь возможность нормально работать с ним.
2. Каким образом можно это реализовать (обращение к методу другой MDIChild формы)?

[=master=]

Зачем вам вообще указатель - PDBase = ^TDBase;?

И по описанию вашей логики, я понял, что TRecordEditor должен быть показыватся модально, нет?

[=master=]

А в принципе я бы тут сделал не так, либо mvc прикрутил, либо на худой конец class function добавил в TRecordEditor.

[Aiden]

Постараюсь полностью описать что хочу сделать:
Необходимо разработать редактор баз данных состоящий из 2 частей - формы с набором записей в базе данных и формы для редактирования данных записей. Реализовать все в одной форме не получается, т.к. некоторых базы содержат в себе несколько десятков полей, пользователь просто запутается в них. Для реализации этого создал 2 формы:

Форма TDBase, которая отображает все записи в базе данных. Форма отображает все записи базы данных, путь к которой хранится в переменной vBase. Список полей, которые необходимо отобразить, хранятся в одноименном ini файле. По клику на конкретную запись открывается форма TRecordEditor, которая позволяет отредактировать выбранную запись.

Форма TRecordEditor - отображает полностью всю запись с возможностью редактирования. По закрытию этой формы данные сохраняются, после чего форма, из которой была открыта запись, должна обновиться (чтоб пользователь увидел результаты изменения записи). За обновление формы у меня отвечает метод Load формы TDBase.

Вот какраз в обновлении формы TDBase после закрытия формы TRecordEditor и возникает проблема. В моем понимании - форма TRecordEditor должна содержать указатель на форму из которой она была вызвана (форму-родитель), для того чтоб знать, какую именно форму надо обновить после закрытия. Имея указатель на форму-родитель, я вызываю метод формы родителя (Href^.Load, где Href - указатель на форму-родитель). Метод вызывается нормально - но главная гадость - метод не видит внутренних переменных экземпляра класса (т.е. эту самую переменную vBase формы TDBase). Почему так происходит - понять не могу Хотелось - бы узнать почему (боюсь мне с этим сталкиваться придется еще не раз) и узнать, каким еще образом можно решить данную задачу. C inaccessible value сталкивался только в том случае, когда пытался обратиться к свойству не инициализированного класса. МБ я не правильно передаю указатель на экземпляр класса?

class function - не устраивает, т.к. во первых экземпляр формы у меня уже создан, во вторых - метод работает с внутренними переменными класса и объектами, размещенными на форме. Не хотелось-бы переписывать и адаптировать.
mvc - придется все переделывать. Не хотелось-бы, но если альтернатив нет - куда ж деться.

П.С. TRecordEditor - не модальная.

[Аватар]

Что мешает, если уж пошли по такому пути, свойство сделать типа TDBase? И загнать в него из 1-ой формы DBase или Self, которые и так уже указатели. Можно и конструктор 2-ой формы переопределить и передать ему в качестве параметра это же.

[=master=]

Для того чтобы вызвать метод формы указатель как "собаке пятая нога", vHref : TDBase вот так достаточно, а указатели удалите, чтобы не сталкиватся там где не надо.
Про модальность я так и не понял, вы даете возможность редактировать сразу 100 записей за раз, и в чем прикол? Я еще понимаю когда окно редактирования одно (не модальное) но на кой их сразу куча?

[Aiden]

Модальность не устраивает тем, что пока модальное окно не закроешь - в другую базы не залезть. Зачем надо в другую базу лезть если редактируешь одну из записей - не понятно. Поэтому запрет на редактирование нескольких записей устанавливаю через перебор дочерних окон с проверкой свойства Base. Если форма TRecordEditor с свойством Base, равным свойству Base формы TDBase уже существует - просто вывожу предупреждение.

Заменил указатель на TDBase - все работает. Большое спасибо.

[=master=]

Поэтому запрет на редактирование нескольких записей устанавливаю через перебор дочерних окон с проверкой свойства Base. Если форма TRecordEditor с свойством Base, равным свойству Base формы TDBase уже существует - просто вывожу предупреждение.

Добавте поле в TDBase на TRecordEditor, и никакие переборы не нужны (не забывая очищать его).