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

Question

如图所示。

图片:附备注的标签

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

Data #1段落

Data #2段落

Data #N段落

因此，为了避免滚动，我想添加标签到Nth数字。

那么，我需要哪些组件，以及应该如何改进流程？

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

您可以将TPageControl拖到表单上才能开始。