fenster.caption ist leer?

[lorenz]

Also, der Code der Unit kindeinheit lautet:

Delphi-Quellcode:

unit kindeinheit;

interface

uses
{...}
type
  Tkindfenster = class(TForm)
    zustandsleiste: TStatusBar;
    SynEdit: TSynEdit;
{...}
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure SynEditChange(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  kindfenster: Tkindfenster;


implementation

uses haupteinheit;

{$R *.dfm}

procedure Tkindfenster.FormClose(Sender: TObject;
  var Action: TCloseAction);
  var m: Word;
begin
if (zustandsleiste.Panels[2].Text='Geändert') then
begin
m:=MessageDlg('Das Dokument ' + kindfenster.Caption + ' ist nicht gespeichert. Wollen Sie vor dem Schließen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
if(m=mrCancel) then
begin
action:=caNone;
Exit;
end;
if(m=mrNo) then
begin
action:=caFree;
Exit;
end;
if(m=mrYes) then
begin
hauptfenster.speichernExecute(Sender);
action:=caFree;
Exit;
end;
end
else begin
action:=caFree;
end;
end;

procedure Tkindfenster.SynEditChange(Sender: TObject);
begin
  zustandsleiste.Panels[3].Text:=inttostr(SynEdit.CaretY)+': '+inttostr(SynEdit.CaretX);
  zustandsleiste.Panels[2].Text:='Geändert';
end;



end.

Die Variable fenster wird in der haupteinheit dazu benutzt, dem Fenster, das gerade erstellt wurde, einige Eigenschaften zuzuweisen. Sie wird aber unverändert für jedes neue MDIChild benutzt, kann also hier nicht verwendet werden.

Vielen Dank für die bisherigen Antworten.

Man liest sich,

Lorenz