Delphi-如何在TMEMO中添加选项卡？

如图所示

目前，我的TMEMO显示了大量不同的数据，如下所示：

数据#1 段落

数据#2 段落

数据#N 段落

所以为了避免滚动，我想在第n个数字中添加标签

---

那么，我需要哪些组件以及如何启动流程？

您需要结合使用TMemo和TTabControl。

不知道如何获得段落，但您必须反复阅读，为每个段落创建一个选项卡和一个备忘录

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;

---

使用TPageControl和TTabSheet。将TMemo组件放置在每个TTabSheet上

---

您可以将TPageControl拖到表单上开始操作。

在许多情况下，最好使用一个选项卡控件和一个编辑器。但这样，您必须在每次选项卡更改时清除并写入文本。如果您需要超过5个选项卡，则应重新考虑这种GUI类型。也许有更好的选择。也许你可以在备忘录的左边有一个列表框，每个段落有一个项目？滚动浏览比滚动浏览多个选项卡更好。