[maksim24680]

вот моя программа:

могу на мыло прислать саму программу

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    Label2: TLabel;
    RadioButton5: TRadioButton;
    Button2: TButton;
    Label1: TLabel;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Label3: TLabel;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    Label4: TLabel;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    RadioButton16: TRadioButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Label5: TLabel;
    RadioButton17: TRadioButton;
    RadioButton18: TRadioButton;
    RadioButton19: TRadioButton;
    RadioButton20: TRadioButton;
    Label6: TLabel;
    RadioButton21: TRadioButton;
    RadioButton22: TRadioButton;
    RadioButton23: TRadioButton;
    RadioButton24: TRadioButton;
    Label7: TLabel;
    RadioButton25: TRadioButton;
    RadioButton26: TRadioButton;
    RadioButton27: TRadioButton;
    RadioButton28: TRadioButton;
    Label8: TLabel;
    RadioButton29: TRadioButton;
    RadioButton30: TRadioButton;
    RadioButton31: TRadioButton;
    RadioButton32: TRadioButton;
    Label9: TLabel;
    RadioButton33: TRadioButton;
    RadioButton34: TRadioButton;
    RadioButton35: TRadioButton;
    RadioButton36: TRadioButton;
    Label10: TLabel;
    RadioButton37: TRadioButton;
    RadioButton38: TRadioButton;
    RadioButton39: TRadioButton;
    RadioButton40: TRadioButton;
    Button10: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
RadioButton1.visible:=false;
RadioButton2.visible:=false;
RadioButton3.visible:=false;
RadioButton4.visible:=false;

RadioButton10.visible:=true;
RadioButton9.visible:=true;
RadioButton8.visible:=true;
RadioButton5.visible:=true;
Label1.Visible:=false;
Label2.Visible:=true;
Button1.Visible:=false;
Button2.Visible:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RadioButton10.visible:=false;
RadioButton9.visible:=false;
RadioButton8.visible:=false;
RadioButton5.visible:=false;

RadioButton6.visible:=true;
RadioButton7.visible:=true;
RadioButton11.visible:=true;
RadioButton12.visible:=true;
Button2.Visible:=false;
Button3.Visible:=true;
Label2.Visible:=false;
Label3.Visible:=true;

end;

procedure TForm1.Button3Click(Sender: TObject);
begin
RadioButton6.visible:=false;
RadioButton7.visible:=false;
RadioButton11.visible:=false;
RadioButton12.visible:=false;

RadioButton13.visible:=true;
RadioButton14.visible:=true;
RadioButton15.visible:=true;
RadioButton16.visible:=true;
Label3.Visible:=false;
Label4.Visible:=true;
Button3.Visible:=false;
Button4.Visible:=true;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
RadioButton13.visible:=false;
RadioButton14.visible:=false;
RadioButton15.visible:=false;
RadioButton16.visible:=false;

RadioButton17.visible:=true;
RadioButton18.visible:=true;
RadioButton19.visible:=true;
RadioButton20.visible:=true;
Label4.Visible:=false;
Label5.Visible:=true;
Button4.Visible:=false;
Button5.Visible:=true;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
RadioButton17.visible:=false;
RadioButton18.visible:=false;
RadioButton19.visible:=false;
RadioButton20.visible:=false;

RadioButton21.visible:=true;
RadioButton22.visible:=true;
RadioButton23.visible:=true;
RadioButton24.visible:=true;
Label5.Visible:=false;
Label6.Visible:=true;
Button5.Visible:=false;
Button6.Visible:=true;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
RadioButton21.visible:=false;
RadioButton22.visible:=false;
RadioButton23.visible:=false;
RadioButton24.visible:=false;

RadioButton25.visible:=true;
RadioButton26.visible:=true;
RadioButton27.visible:=true;
RadioButton28.visible:=true;
Label6.Visible:=false;
Label7.Visible:=true;
Button6.Visible:=false;
Button7.Visible:=true;
end;

procedure TForm1.Button7Click(Sender: TObject);
begin
RadioButton25.visible:=false;
RadioButton26.visible:=false;
RadioButton27.visible:=false;
RadioButton28.visible:=false;

RadioButton29.visible:=true;
RadioButton30.visible:=true;
RadioButton31.visible:=true;
RadioButton32.visible:=true;
Label7.Visible:=false;
Label8.Visible:=true;
Button7.Visible:=false;
Button8.Visible:=true;
end;

procedure TForm1.Button8Click(Sender: TObject);
begin
RadioButton29.visible:=false;
RadioButton30.visible:=false;
RadioButton31.visible:=false;
RadioButton32.visible:=false;

RadioButton33.visible:=true;
RadioButton34.visible:=true;
RadioButton35.visible:=true;
RadioButton36.visible:=true;
Label8.Visible:=false;
Label9.Visible:=true;
Button8.Visible:=false;
Button9.Visible:=true;
end;

procedure TForm1.Button9Click(Sender: TObject);
begin
RadioButton33.visible:=false;
RadioButton34.visible:=false;
RadioButton35.visible:=false;
RadioButton36.visible:=false;

RadioButton37.visible:=true;
RadioButton38.visible:=true;
RadioButton39.visible:=true;
RadioButton40.visible:=true;
Label9.Visible:=false;
Label10.Visible:=true;
Button9.Visible:=false;
Button10.Visible:=true
end;

end.

lmikle: Пользуемся тегами!!!