[Crazy Noise]

saurn, скажи те вот а чтобы оное обвести (рамка) придется бевел создавать »

Вот на скорую руку накидал:

Код:

[*Code]
var
  GroupBox_DirPage: TNewGroupBox;

procedure InitializeWizard();
begin
    GroupBox_DirPage := TNewGroupBox.Create(WizardForm);
    GroupBox_DirPage.Parent := WizardForm.SelectDirPage;
    GroupBox_DirPage.Left := ScaleX(0);
    GroupBox_DirPage.Top := ScaleY(0);
    GroupBox_DirPage.Width := ScaleX(416);
    GroupBox_DirPage. Height := ScaleY(140);
    GroupBox_DirPage.Caption := 'Папка установки';

    WizardForm.SelectDirBitmapImage.Left := ScaleX(10);
    WizardForm.SelectDirBitmapImage.Top := ScaleY(20);
    WizardForm.SelectDirBitmapImage.Parent := GroupBox_DirPage;

    WizardForm.SelectDirLabel.Left := ScaleX(54);
    WizardForm.SelectDirLabel.Top := ScaleY(20);
    WizardForm.SelectDirLabel.Width := ScaleX(300);
    WizardForm.SelectDirLabel.Parent := GroupBox_DirPage;

    WizardForm.SelectDirBrowseLabel.Left := ScaleX(10);
    WizardForm.SelectDirBrowseLabel.Top := ScaleY(54);
    WizardForm.SelectDirBrowseLabel.Width := ScaleX(405);
    WizardForm.SelectDirBrowseLabel.Parent := GroupBox_DirPage;

    WizardForm.DirEdit.Left := ScaleX(10);
    WizardForm.DirEdit.Top := ScaleY(87);
    WizardForm.DirEdit.Width := ScaleX(317);
    WizardForm.DirEdit.Parent := GroupBox_DirPage;

    WizardForm.DirBrowseButton.Left := ScaleX(332);
    WizardForm.DirBrowseButton.Top := ScaleY(86);
    WizardForm.DirBrowseButton.Parent := GroupBox_DirPage;

    WizardForm.DiskSpaceLabel.Left := ScaleX(10);
    WizardForm.DiskSpaceLabel.Top := ScaleY(116);
    WizardForm.DiskSpaceLabel.Width := ScaleX(405);
    WizardForm.DiskSpaceLabel.Parent := GroupBox_DirPage;
end;