[Johny777]

Ivan_009,
лейбл можно сделать безымянным
так же можно убрать функцию при наведении
вот используй обновлённый пример

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

Код:

[Setup]
AppName=My Program
AppVerName=My Program v.1.2
DefaultDirName={pf}\My Program

[ code]
var
  Label_CheckBox: TNewCheckBox;


procedure LabelOnClick(Sender: TObject);
begin
  case Label_CheckBox.Checked of
    False:
      begin
        Label_CheckBox.Checked := True;
        Exit;
      end;
    True:
      begin
        Label_CheckBox.Checked := False;
        Exit;
      end;
  end;
end;


procedure InitializeWizard();
begin

  with WizardForm do
  begin
    OuterNotebook.Hide
    with WizardBitmapImage do
    begin
      Parent := WizardForm;
      Align := alClient;
      Stretch := True
    end;
  end;

  Label_CheckBox := TNewCheckBox.Create(WizardForm);
  with Label_CheckBox do
  begin
    Parent := WizardForm;
    SetBounds(ScaleX(40),ScaleY(328),ScaleX(12),ScaleY(12));
    Caption := '';
  end;

  with TLabel.Create(WizardForm) do
  begin
    Parent := WizardForm;
    Caption := 'название чекбокса';
    Transparent := True;
    OnClick := @LabelOnClick;
    SetBounds(Label_CheckBox.Left + Label_CheckBox.Width + ScaleX(4),Label_CheckBox.Top - ScaleY(1),ScaleX(96),ScaleY(12));
    Font.Color := clWhite;
  end;
  
end;

procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

если несколько чкебоксов с неименными лейблами, то используй Tag := у лейблов