Delphi - 如何在TMEMO中添加标签？

Question

如此处所示。

pic: tabs with memo

目前，我的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拖放到表单上以开始使用。