Radio Button

var
  CustomPage1: TWizardPage; //Page 정의  
  Windows7Radio: TRadioButton; //Radio 버튼 정의
  Windows8Radio: TRadioButton;
  Windows10Radio: TRadioButton;
  Server2008Radio: TRadioButton;
  Server2012usRadio: TRadioButton;
  Server2012korRadio: TRadioButton;

function RadioPage: Integer;
var
  DescLabel: TLabel;
  
begin
  CustomPage1 := CreateCustomPage(wpSelectDir, 'Title', 'Description'); //페이지 생성, Directory 선택 화면 다음으로 생성
 
  DescLabel := TLabel.Create(WizardForm);
  DescLabel.Parent := CustomPage1.Surface;
  DescLabel.Left := 0;
  DescLabel.Top := 0;
  DescLabel.Caption := 'Select an OS...';

//Radio 버튼 생성
 Windows7Radio := TRadioButton.Create(WizardForm);
 with Windows7Radio do
 begin
 Parent := CustomPage1.Surface;
 Caption := ExpandConstant('Window7');
 Left := ScaleX(16);
 Top := ScaleY(30);
 Width := ScaleX(225);
 Height := ScaleY(17);
 Checked := True;
 TabOrder := 1;
 TabStop := True;
 end;

 Windows8Radio := TRadioButton.Create(WizardForm);
 with Windows8Radio do
 begin
 Parent := CustomPage1.Surface;
 Caption := ExpandConstant('Window8');
 Left := ScaleX(16);
 Top := ScaleY(50);
 Width := ScaleX(225);
 Height := ScaleY(17);
 Checked := False;
 TabOrder := 2;
 TabStop := True;
 end;

 Windows10Radio := TRadioButton.Create(WizardForm);
 with Windows10Radio do
 begin
 Parent := CustomPage1.Surface;
 Caption := ExpandConstant('Window10');
 Left := ScaleX(16);
 Top := ScaleY(70);
 Width := ScaleX(225);
 Height := ScaleY(17);
 TabOrder := 3;
 TabStop := True;
 end;

 Server2008Radio := TRadioButton.Create(WizardForm);
 with Server2008Radio do
 begin
 Parent := CustomPage1.Surface;
 Caption := ExpandConstant('Server2008');
 Left := ScaleX(16);
 Top := ScaleY(90);
 Width := ScaleX(225);
 Height := ScaleY(17);
 TabOrder := 4;
 TabStop := True;
 end;
 
 Server2012usRadio := TRadioButton.Create(WizardForm);
 with Server2012usRadio do
 begin
 Parent := CustomPage1.Surface;
 Caption := ExpandConstant('Server2012(US)');
 Left := ScaleX(16);
 Top := ScaleY(110);
 Width := ScaleX(225);
 Height := ScaleY(17);
 TabOrder := 5;
 TabStop := True;
 end;
 
 Server2012korRadio := TRadioButton.Create(WizardForm);
 with Server2012korRadio do
 begin
 Parent := CustomPage1.Surface;
 Caption := ExpandConstant('Server2012(KOR)');
 Left := ScaleX(16);
 Top := ScaleY(130);
 Width := ScaleX(225);
 Height := ScaleY(17);
 TabOrder := 6;
 TabStop := True;
 end;

end;

//Radio 버튼 Check 유무에 따라 Componenet와 비슷하게 Check기능으로 Checking 할 수 있음
function Windows7 : Boolean;
begin
 Result := Windows7Radio.Checked;
end;

function Windows8 : Boolean;
begin
 Result := Windows8Radio.Checked;
end;

function Windows10 : Boolean;
begin
 Result := Windows10Radio.Checked;
end;

function Server2008 : Boolean;
begin
 Result := Server2008Radio.Checked;
end;

function Server2012us : Boolean;
begin
 Result := Server2012usRadio.Checked;
end;

function Server2012kor : Boolean;
begin
 Result := Server2012korRadio.Checked;
end;