Delphi - Как добавить вкладки в TMEMO?

Question

Как показано здесь.

рис: вкладки с памяткой

В настоящее время мой TMEMO отображает кучу разных данных, например:

Данные № 1 Параграфы

Данные № 2 Абзацы

Данные #N Абзацы

Поэтому, чтобы избежать прокрутки, я хочу добавить вкладки к N-му номеру.

Итак, какие компоненты мне нужны и как мне начать процесс?

Answer 1

Вам нужно использовать комбинацию TMemo и TTabControl.

Answer 2

Не знаю, как вы получаете свои абзацы, но вам придется перебирать их, создавая TabSheet и Memo для каждого.

procedure TfrmMemo.CreateTabsWithMemo;
var
  pgControl: TPageControl;
  TabSheet: TTabSheet;
  Memo: TMemo;
begin
  pgControl := TPageControl.Create(self);
  pgControl.Parent := Self;
  pgControl.Align := alClient;

  //Do this for each paragraph
  TabSheet := TTabSheet.Create(pgControl);
  TabSheet.PageControl := pgControl;
  TabSheet.Caption := Format('Tab %d', [pgControl.PageCount]);

  Memo := TMemo.Create(TabSheet);
  Memo.Parent := TabSheet;
  Memo.Align := alClient;

  Memo.Lines.Text := 'Your Paragraph here'
  ///
end;

Answer 3

Используйте TPageControl и TTabSheet. Поместите компонент TMemo на каждый лист TTabSheet.

Вы можете перетащить TPageControl на форму, чтобы начать.