inno setup code 段常用代码(7)

WizardForm.PAGEDESCRIPTIONLABEL.Font.Color:= clBlue;

WizardForm.WELCOMELABEL1.Font.Color:= clGreen;

WizardForm.WELCOMELABEL2.Font.Color:= clblack;

CancelButton := WizardForm.CancelButton;

AboutButton := TButton.Create(WizardForm);

AboutButton.Left := WizardForm.ClientWidth - CancelButton.Left - CancelButton.Width; AboutButton.Top := CancelButton.Top;

AboutButton.Width := CancelButton.Width;

AboutButton.Height := CancelButton.Height;

AboutButton.Caption := '&About';

AboutButton.OnClick := @AboutButtonOnClick;

AboutButton.Parent := WizardForm;

URLLabel := TNewStaticText.Create(WizardForm);

URLLabel.Caption := '中天VIP工作室';

URLLabel.Cursor := crHand;

URLLabel.OnClick := @URLLabelOnClick;

URLLabel.Parent := WizardForm;

{ Alter Font *after* setting Parent so the correct defaults are inherited first }

URLLabel.Font.Style := URLLabel.Font.Style + [fsUnderline];

URLLabel.Font.Color := clBlue;

URLLabel.Top := AboutButton.Top + AboutButton.Height - URLLabel.Height - 2;

URLLabel.Left := AboutButton.Left + AboutButton.Width + ScaleX(20);

end;

18、去掉安装程序左上角“关于安装程序”的代码

procedure InitializeWizard();

begin

WizardForm.BorderIcons:= [biMinimize];

end;

procedure CurPageChanged(CurPage: Integer);

begin

if CurPage=wpWelcome then

WizardForm.BorderIcons:= [biSystemMenu, biMinimize];

end;

或者

procedure InitializeWizard();

begin

WizardForm.BORDERICONS := [biHelp, biSystemMenu, biMinimize];