Also mein Problem ensteht bei folgendem Versuch zu Speichern...
Ich öffne mein Texteditor und schreibe....kann es abwer nicht Speichern!
Ich muss erst einmal auf Neu klicken damit ich es Speichern kann.
Ich geb euch mal ein Auszug von dem Code...
Delphi-Quellcode:
procedure TForm1.DateiNeuExecute(Sender: TObject);
begin
RichEdit1.Clear;
FileName := 'NoName.txt';
StatusBar1.Panels[0].Text := FileName;
end;
procedure TForm1.FileOpen1Accept(Sender: TObject);
begin
RichEdit1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);
FileName := FileOpen1.Dialog.FileName;
StatusBar1.Panels[0].Text := FileName;
end;
procedure TForm1.DateiSpeichernExecute(Sender: TObject);
begin
If (FileName = 'NoName.txt') then
FileSaveAs1.Execute
else
RichEdit1.Lines.SaveToFile(FileName);
end;
Das hat doch bestimmt was mit dem StatusPanel zu tun oder nicht?
Denn erst beim Neu anklicken steht auch was in der Statusleiste!??!
Vorher nicht.