Хамик
Старожил
Если у чекбокса Enabled := False то возможно ли как-то использовать sender процедуры в нем?
Например как в этом примере при наведении на чекбокс отобразить текст с процедуры ShowHint?
Например как в этом примере при наведении на чекбокс отобразить текст с процедуры ShowHint?
Код:
[Setup]
appname=app
AppVersion=1.0
DefaultDirName={pf}\app
[Code]
var
NewCheckBox1: TNewCheckBox;
NewStaticText1: TNewStaticText;
procedure ShowHint(Sender: TObject);
begin
NewStaticText1.Caption := 'Для установки требуется интернет соединение';
end;
procedure RedesignWizardForm;
begin
NewCheckBox1 := TNewCheckBox.Create(WizardForm);
with NewCheckBox1 do
begin
Parent := WizardForm.WelcomePage;
Left := ScaleX(224);
Top := ScaleY(192);
Width := ScaleX(97);
Height := ScaleY(17);
Caption := 'NewCheckBox1';
Enabled := False;
OnMouseEnter := @ShowHint;
end;
NewStaticText1 := TNewStaticText.Create(WizardForm);
with NewStaticText1 do
begin
Parent := WizardForm.WelcomePage;
WordWrap := True;
Left := ScaleX(224);
Top := ScaleY(232);
Width := ScaleX(141);
Height := ScaleY(14);
end;
end;
procedure InitializeWizard();
begin
RedesignWizardForm;
end;