sPageControl1

[aesoem]

Приветик как создать в sPageControl1 новую страницу и разместить там мемо1 во время выполнения программы?

[mutabor]

Чтобы ответить на ваш вопрос, нужно открыть справку и посмотреть методы и свойства PageControl. У вас в Дельфи нет справки? Если проблема с английским, в сети куча справочных ресурсов (и словарей).

[_Dmitry]

Ну, и на нашем форуме только что тема рассматривалась. Есть пример с PageControl.
http://www.programmersforum.ru/showthread.php?t=16521

[aesoem]

я уже видел, не получилось

[_Dmitry]

Покажите что не получилось, поправим...

[aesoem]

- затем создания на ней компонента Pagecontrol

а мне надо только новую страницу!!! сам Pagecontrol1 уже есть!!!

[Stilet]

Ну дык:

var p:TTabSheet;
begin
p:=TTabSheet.Create(PageControl1);
p.Visible:=true;
p.PageControl:=PageControl1;
end;

[_Dmitry]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, Grids, ComCtrls;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    TabSheet: array[1..5] of TTabSheet; //это массив вкладок
  end;

var
  Form1: TForm1;

  implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  for i:=1 to 5 do
    begin
      TabSheet[i]:=TTabSheet.Create(self);
      TabSheet[i].Caption:='Вкладка '+IntToStr(i);
      TabSheet[i].PageControl:=PageControl1;
    end;
  PageControl1.ActivePage:=TabSheet[2];
end;

end.

[aesoem]

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

Ну дык:

var p:TTabSheet;
begin
p:=TTabSheet.Create(PageControl1);
p.Visible:=true;
p.PageControl:=PageControl1;
end;

во с одним разобрался, спасибо, а как там Memo1 разместить

[Stilet]

Ну как как... Свойству Parent которое у Мемо присвоить созданную страницу.