Как это можно организовать в отдельную процедуру?

[monrus]

При нажатии на кнопку создается PageControl c TabSheet'ом. А как это организовать в отдельную процедуру?
procedure TForm1.ToolButton1Click(Sender: TObject);
begin

        with TTabSheet.Create(Self) do
    begin
        PageControl := PageControl1;
        Caption :=IntToStr(PageIndex+1);
        PageControl1.SelectNextPage(True);

      with TRichEdit.Create(Self) do
     begin
     Parent := PageControl1.ActivePage;
     Align := alClient;
    Lines.Clear;
     end;
   end;
 end;

И еще. Если создавать контролы динамически, не при проектировании вес файла от этого уменьшится?

[Finch]

И еще. Если создавать контролы динамически, не при проектировании вес файла от этого уменьшится?

Не должен уменьшится. Какая разница, что ты манипулируеш с компонентой или Компилятор это делает за тебя.

[Zalk]

Первого вопроса не понял.. Что "это"?
Размер файла определенно должен уменьшиться.

[Oldy]

Размер файла определенно должен уменьшиться

Если:

Код:

Var
  RichEdit : TRichEdit;

Begin
  RichEdit := TRichEdit.Create(Self);
  ...
  ...
  RichEdit.Free; 
end;

То почему он должен уменьшаться или увеличиваться?

[Zalk]

Ну это если так, то да. Для одного компонента это не почувствуется.
НО для нескольких:

Код:

procedure TForm1.FormCreate(Sender: TObject);
var b:TButton;
    i,y:integer;
begin
  y:=8;
  for i:=1 to 10 do begin
    b:=TButton.Create(self);
    with b do begin
      Caption:=inttostr(i);
      Width:=75;
      Height:=25;
      Left:=8;
      top:=y;
      y:=y+30;
      Visible:=true;
    end;
    InsertControl(b);
  end;
end;

375296 байт весит проект с таким кодом. 375808 - просто с 10-ю кнопками на форме. Выигрыш, конечно, небольшой. Но,я думаю, на более "тяжелых" компонентах можно неплохо "навариться"!

[Finch]

Zalk и в последствии приобрести кучу головных радостей, ввиде правки всего проекта, только из-за одного изменения.

[monrus]

ответте пожалуйста, как организовать поцедуру. Хочу эту процу вставлять в разные события

[RomCom]

Код:

procedure TForm1.NewTab;
var tsnew:TTabSheet;
begin  tsnew:=TTabSheet.Create(self);
 with tsnew do
 begin
  PageControl := PageControl1;
  Caption :=IntToStr(PageIndex+1);
  PageControl1.ActivePage:=tsnew;

  with TRichEdit.Create(Self) do
  begin
   Parent := tsnew;
   Align := alClient;
   Lines.Clear;
  end;
 end;
end;

......


procedure TForm1.Button1Click(Sender: TObject);
begin
 NewTab;
end;

[monrus]

RomCom, спасибо!

[Zalk]

Zalk и в последствии приобрести кучу головных радостей, ввиде правки всего проекта, только из-за одного изменения.

Ну это да!