Флажок :: Выберите по одному

Question

Это раздел кода из inno setup.Мое намерение состоит в том, чтобы установить два флажка, где одновременно выбирается один. Но этот код возвращает ошибку при нажатии первого флажка.

[код]

procedure CheckBoxOnClick(Sender: TObject);
var
Box2,CheckBox: TNewCheckBox;
begin
if CheckBox.Checked then   ///error:"Could not call proc" [sud it be global if then how to or what to change?]
BEGIN
   CheckBox.State := cbUnchecked;
   Box2.State := cbChecked;
END else
BEGIN
   CheckBox.State := cbChecked;
   Box2.State := cbUnchecked;
END;
end;

procedure Box2OnClick(Sender: TObject);
var
Box2,CheckBox: TNewCheckBox;
begin
if Box2.Checked then              ///error:same
BEGIN
   CheckBox.State := cbChecked;
   Box2.State := cbUnchecked;
END else
BEGIN
   CheckBox.State := cbUnchecked;
   Box2.State := cbChecked;
END;
end;

procedure CreateTheWizardPages;
var
  Page: TWizardPage;
  Box2,CheckBox: TNewCheckBox;
begin
  { TButton and others }

  Page := CreateCustomPage(wpWelcome, '', '');

  CheckBox := TNewCheckBox.Create(Page);
  CheckBox.Top :=ScaleY(8)+ScaleX(50);
  CheckBox.Width := Page.SurfaceWidth;
  CheckBox.Height := ScaleY(17);
  CheckBox.Caption := 'Do this';
  CheckBox.Checked := True;
  CheckBox.OnClick := @CheckBoxOnClick;
  CheckBox.Parent := Page.Surface;

  Box2 := TNewCheckBox.Create(Page);
  Box2.Top :=ScaleY(8)+ScaleX(70);
  Box2.Width := Page.SurfaceWidth;
  Box2.Height := ScaleY(17);
  Box2.Caption := 'No,Thanks.';
  Box2.Checked := False;
  Box2.OnClick := @Box2OnClick;
  Box2.Parent := Page.Surface;
end;


procedure InitializeWizard();
//var
begin
  { Custom wizard pages }
  CreateTheWizardPages;
end;

Подскажите пожалуйста где поменять ..

Answer 1

Причина вашей ошибки в том, что вы ссылаетесь на CheckBox, который определен локально в этом методе. На данный момент CheckBox не был создан. Это означает, что ваш вызов CheckBox.Checked, когда CheckBox не определен (скорее всего, NIL)

Каждое объявление CheckBox представляет новую переменную и не ссылается на другие переменные с тем же именем. Это связано с правилами определения объема.

Одним из вариантов решения вашей проблемы является удаление локальных объявлений Box2 и CheckBox в каждом методе и объявление их глобально.