So habe nun Marabus "Geschenk" angeguckt und ein wenig kapiert, Dateien in neuen Tabs öffnen klappt wunderbar, doch wie siehts mit abspeichern aus, - nicht gut
Hier habe ich mal den Source:
Deklaration:
Delphi-Quellcode:
procedure FileSaveAsActionAccept(Sender: TObject);
private
Files: TStrings;
procedure DoFileSaveAs(fn: TFileName);
Code:
Delphi-Quellcode:
procedure TDemoForm.FileSaveAsActionAccept(Sender: TObject);
begin
with Sender as TFileSaveAs do
DoFileSaveAs(FileSaveAsAction.Dialog.FileName);
end;
procedure TDemoForm.DoFileSaveAs(fn: TFileName);
var
se: TSynEdit;
i: Integer;
begin
with PageControl do
i := ActivePageIndex;
se := TSynEdit(Files.Objects[i]);
se.Lines.SaveToFile(fn);
Files[i] := fn;
if se.Modified then
se.Modified := False;
end;
Wenn ich Datei abspeichere (beim SaveDialog) kommt ne Fehlermeldung...
Wenn noch was fehlt, bescheid sagen. Wird dann umgehend gepostet
EDIT: Sry für Doppelpost
MfG XPLOSIV