Delphi вкладки

[northener]

for k:=0 to PageControl1.Pages[i].ControlCount-1 do
  if PageControl1.Pages[i].Controls[k] is TMemo 
  then arr[i]:=TMemo(PageControl1.Pages[i].Controls[k]).Text;

[BDA]

Еще вот так можно (подсмотрел в интернете):

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i := 0 to PageControl1.PageCount - 2 do
    showmessage(TMemo(PageControl1.Pages[i].Tag).Text);
end;

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.Tag := integer(Memo);
    TabSheet.PageControl := p;
    TabSheet.PageIndex := p.PageCount - 2;
    p.TabIndex := p.PageCount - 2;
  end;
end;

[bulldog5293]

А ничего страшного что вопрос в теме отличается от заголовка и 2 вопроса разные?

[bilibian]

А как закрыть вкладку по двойному клику по ней?


UPD

Справился своими силами!

procedure TForm1.PageControl1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  if (ssDouble in Shift) and (Button = mbLeft) then
    begin
      if (PageControl1.PageCount-1) > 1 then
        begin
          PageControl1.ActivePage.Free;
          PageControl1.TabIndex:= PageControl1.PageCount - 2;
        end;
    end;
end;

[eval]

а позырить можно?

[bilibian]

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

а позырить можно?

Да, конечно! Выше внес поправки в сообщение!

[bulldog5293]

bilibian не знаю как до тебя модераторы не добрались, но бан ты от них точно скоро получишь 1 тема=1 вопрос, а не то как у тебя 1 тема и понеслось

А как закрыть вкладку по двойному клику по ней?

Вообще для таких целей есть google, yandex и т.п.
http://yandex.ru/yandsearch?clid=958...D0%B9?&lr=1091

[BDA]

bulldog5293, насчет поиска с помощью гугла/яндекса согласен (быстрее получится). Насчет бана не согласен, лучше уж продолжать обсуждение одной программы в одной теме, чем на каждый чих по теме.

[bulldog5293]

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

[-=Virus=-]

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

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

Со временем научиться