fenster.caption ist leer?

[lorenz]

Hallo alle zusammen!

Ich habe mal wieder ein kleines Problem:

Ich erstelle mit

Delphi-Quellcode:

MessageDlg('Das Dokument ' + kindfenster.Caption + ' ist nicht gespeichert. Wollen Sie vor dem Schließen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);

eine Sicherheitsabfrage vor dem Schließen eines Dokumentes, wenn es nicht gespeichert wurde.

Ich erhalte allerdings den Text

---------------------------
Bestätigung
---------------------------
Das Dokument ist nicht gespeichert. Wollen Sie vor dem Schließen speichern?
---------------------------
Ja Nein Abbrechen
---------------------------

Die Überschrift wurde im hauptfenster definiert:

Delphi-Quellcode:

procedure Thauptfenster.neuedateiExecute(Sender: TObject);
var fenster: Tkindfenster;
begin
neuzaehler:=neuzaehler+1;
fenster:=Tkindfenster.Create(Self);
fenster.Caption:= 'Unbenannt ' + inttostr(neuzaehler);
end;

Warum wird die Überschrift nicht angezeigt? :gruebel: Irgendeine Idee? :?:

Man liest sich,

Lorenz

[Luckie]

Die Fenster-Caption hat nichts mit dem Titel einer Messagebox zu tun.

Der MessageDlg zeigt ein Titel in Abhängigkeit vom Gewählten Icon an.

Nimm Meesagebox, da kannst du Icon und Titel unabhängig von einander selber bestimmen.

[lorenz]

Hallo!

Ich glaube, das war leider falsch verstanden. Es geht nicht um den Titel des MssageDlg. Sondern

Delphi-Quellcode:

kindfenster(welches das MDIChild ist).Caption:='Unbenannt 1';

gebe ich im hauptfenster(welches die MDIForm ist) an, und im kindfenster ist plötzlich kindfenster.Caption=''.

Es sollte nämlich eigentlich
---------------------------
Bestätigung
---------------------------
Das Dokument Unbenannt 1 ist nicht gespeichert. Wollen Sie vor dem Schließen speichern?
---------------------------
Ja Nein Abbrechen
---------------------------
heißen und nicht
---------------------------
Bestätigung
---------------------------
Das Dokument ist nicht gespeichert. Wollen Sie vor dem Schließen speichern?
---------------------------
Ja Nein Abbrechen
---------------------------

Warum ist plötzlich kindfenster.Caption='' :?:

Man liest sich,

Lorenz

[Christian Seehase]

Moin Lorenz,

poste doch mal ein wenig Code von dem Code vor der MessageDlg Zeile, denn da muss irgendwo das Problem liegen.

[Markus K.]

Hallo lorenz,
ich bin mir nicht sicher aber versuche es mal mit fenster.caption. Definiere dazu aber die Variable fenster als Public und nicht als Private.
Ich gehe mal davon aus, dass Tkindfenster eine Form ist. Vielleicht hast du die Caption dieser Form am Anfang leer gelassen, denn du setzt die Caption ja erst nachdem du die Form erstellt hast. Wenn die Form kindfenster eine leere Caption hat kann diese auch nur ausgegeben werden. Denn du änderst ja nicht die Caption der Form , sondern die Caption der Variablen fenster(welche eine Form von Tkindfenster ist).
Bitte um Korrektur wenn ich einiges vertauscht habe.

Tschüß Markus

[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

[Robert_G]

Mit MDI kann man sich schnell verhaspeln...
Steht die Abfrage im CloseQuery / OnClose Handler der Klasse des MDIChilds ?
Wenn ja müsste es doch mit Caption oder self.Caption gehen.
Wenn der Code in einem anderen Form ausgeführt wird, dann kannst du es so machen:

Delphi-Quellcode:

  DeinMDIForm.ActiveMDIChild.Caption
  // dürfte IMHO das gleiche sein wie
  DeinMDIForm.MDIChildren[0].Caption

Edit: Hatte ich wohl zu lange nicht aktualisiert. Stimmt aber trotzdem...
Du benutzt KindFenster um auf dein MDIChild zu zeigen, da MDIChildren generell dynamisch erzeugt werden, kannst du nicht davon ausgehen, dass das aktuelle Form auch wirklich KindFenster heißt (die können ja nicht alle gleich heißen ! ).
Mit self.Caption oder Caption wird es funktionieren.
Edit2: Tippfehler...

[Markus K.]

Wieso kannst du die Variable fenster nicht in der Unit verwenden? Wenn du sie als eine Public Variable definierst, kannst du sie in allen Units verwenden.
PS. Wie gesagt setzte die Variable fenster als Public und lese von ihr die Caption aus. Das müsste so gehen, hatte ein ähnliches Problem :zwinker:

Tschüß Markus

[lorenz]

Zitat:

Zitat von Robert_G

Steht die Abfrage im CloseQuery / OnClose Handler der Klasse des MDIChilds ?
Wenn ja müsste es doch mit Caption oder self.Caption gehen.

Natürlich steht sie dort (procedure FormClose(Sender: TObject; var Action: TCloseAction); und self.Caption funktioniert!! :-D :-D

Vielen Dank!

@markus K.: Ich verwende die Variable "fenster" für jedes neue MDIChild. Deshalb kann ich damit nicht auf das gerade aktuelle MDIChild zugreifen.

MfG

Lorenz