[Darken]

Ребят, помогите разобраться. Необходимо написать программку работающую на основе MDI интерфейса, нашел статью, все делаю по инструкции, но дохожу до вот этого места

Код:

Создание и отображение 

Как упомянуто выше, настройка не позволяет автоматически создавать дочерние окна, поэтому нам необходимо добавить некоторый код, который будет производить создание объекта формы frChild. Следующую функцию CreateChildForm необходимо поместить внутри основной формы (MDI родитель) (наряду с заголовком в interface's private): 

uses uchild;
...
procedure TfrMain.CreateChildForm(const childName : string);
var
  Child: TfrChild;
begin
  Child := TfrChild.Create(Application);
  Child.Caption := childName;
end;

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

[lmikle]

Какую ошибку-то выдает??? Компилятор или во время выполнения?
Тут телепатов нету. Давай более подробную информацию.

[Darken]

вот код моих файлов:

uMain.pas

unit uMain;

interface

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

type
TfrMain = class(TForm)
private
{ Private declarations }
procedure TfrMain.CreateChildForm(const childName : string);
var
Child: TfrChild;
begin
Child := TfrChild.Create(Application);
Child.Caption := childName;
end;

public
{ Public declarations }
end;

var
frMain: TfrMain;

implementation

{$R *.dfm}

end.

uchild.pas

unit uchild;

interface

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

type
TfrChild = class(TForm)
private
{ Private declarations }
public
{ Public declarations }
end;

var
frChild: TfrChild;

implementation

{$R *.dfm}

end.

ошибки

[Error] uMain.pas(13): Undeclared identifier: 'TfrMain'
[Error] uMain.pas(13): 'END' expected but 'CONST' found
[Error] uMain.pas(13): '=' expected but ')' found
[Error] uMain.pas(16): Statements not allowed in interface part
[Error] uMain.pas(20): Declaration expected but identifier 'public' found
[Error] uMain.pas(22): 'IMPLEMENTATION' expected but ';' found
[Error] uMain.pas(27): '.' expected but 'IMPLEMENTATION' found
[Hint] uMain.pas(13): Private symbol 'TfrMain' declared but never used
[Fatal Error] Project1.dpr(6): Could not compile used unit 'uMain.pas'

[lmikle]

О, Господи!!! Естественно, компилятор дает тебе ошибки. Кто же пишет реализацию метода в описании класса? Это тебе не С++ и inline-методами... Поменяй вот так:

Код:

unit uMain;

interface

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

type
TfrMain = class(TForm)
private
{ Private declarations }
  procedure CreateChildForm(const childName : string);
public
{ Public declarations }
end;

var
frMain: TfrMain;

implementation

{$R *.dfm}

procedure TfrMain.CreateChildForm(const childName : string);
var
  Child: TfrChild;
begin
  Child := TfrChild.Create(Application);
  Child.Caption := childName;
end;

end.

[Darken]

спасибо огромное, пошел разбираться дальше

[Darken]

новые проблемы:

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

Заранее спасибо за помощь

ЗЫ. дочерние формы отображаю так:

procedure TForm1.sButton1Click(Sender: TObject); //Кнопка - Редактор
begin
TForm4.Create(Application);
end;

[NT_AUTHORITY]

1. Указатель на активную форму можно получить так: frmMain.ActiveMDIChild и дальше делать с ней что угодно.
2, 3. Не понял ))

[lmikle]

2. Это так делается на уровне Винды. Просто прими как данность. Особенности MDI-интерфейса.
3. Ну максимизируй ее. Если не ошибаюсь, достаточно установаит WindowState.