Создание нескольких форм в одной

[Лукманов Александр]

Где то на форуме нашёл код для создания перемещаемой картинки (с помощью внутренней формы).

i: cardinal;
f: TForm;

  f:=TForm.Create(form1);
  f.Parent:=Form1;
  f.Show;
  
  i:=GetWindowLong(f.Handle,GWL_STYLE);
  i:=i and not WS_CAPTION;
  if SetWindowLong(f.Handle,GWL_STYLE,i)=0 then RaiseLastWin32Error;
  Image1.Parent:=f;
  Image1.Align:=alClient;
    end;

Всё работает. Но возник вопрос как сделать так, чтобы создавалось нужное количество таких форм. Загнал код в цикл. В итоге появились друг на друге формы с ненужным стилем (кнопки, шапка) и передвигается только верхняя форма. Другие формы активными не становятся. Подскажите пожалуйста как сделать задуманное.

[andrey4623]

Используй TFrame. Есть на палитре компонентов.