Динамическое создание вкладок в PageControl - Delphi

@alexandr017 · Регистрация: 09.12.2011

Я пишу html-редактор..использовал конпонент PageControl..на котором 2 вкладки (визуальный режим и редактирование кода)..тоесь на первой вкладке был компонент WebBrowser, а на второй SynEdit....Мне хотелось бы сделать чтобы одновременно можно было работать с несколькими файлами..тоесть при нажатии кнопки "открыть" рядом открывался новый файл при этом не закрывая сущеструющий..(то есть такая же система как допустим в фотошопе)...Проблема заключается в том что при открытии файла нужно как-то динамически создавать вкладку, на которой нужно одновременно отображать и "режим редактирования кода" и "визуадьный режим"

То есть получается примерно такая ситуация: На самой форме есть компонент PageControl, который отвечает за количество одновременно открытых файлов...при этом на кажной вкладке этого компонента есть ещё один компонент PageControl, на которым 2 вкладки. Одна для визуального редактирования, вторая для редактирования кода....

Вот что у меня вышло..однако здесь просто окрывается файл и просматривается его код..то есть без визуального редактирования..

Delphi

procedure TForm1.N3Click(Sender: TObject);
var
  NewTab: TTabSheet;
  NewSynEdit: TSynEdit;
begin
if OpenDialog1.Execute then begin
 
  // создаем новый TabSheet
  NewTab := TTabSheet.Create(PageControl1);
  with NewTab do
  begin
    PageControl := PageControl1;
    Caption := 'Закладка ' + IntToStr(PageControl1.PageCount);
  end;
  // создаем новый SynEdit
  NewSynEdit := TSynEdit.Create(NewTab);
  with NewSynEdit do
  begin
  Highlighter:=SynHTMLSyn1;
    Parent := NewTab;
    Align := alClient;
    Clear;
  end;
  PageControl1.ActivePageIndex := PageControl1.PageCount - 1;
    (PageControl1.ActivePage.Components[0] as TSynEdit).Lines.LoadFromFile(OpenDialog1.FileName);
end;
end;

Возможно это можно сделать как-то проще без всяких PageControl...если кто знает..подскажите)

@volvo · 23.09.2013, 16:16

Для Лазаруса - задавай вопрос здесь: http://www.cyberforum.ru/lazarus/ Желательно - с фрагментами кода (как именно создается форма, как она показывается и как на ней создаются гриды)...

@northener · 23.09.2013, 19:46

Сообщение от Бельчонок777

Там при повторном входе в форму (после того, как ее до этого закрыли) идет сообщение, что StrigGrid уже есть

В Дельфи то же самое.

@Бельчонок777 · 24.09.2013, 09:33

Сообщение от northener

В Дельфи то же самое.

Нет. Прикладываю проект дельфевый, он работает нормально.

@volvo Супер-модератор 25069 / 16749 / 5263 Регистрация: 22.10.2011 Сообщений: 29,632 Записей в блоге: 5
	23.09.2013, 16:16	#16
	Для Лазаруса - задавай вопрос здесь: http://www.cyberforum.ru/lazarus/ Желательно - с фрагментами кода (как именно создается форма, как она показывается и как на ней создаются гриды)... 1

@northener пофигист широкого профиля 3229 / 2281 / 491 Регистрация: 15.07.2013 Сообщений: 13,390
	23.09.2013, 19:46	#17
	Сообщение от Бельчонок777 Там при повторном входе в форму (после того, как ее до этого закрыли) идет сообщение, что StrigGrid уже есть В Дельфи то же самое. 0

	24.09.2013, 09:33

Опции темы

Delphi для начинающих

Динамическое создание вкладок в PageControl - Delphi