hmm, ich dahcte ich hätte alles richtig nunja, hier viele angaben.
1.
Delphi-Quellcode:
private
Files: TStrings;
function CanFileClose(index: Integer): Boolean;
procedure DoFileOpen(fn: TFileName);
[b] procedure DoFileSaveAs(fn: [/b]TFileName);
In der Action List hab ich FileSaveAsAction
2. Bei der On Accept hab ich folgendes:
Delphi-Quellcode:
procedure TForm1.FileSaveAsActionAccept(Sender: TObject);
begin
with Sender as TFileSaveAs do
DoFileSaveAs(Dialog.FileName);
end;
3. Hab ich noch DoFileSaveAs
Delphi-Quellcode:
procedure TForm1.DoFileSaveAs(fn: TFileName);
var
se: TSynEdit;
i: Integer;
begin
with PageControl1 do
i := ActivePageIndex;
se := TSynEdit(Files.Objects[i]);
se.Lines.SaveToFile(fn);
Files[i] := fn;
if se.Modified then
se.Modified := False;
end;
4. Hab ich oben noch
Delphi-Quellcode:
resourcestring
S_DATALOSS
= 'Text wurde verändert und noch nicht gespeichert.'#13
+ 'Alle Änderungen gehen verloren!'
;
Genügt das ? Wenn was fehlt poste ich umgehend
