Delphi - How to add tabs in TMEMO?

Question

As shown like here.

pic: tabs with memo

Currently, my TMEMO displays bunch of different data, like this:

Data #1 Paragraphs

Data #2 Paragraphs

Data #N Paragraphs

So to avoid scrolling, I want to add tabs to the Nth number.

So what components do I need and how should I intiate the process?

If you need more than about 5 tabs, you should reconsider this type of GUI. There might be better options. Maybe you can have a listbox to the left of the memo, with an item for each paragraph? It'll be nicer to scroll through that than to scroll through many tabs. — Wouter van Nifterick, Jan 06 '14 at 21:57

score 2 · Answer 1 · answered Jan 06 '14 at 20:35

2

you need to use a combination of a TMemo and TTabControl.

answered Jan 06 '14 at 20:35

Z .

12,657
1
31
56

score 0 · Answer 2 · answered Jan 06 '14 at 20:53

Do not know how you get your paragraphs but you'll have to iterate through them, creating a TabSheet and a Memo for each.

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;

In many cases it is better to use a tab control and a *single* editor. — Andreas Rejbrand, Jan 06 '14 at 21:12
but this way you have to clean and write text on every tab change — Agustin Seifert, Jan 06 '14 at 21:13

score 0 · Answer 3 · answered Jan 08 '14 at 05:00

0

Use TPageControl and TTabSheet. Place a TMemo component on each TTabSheet.

You can drage the TPageControl onto the form to get started.

answered Jan 08 '14 at 05:00

Danny Rancher

1,923
3
24
43

Delphi - How to add tabs in TMEMO?

3 Answers3