//创建控件代码
[Code]
procedure ButtonOnClick(Sender: TObject);
begin
ShowMessage( '显示' );
end;
procedure CreateTheWizardPages;
var
Page: TWizardPage;
Button, FormButton, TaskDialogButton: TNewButton;
CheckBox: TNewCheckBox;
Edit: TNewEdit;
begin
Page := CreateCustomPage(wpWelcome, 'Custom wizard page controls', 'TButton and others');
Button := TNewButton.Create(Page);
Button.Width := ScaleX(75);
Button.Height := ScaleY(23);
Button.Caption := '测试按钮';
Button.OnClick := @ButtonOnClick;
Button.Parent := Page.Surface;
CheckBox := TNewCheckBox.Create(Page);
CheckBox.Top := Button.Top + Button.Height + ScaleY(8);
CheckBox.Width := Page.SurfaceWidth div 2;
CheckBox.Height := ScaleY(17);
CheckBox.Caption := '测试多