![]() |
fenster.caption ist leer?
Hallo alle zusammen!
Ich habe mal wieder ein kleines Problem: Ich erstelle mit
Delphi-Quellcode:
eine Sicherheitsabfrage vor dem Schließen eines Dokumentes, wenn es nicht gespeichert wurde.
MessageDlg('Das Dokument ' + kindfenster.Caption + ' ist nicht gespeichert. Wollen Sie vor dem Schließen speichern?', mtConfirmation, [mbYes, mbNo, mbCancel], 0);
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:
Warum wird die Überschrift nicht angezeigt? :gruebel: Irgendeine Idee? :?:
procedure Thauptfenster.neuedateiExecute(Sender: TObject);
var fenster: Tkindfenster; begin neuzaehler:=neuzaehler+1; fenster:=Tkindfenster.Create(Self); fenster.Caption:= 'Unbenannt ' + inttostr(neuzaehler); end; Man liest sich, Lorenz |
Re: fenster.caption ist leer?
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. |
Re: fenster.caption ist leer?
Hallo!
Ich glaube, das war leider falsch verstanden. Es geht nicht um den Titel des MssageDlg. Sondern
Delphi-Quellcode:
gebe ich im hauptfenster(welches die MDIForm ist) an, und im kindfenster ist plötzlich kindfenster.Caption=''.
kindfenster(welches das MDIChild ist).Caption:='Unbenannt 1';
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 |
Re: fenster.caption ist leer?
Moin Lorenz,
poste doch mal ein wenig Code von dem Code vor der MessageDlg Zeile, denn da muss irgendwo das Problem liegen. |
Re: fenster.caption ist leer?
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 |
Re: fenster.caption ist leer?
Also, der Code der Unit kindeinheit lautet:
Delphi-Quellcode:
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.
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. Vielen Dank für die bisherigen Antworten. Man liest sich, Lorenz |
Re: fenster.caption ist leer?
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:
Edit: Hatte ich wohl zu lange nicht aktualisiert. Stimmt aber trotzdem...
DeinMDIForm.ActiveMDIChild.Caption
// dürfte IMHO das gleiche sein wie DeinMDIForm.MDIChildren[0].Caption 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... |
Re: fenster.caption ist leer?
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 |
Re: fenster.caption ist leer?
Zitat:
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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:34 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz