delphi - Delphi - TMEMO にタブを追加するには?

Question

ここに示すように。

pic: メモ付きタブ

現在、私の 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 をフォームにドラッグして開始できます。