Project Structure

• RadioGroupDemo.dpr
• RadioGroupDemo_MainForm.pas
• RadioGroupDemo_MainForm.dfm {FormRadioGroupDemo}

program RadioGroupDemo;

uses
  Forms,
  RadioGroupDemo_MainForm in 'RadioGroupDemo_MainForm.pas' {FormRadioGroupDemo};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TFormRadioGroupDemo, FormRadioGroupDemo);
  Application.Run;
end.

unit RadioGroupDemo_MainForm;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TFormRadioGroupDemo = class(TForm)
    RadioGroup1: TRadioGroup;
    RadioGroup2: TRadioGroup;
    RadioGroup3: TRadioGroup;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormRadioGroupDemo: TFormRadioGroupDemo;

implementation

{$R *.dfm}

end.

object FormRadioGroupDemo: TFormRadioGroupDemo
  Left = 0
  Top = 0
  Caption = 'RadioGroupDemo'
  ClientHeight = 275
  ClientWidth = 353
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object RadioGroup1: TRadioGroup
    Left = 8
    Top = 8
    Width = 329
    Height = 105
    Caption = 'RadioGroup1'
    Items.Strings = (
      'an option with a long text'
      'one with an even longer one, that wraps'
      'short option'
      'another very long option that better wraps to a new line')
    TabOrder = 0
  end
  object RadioGroup2: TRadioGroup
    Left = 8
    Top = 128
    Width = 185
    Height = 129
    Caption = 'RadioGroup2'
    Items.Strings = (
      'an option with a long text'
      'one with an even longer one, that wraps'
      'short option'
      'another very long option that better wraps to a new line')
    TabOrder = 1
    WordWrap = True
  end
  object RadioGroup3: TRadioGroup
    Left = 208
    Top = 128
    Width = 129
    Height = 129
    Caption = 'RadioGroup3'
    Items.Strings = (
      'an option with a long text'
      'one with an even longer one, that wraps'
      'short option'
      'another very long option that better wraps to a new line')
    TabOrder = 2
    WordWrap = True
  end
end