Проблема с функцией

[PaHaNjkee]

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

так надо и начинать с того что озвучить проблему, а не рассказывать свое кривое решение

Ну так если я озвучил проблему Вы бы написали "Нам нужен код", "Вы не просите решение, а делайте сами" и т.д.

[eval]

надо расписать в чем проблема и ваш подход в решении, а тут подскажут так или не так, и как надо

[Alter]

Так пойдет?

unit Unit1;

interface

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

// не использовал)
const
  MAX_QUESTIONS :Integer = 6;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    Button1: TButton;
    Button2: TButton;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    Grp1, Grp2 :TGroupBoxList;
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  GB :TGroupBox;
  Ed :TEdit;
  PageSel :TTabSheet;
  N, I :Integer;
begin // add
 PageSel := PageControl1.ActivePage;
 I := PageSel.Tag;
 GB := TGroupBox.Create(nil);
 GB.Parent := PageSel;
 GB.Height := 50;
 GB.Width := 100;
 GB.Top := PageSel.Tag * GB.Height + 2;
 GB.Left := 2;
 GB.Name := Format('GB%d', [I]);

 Ed := TEdit.Create(GB);
 Ed.Parent := GB;
 Ed.Height := 25;
 Ed.Width := 90;
 Ed.Top := 16;
 Ed.Left := 4;
 Ed.Name := Format('Ed%d', [I]);

 N := PageSel.TabIndex;
  case N of
 0: Grp1.Add(GB);
 1: Grp2.Add(GB);
  end;
 PageSel.Tag := PageSel.Tag + 1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  I :Integer;
begin
 Grp1.Clear;
 Grp2.Clear;
 for I := 0 to PageControl1.PageCount - 1 do
  PageControl1.Pages[I].Tag := 0;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Grp1 := TGroupBoxList.Create(True);
  Grp2 := TGroupBoxList.Create(True);
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
 FreeAndNil(Grp1);
 FreeAndNil(Grp2);
end;

end.

unit Unit2;

interface

Uses
  Contnrs, StdCtrls;

//  Параметр AOwnsObjects определяет, как будут уничтожаться объекты в случае их удаления из списка.
//  Если AOwnsObjects установлен в true, это будет происходить автоматически,
//  если false – надо будет делать все самостоятельно.
//  По умолчанию он равен true.

type TGroupBoxList = class(TObjectList)
 private
    function GetItems(Index: Integer): TGroupBox;
    procedure SetItems(Index: Integer; const Value: TGroupBox);
 public
  property Items[Index: Integer]:TGroupBox read GetItems write SetItems; default;
end;

implementation

{ TGroupBoxList }

function TGroupBoxList.GetItems(Index: Integer): TGroupBox;
begin
 Result := TGroupBox(inherited GetItem(Index));
end;

procedure TGroupBoxList.SetItems(Index: Integer; const Value: TGroupBox);
begin
 inherited SetItem(Index, Value);
end;

end.

[PaHaNjkee]

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

Так пойдет?

Спасибо


__________________
Оверквотинг (overquoting) на форуме запрещён.
Не злоупотребляйте избыточным цитированием.
Если Вы отвечаете на предыдущее сообщение, нет необходимости приводить его полностью в своем ответе.
В крайнем случае выберите нужный фрагмент и процитируйте его.
Модератор.

[Аватар]

PaHaNjkee

Вот вы можете логично объяснить - зачем такое сверхизбыточное цитирование?

[XE5]

Мне тоже любопытно, к чему цитирование кода, если можно обратиться по имени, и поблагодарить за код. Это не придирка, просто любопытно

[Stilet]

Это не придирка, просто любопытно

Потому что форумчанин привык к быстрому ответу с цитатой. Просто на нашем портале цитата не ограничена по размерам, а жаль.
Короче за это не бьют, но смотрят косо )

[Alter]

Внизу страницы есть "Отправить быстрый ответ" и тогда нет надобности цитировать вообще всё сообщение)

[XE5]

Если уж речь зашла о цитатах, к кому можно обратиться с просьбой, реализовать на форуме кнопку обратиться? Не то чтобы лень копировать ник, и обрамлять его тегом, но есть мнение, что это уменьшит количество больших цитат.