Изменение размера динамически созданного StringGrid на динамически созданной форме

[loom12]

Здравствуйте!

Подскажите пожалуйста, как сделать изменение размера динамически созданных StringGrid на динамически созданных формах при изменении размера формы мышкой.

Вот код как я создаю объекты:

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
     procedure NewFormResize(Sender: TObject); //!!! обработчик события изменения размера окна
  
  private
    { Private declarations }
  
  public
    { Public declarations }
  end;

var
NewForm:array of TForm;
NewStringGrid:array of TStringGrid;

implementation

{$R *.dfm}
//-----------как определить какая форма изменилась?----

procedure TForm1.NewFormResize(Sender: TObject);
var i,n:integer;
begin
 ??????????что-то типа этого????????????????????????
//   for n:= 0 to NewForm[0].ComponentCount-1 do  //find StringGrid  
//     begin
//(NewForm[0].Components[n] as TStringGrid).Width:=NewForm[0].Width-20; 
//
//     end;

end;

//------Обработчик события измен.размера для Form1-------------
procedure TForm1.FormResize(Sender: TObject);
begin
  Form1.StringGrid1.Height:=(Form1.Height-((horiz+1)*35))-100;
end;

//----------------------------------------------------------------
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
   Create_ObjNewForm; // создаю формы
  for i:=0 to 4 do
    Create_ObjNewStringGrid(i,4);

end;

//--------------Создание новых форм----------------------------
procedure Create_ObjNewForm;
var i:Integer;
begin
  SetLength(NewForm,4);  //4 - новые формы
  for i:= 1 to 4 do
  begin

   NewForm[i]:= TForm.Create(Form1);
   NewForm[i].Parent:=nil;
   NewForm[i].Tag:=i;

  
   NewForm[i].Caption:='NewForm'+IntToStr(i);
   NewForm[i].Width:=630;
   NewForm[i].Height:=450;
   NewForm[i].OnResize:=Form1.NewFormResize;
   NewForm[i].Show;
  end;


end;

//-------Создание StringGrid-----------------------------------------

procedure Сreate_ObjNewStringGrid(index_newform:Integer;
CountPanelArea_countNewForm:Integer);
var i,n:Integer;
begin

  SetLength(NewStringGrid,CountPanelArea_countNewForm); 


   NewStringGrid[index_newform]:= TStringGrid.Create(NewForm[index_newform]);
   NewStringGrid[index_newform].Parent:=NewForm[index_newform];
   NewStringGrid[index_newform].Tag:=index_newform;

  // NewForm[index_newform].Width:=count_panel_row*135;

   NewStringGrid[i].Width:=630;
   NewStringGrid[i].Height:=450;
   NewStringGrid[index_newform].Enabled:=True;
   NewStringGrid[index_newform].Font.Style:=[fsBold];
   NewStringGrid[index_newform].Font.Size:=10;
    NewStringGrid[index_newform].Show;
end;
//---------------------------------------------------------------

[Stilet]

Допиши:

StringGrid1.Anchors:=[akTop,akLeft,akRight,akBottom];

Куданить в OnCreate формы. Должно хватить.

[loom12]

Спасибо за помощь!

Добавил в
procedure Create_ObjNewStringGrid..

NewStringGrid[index_newform].Anchors:=[akTop,akLeft,akRight,akBottom];
Работает