Вопрос Invisible and trasparent button

[InstallationWay]

Hi Friends, is there any way to create an invisible button (transparent button) in inno setup (which can accept events like keypress, mouse hover etc)?

 

[Leserg]

Look example in "Example_TNewSpeedButton_1.iss" file, in modified version of Inno Setup from Restools.

 

[InstallationWay]

@Leserg thanks man, nice but it has a little problem. I will have a very light mouse-over effect. is there any way to remove it also?

 

[Leserg]

is there any way to remove it also?

No, because the source code of the component is not available. There are no other options.

 

[InstallationWay]

@Leserg so is there any way implementing such a hidden area with a TLabel? if yes could you please provide a sample?

 

[Leserg]

is there any way implementing such a hidden area with a TLabel? if yes could you please provide a sample?

Спойлер: Example

[Setup]
AppName=My Program
AppVersion=1.5
CreateAppDir=no
OutputDir=userdocs:Inno Setup Examples Output
PrivilegesRequired=lowest

[Code]
procedure LabelOnClick(Sender: TObject);
begin
  MsgBox('You found the Label!', mbInformation, mb_Ok);
end;

procedure CreateTheWizardPages;
var
  Page: TWizardPage;
begin
  { TLabel }

  Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TButton and others');

  with TLabel.Create(Page) do
  begin
    Parent := Page.Surface;
    Anchors := [akLeft, akTop];
    Left := ScaleX(14);
    Top := ScaleY(14);
    Caption := 'Simple TLabel';
  end;

  with TLabel.Create(Page) do
  begin
    Parent := Page.Surface;
    Anchors := [akLeft, akTop];
    Left := ScaleX(14);
    Top := ScaleY(100);
    Font.Color := clBlue;
    Caption := 'Hidden TLabel (Find&&Click) --->';
  end;

  with TLabel.Create(Page) do
  begin
    Parent := Page.Surface;
    Anchors := [akLeft, akTop];
    Left := ScaleX(200);
    Top := ScaleY(80);
    Font.Size := -36;     // <-- size for hidden region
    Caption := '       '; // <-- text with only Spaces for hidden region
    OnClick := @LabelOnClick;
  end;
end;

procedure InitializeWizard();
begin
  { Custom wizard page }

  CreateTheWizardPages;

  { Custom beveled label }

  WizardForm.BeveledLabel.Caption := ' Label ';
end;

{ Changed current Page }
procedure CurPageChanged(CurPageID: Integer);
begin
  if PageIndexFromID(CurPageID) > PageIndexFromID(wpWelcome) then begin
    WizardForm.NextButton.Hide;
    WizardForm.CancelButton.Caption := 'Close';
  end;
end;

{ Disable confirm cancel }
procedure CancelButtonClick(CurPageID: Integer; var Cancel, Confirm: Boolean);
begin
  Confirm := False;
end;

 

[InstallationWay]

@Leserg GREAT Man, Is there any way to see label bounds (rectangle area with border) for test purposes?

and Why your setups will detect as virus?

 

[Leserg]

Is there any way to see label bounds (rectangle area with border) for test purposes?

In the example above, just add a panel (TPanel) and place this TLabel on it.

Why your setups will detect as virus?

Maybe you have a virus on your system?
Otherwise, inform your antivirus support service about a false positive.

Checked "Hidden_TLabel.exe" file on VirusTotal service.
So, I see three false positives detect from unknown companies.
In a month, another Noname Company will appear and reported about the virus. What's next?

Ultimately you have a script, compile it yourself.