День добрый.
Пишу программу с материнской и дочерними формами.
(CodeGear RAD Studio Delphi 2007)
Требуется чтобы дочерняя форма "Компании" могла создавать форму "Проекты"
Это я сделал.
Теперь требуется наоборот, форма "Проекты" должна создать форму "Компании"
Проблема в том, что для создания формы требуется тип этой формы (TfrmProj). Для этого необходимо в раздел uses написать название модуля с формой.
Отсюда для создания формами друг друга у них должна быть перекрестная ссылка модулей, а это запрещено (Делфи очень ругается)
так я создаю формы:
Код:
procedure TForm1.CreateProjForm(const childName : string);
var Child: TfrmProj;
begin
Child := TfrmProj.Create(Application);
Child.Caption := childName;
Child.IDCompany:=ADOTable1.FieldValues['ID'];
Child.UpdateData;
end;
Так как же создавать формочки друг из друга?