[Johny777]

все/ничего решил убрать и использую для этих целей Type »

поддерживаю!

Так вот 21 и 22 работает когда выбран 1, а 23, когда 1 не выбран. »

вот тебе отдельный пример чтоб понятнее было и он по принципу работы не особо отличается от предыдущего! Изучай.

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v 1.5
DefaultDirName={pf}\My Program
OutputDir=.
DirExistsWarning=no

[Components]
Name: a; Description: 1;
Name: b; Description: 2;
Name: b\d; Description: 21; Flags: exclusive;
Name: b\e; Description: 22; Flags: exclusive;
Name: b\f; Description: 23;

[  code]
procedure ComponentsOnClick(Sender: TObject);
begin
  with WizardForm.ComponentsList do
  begin
    ItemEnabled[Items.IndexOf('21')] := not Checked[Items.IndexOf('1')];
    ItemEnabled[Items.IndexOf('22')] := not Checked[Items.IndexOf('1')];
    ItemEnabled[Items.IndexOf('23')] := Checked[Items.IndexOf('1')];
    Refresh;
  end;
end;

procedure InitializeWizard();
begin
  WizardForm.ComponentsList.OnClickCheck := @ComponentsOnClick;
  WizardForm.ComponentsList.OnClickCheck(nil);
end;