unit param;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, ComCtrls;

type
  TParamDlg = class(TForm)
    SizeLabel: TLabel;
    FileLabel: TLabel;
    RadioGroup1: TRadioGroup;
    SizeEdit: TEdit;
    SizeUpDown: TUpDown;
    FileEdit: TEdit;
    OKBtn: TButton;
    CancelBtn: TButton;
    procedure RadioGroup1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  ParamDlg: TParamDlg;

implementation

{$R *.DFM}

procedure TParamDlg.RadioGroup1Click(Sender: TObject);
{Изменяем активность элементов при переводе переключ.}
begin
  case RadioGroup1.ItemIndex of
    0: begin
         {Включаем ручной ввод}
         SizeLabel.Enabled:=True;
         SizeEdit.Enabled:=True;
         SizeUpDown.Enabled:=True;
         {Отключаем ввод из файла}
         FileLabel.Enabled:=False;
         FileEdit.Enabled:=False
       end;
    1: begin
         {Включаем ввод из файла}
         FileLabel.Enabled:=True;
         FileEdit.Enabled:=True;
         {Отключаем ручной ввод}
         SizeLabel.Enabled:=False;
         SizeEdit.Enabled:=False;
         SizeUpDown.Enabled:=False
       end
  end
end;  {TParamDlg.RadioGroup1Click}

end.