Delphi вкладки

[bilibian]

Привет!

Как реализовать, что то вроде этого?

[eval]

ну так а что тут сложного?

[bilibian]

Сообщение от eval

ну так а что тут сложного?

Нет ничего сложного сделать готовые вкладки на стороне программирования с помощью PageControl, а вот как сделать так, чтобы можно было добавлять вкладки на стороне пользователя программы.

[BDA]

С TabControl:

procedure TForm1.TabControl1Change(Sender: TObject);
var
  p: TTabControl;
begin
  p := Sender as TTabControl;
  if p.TabIndex = p.Tabs.Count - 1 then
  begin
    p.Tabs.Insert(p.Tabs.Count - 1, 'new');
    p.TabIndex := p.Tabs.Count - 2;
  end;
end;

Теперь по клику на последней вкладке будет добавляться еще одна вкладка.

[eval]

какие стороны пользователя? в компьютере все делает программный код, который пишет программист, никаких других сторон нет

[bilibian]

BDA, спасибо.

[bilibian]

Пытался воткнуть в каждую созданную таким образом вкладку компонент мемо, причем в каждой вкладке свой уникальный мемо, но ничего не выходит, подскажите?

[northener]

Сообщение от bilibian

Пытался воткнуть в каждую созданную таким образом вкладку компонент мемо, причем в каждой вкладке свой уникальный мемо, но ничего не выходит, подскажите?

Замени TabControl на PageControl. В нем это сделать проще и понятнее.

[BDA]

procedure TForm1.PageControl1Change(Sender: TObject);
var
  p: TPageControl;
  TabSheet: TTabSheet;
  Memo: TMemo;
begin
  p := Sender as TPageControl;
  if p.TabIndex = p.PageCount - 1 then
  begin
    TabSheet := TTabSheet.Create(p);
    TabSheet.caption := 'New Tab Sheet';
    Memo := TMemo.Create(self);
    Memo.Align := alClient;
    Memo.Text := 'hello';
    Memo.Parent := TabSheet;
    TabSheet.PageControl := p;
    TabSheet.PageIndex := p.PageCount - 2;
    p.TabIndex := p.PageCount - 2;
  end;
end;

[bilibian]

BDA, Спасибо.

А как извлечь текст из этих мемо?

procedure TForm1.Button1Click(Sender: TObject);
  var
    i:Integer;
    arr:array of string;
begin
  SetLength(arr,3);

  for i := 0 to PageControl1.PageCount -1 do
    begin
      arr[i]:=PageControl1.Pages[i].не понятно на что ссылаться;
    end;

end;