Форма внути формы, или как создать предпросмотр скинов AC?

[Человек_Борща]

Всем доброго времени суток!

Интересует реализация препросмотра SelectSkinDialog'а а компонентах AlphaControls.

Именно сам предпросмотр.
Я уже спрашивал на оф. сайте, и получил ответ
Проблема с реализацией в Run-time.

У меня есть TGroupBox внути которого я хочу создать форму(TPreviewForm) предпросмотра.
Форма предпросмотра находится в Avaliable Forms(не создаётся самостоятельно).

Вот начал писать функцию препросмотра. Завал на выводе формы(TPreviewForm) в SkinPreviewPanel; // (TGroupBox)

procedure CreatePreview(SkinName:AnsiString);
var
  PForm:TPreviewForm;
begin
  //Создаём форму
  PForm:=TPreviewForm.Create(nil);
  //Ставим GroupBox родителем формы
  PForm.Parent:=MainForm.SkinPreviewPanel; 
end;

Но на MainForm.SkinPreviewPanel; ничего не отображается.
Почему?

[Человек_Борща]

Разве никто никогда не создавал форму внутри другой формы?

[dmitriegorovih]

Разве никто никогда не создавал форму внутри другой формы?

Конечно создавали более того я подскажу как сделать то что вам надо
Смотрите далее создаёте обычную форму
Потом открываете код проекта пишите так

program Project1;

uses
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  form2.Parent:=form1;
  form2.Show;
  Application.Run;
end.

На form2 кидаете sSkinManager1 и sSkinProvider1
в свойстве SkinningRules компонента sSkinManager1 есть ещё одно свойство srStdForms там ставите false и дальше любуемся какая у нас красочная внутренняя форма.

[eduard93]

Позицию создаваемой формы проверьте. Должно быть (0, 0).

[Человек_Борща]

Благодарен=) Тема решена=)

Добавлено

Те кто работает с АС помогите=) Я в тупике=)
Вот что получилось(в прилепе сырц):

procedure CreatePreview(aSkinName:string);
begin
  PreviewForm.PreviewSkinMgr.SkinDirectory:=MainForm.SkinsDirEdit.Text;
  PreviewForm.PreviewSkinMgr.SkinName:=aSkinName;
  PreviewForm.PreviewSkinMgr.Active:=True;
end;

procedure LoadSkinsFromDir(aDir: AnsiString);
var
  SR: TSearchRec;
begin
  if FindFirst(aDir + '\*.asz', faAnyFile and not faDirectory, sr) = 0 then
  begin
    repeat
    MainForm.SkinsBox.Items.Add(ExtractFileName(sr.Name));
    until FindNext(sr) <> 0;
    FindClose(sr);
  end;
end;

procedure TMainForm.BrowseSkinsDirBtnClick(Sender: TObject);
begin
  if PathDlg.Execute then
  begin
    SkinsDirEdit.Text := PathDlg.Path;
    LoadSkinsFromDir(SkinsDirEdit.Text);
  end;
end;


procedure TMainForm.SkinsBoxChange(Sender: TObject);
var
  i:Integer;
begin
  i:=SkinsBox.ItemIndex;
  if i <> -1 then
  begin
    CreatePreview(SkinsBox.Items[i]);
  end;
end;

трабл в том что выбранный скин не применяется к форме.

___ADDED__
Проблема была в расширении файлов