[bugmenotagain]

R.i.m.s.k.y., эта хрень даже запускаться не хочет

[Devils Night]

только code нужен? »

В основном да, а без него никак.

с помощью этой да? »

Ну создать формы можно с помощью неё, плюшек там всяких добавить на страницу, только вот многое сложно будет сделать, особенно когда все тонкости кода не знаешь, надо много, много читать и заучивать чтоб понять.

[Johny777]

R.i.m.s.k.y.,
у себя тоже давно поменял страницы
только проще
тк компонентов (секции) нет, то и страницы нет
вставил вот таким вот чудесным макаром страничку перед страницей выбора директории установки

читать дальше »

и создал на ней всё необходимое
есть и другой способ через (взял в во вкладке "поддержка" расширенной версии)

читать дальше »

function CreateInputQueryPage(const AfterID: Integer; const ACaption, ADescription, ASubCaption: String): TInputQueryWizardPage;
function CreateInputOptionPage(const AfterID: Integer; const ACaption, ADescription, ASubCaption: String; Exclusive, ListBox: Boolean): TInputOptionWizardPage;
function CreateInputDirPage(const AfterID: Integer; const ACaption, ADescription, ASubCaption: String; AAppendDir: Boolean; ANewFolderName: String): TInputDirWizardPage;
function CreateInputFilePage(const AfterID: Integer; const ACaption, ADescription, ASubCaption: String): TInputFileWizardPage;
function CreateOutputMsgPage(const AfterID: Integer; const ACaption, ADescription, AMsg: String): TOutputMsgWizardPage;
function CreateOutputMsgMemoPage(const AfterID: Integer; const ACaption, ADescription, ASubCaption: String; const AMsg: AnsiString): TOutputMsgMemoWizardPage;
function CreateOutputProgressPage(const ACaption, ADescription: String): TOutputProgressWizardPage;
function CreateCustomPage(const AfterID: Integer; const ACaption, ADescription: String): TWizardPage;

но я с ним не дружу
а работать со своей страницей предельно легко
вот на моём примере

читать дальше »

Код:

var
   ComponentsPage: TWizardPage;
....
procedure InitializeWizard;
begin
  ComponentsPage := CreateCustomPage(wpInfoBefore, 'ISCustomPage1_Caption', 'ISCustomPage1_Description');
...
  ep1_MainLable := TLabel.Create(WizardForm);
  with ep1_MainLable do
  begin
    Name := 'ep1_MainLable';
    Parent := ComponentsPage.Surface;
....
  if CurPageID=ComponentsPage.ID then
    begin
      with WizardForm do
        begin
,,,

_______________________________________
касательно смены страниц местами
не знаю насчёт других, но логика моя говорит, что разумнее сначала выбирать "что" и потом говорить "куда", а не наоборот

[Ivan_009]

Как убрать данную область...

[Johny777]

это, Ваня, так называемая WizardForm.Caption := 'название'
ищи через ctrl + F
может быть записано и так:
with WizardForm do
begin
Caption := 'Готово';
...
или в процедуре какой

[Ivan_009]

Johny777 мне нужно полностью удалить эту область не подскажешь как

[Johny777]

Ivan_009,
ну так
WizardForm.Caption := '';
главное кавычки не стирай, а в них ничего не пиши
а можно и без кода обойтись
вот так
[Messages]
SetupWindowTitle=

[Ivan_009]

Не мне надо, чтобы верхушки вообще не было

[Johny777]

Не мне надо, чтобы верхушки вообще не было »

оно?

procedure InitializeWizard();
begin
WizardForm.BorderIcons := [];
...

но тогда и иконка и значки "свенуть", "закрыть" слетят

[Ivan_009]

Почти еще бы полоску докучи верхнию убрать полностью