Создал MDI приложение, окна переключаются за счет закладок динамически создаваемых в PageControl. Собственно не получается сделать сохранение файла и сохранить как.
В делфи VCL кажись, и мне кажется что разработчики добавили туда номер текущей вкладки, а сами вкладки - это массив панелей, имея это что тебе мешает сохранить? @noTformaT
Собственно говоря решил пойти другим путем (теперь это не MDI). Добавил на форму PageControl и SynEdit. Добавил пункты меню создать и открыть. При нажатии на "создать", создается динамически страница в PageControl со встроенным в него SynEdit. При нажатии "открыть" все тоже самое практически, только соответственно в Созданный SynEdit загружается текст. Но все так же не могу дойти своим умом как сделать сохранить и сохранить как для активного SynEdit. Вот код:
procedure TForm1.CreateNewEditor; //Процедура создания PageControl и SynEdit var Page: TRzTabSheet; E: TSynEdit; begin Page := TRzTabSheet.Create(Page); Page.PageControl:=PageControl1; E:=TSynEdit.Create(Page); with E do begin Parent := Page; Align:=alClient; Gutter.ShowLineNumbers:=True; Gutter.Font.Size:=10; end; PageControl1.ActivePage:=Page; Page.Caption:='Файл.lua'; end;
procedure TForm1.OpenFile; //Процедура открытия файла var Page : TRzTabSheet; E : TSynEdit; begin if OpenDialog1.Execute then begin Page := TRzTabSheet.Create(self); Page.Caption:=ExtractFileName(OpenDialog1.FileName); Page.PageControl:=PageControl1; E := TSynEdit.Create(self); e.Parent:=Page; E.Align:=alClient; E.Lines.LoadFromFile(OpenDialog1.FileName); PageControl1.ActivePage:=Page; end;
end;
procedure TForm1.N2Click(Sender: TObject); //Пункт меню Создать begin CreateNewEditor; end;
procedure TForm1.N3Click(Sender: TObject); //Пункт меню Открыть begin OpenFile; end;
end.
Сообщение отредактировал slagusev - Вторник, 24 Мая 2011, 18:32
@noTformaT
