[Paskal]

Всем привет !
Делаю программу mdi ()
Начал плеваться! После того как не смог присвоить дочернему окну в свойство Caption название.

Код:

Form2.Caption:='Название окна';

И вот этот код не работает .(исключение не показывает но название окна не ставится)
Кто подскажет как дочернему окну присвоить имя?

[NumLock]

c:\Program Files\Borland\Delphi6\Demos\Doc\TextEdit\textedit.dpr

[Paskal]

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

c:\Program Files\Borland\Delphi6\Demos\Doc\TextEdit\textedit.dpr

Все хорошо но мне нужно программно а не при конструировании.

[NumLock]

см.:

Код:

unit MDIEdit;

procedure TEditForm.Open(const AFileName: string);
begin
  PathName := AFileName;
  Caption := ExtractFileName(AFileName);
  with Editor do
  begin
    Lines.LoadFromFile(PathName);
    SelStart := 0;
    Modified := False;
  end;
end;

procedure TEditForm.Saveas1Click(Sender: TObject);
begin
  SaveFileDialog.FileName := PathName;
  if SaveFileDialog.Execute then
  begin
    PathName := SaveFileDialog.FileName;
    Caption := ExtractFileName(PathName);
    Save1Click(Sender);
  end;
end;

[Paskal]

Код:

Form1.MDIChildren[0].Caption:='Название окна';

0 это индекс окна

[NumLock]

значит у тебя Form2 <> MDIChildren[0] в таких ошибках лучше разобраться, чтобы не допускать их в будущем. имхо, вообще лучше удалить строку (красным) в модуле дочерней формы:

Код:

unit Unit2;

interface

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

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

var
  Form2: TForm2;

implementation

{$R *.dfm}

end.

ведь для множества дочерних форм она не имеет смысла. естественно удалив форму из списка autocreate.