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

Question

如图所示。

图片：带有备忘录的标签

目前，我的 TMEMO 显示一堆不同的数据，如下所示：

数据#1 段落

数据#2 段落

数据#N 段

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

那么我需要哪些组件以及我应该如何启动该过程？

Answer 1

您需要结合使用 TMemo 和 TTabControl。

Answer 2

不知道如何获得段落，但您必须遍历它们，为每个段落创建一个 TabSheet 和一个备忘录。

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。在每个 TTabSheet 上放置一个 TMemo 组件。

您可以将 TPageControl 拖到窗体上以开始使用。