Advertisement
Guest User

Untitled

a guest
Dec 13th, 2018
99
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 4.56 KB | None | 0 0
  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5.  
  6. #include "Unit1.h"
  7. //---------------------------------------------------------------------------
  8. #pragma package(smart_init)
  9. #pragma resource "*.dfm"
  10. TForm1 *Form1;
  11. //---------------------------------------------------------------------------
  12. __fastcall TForm1::TForm1(TComponent* Owner)
  13. : TForm(Owner)
  14. {
  15. }
  16. //---------------------------------------------------------------------------
  17.  
  18.  
  19. void __fastcall TForm1::Button1Click(TObject *Sender)
  20. {
  21. Button1 -> Visible = false;
  22. Button2 -> Visible = true;
  23. }
  24. //---------------------------------------------------------------------------
  25.  
  26. void __fastcall TForm1::Button2Click(TObject *Sender)
  27. {
  28. Button2 -> Visible = false;
  29. Button3 -> Visible = true;
  30. }
  31. //---------------------------------------------------------------------------
  32.  
  33. void __fastcall TForm1::Button3Click(TObject *Sender)
  34. {
  35. Button3 -> Visible = false;
  36. Label1 -> Visible = true;
  37. RadioButton1 -> Visible = true;
  38. RadioButton2 -> Visible = true;
  39. RadioButton3 -> Visible = true;
  40. }
  41. //---------------------------------------------------------------------------
  42.  
  43. void __fastcall TForm1::RadioButton1Click(TObject *Sender)
  44. {
  45. Label1 -> Visible = false;
  46. RadioButton1 -> Visible = false;
  47. RadioButton2 -> Visible = false;
  48. RadioButton3 -> Visible = false;
  49. Button4 -> Visible = true;
  50. }
  51. //---------------------------------------------------------------------------
  52. void __fastcall TForm1::RadioButton2Click(TObject *Sender)
  53. {
  54. Label1 -> Visible = false;
  55. RadioButton1 -> Visible = false;
  56. RadioButton2 -> Visible = false;
  57. RadioButton3 -> Visible = false;
  58. Button4 -> Visible = true;
  59. }
  60. //---------------------------------------------------------------------------
  61. void __fastcall TForm1::RadioButton3Click(TObject *Sender)
  62. {
  63. Label1 -> Visible = false;
  64. RadioButton1 -> Visible = false;
  65. RadioButton2 -> Visible = false;
  66. RadioButton3 -> Visible = false;
  67. Button4 -> Visible = false;
  68. Button5 -> Visible = true;
  69. }
  70. //---------------------------------------------------------------------------
  71. void __fastcall TForm1::Button4Click(TObject *Sender)
  72. {
  73. Button4 -> Visible = false;
  74. Button1 -> Visible = true;
  75. }
  76. //---------------------------------------------------------------------------
  77. void __fastcall TForm1::Button5Click(TObject *Sender)
  78. {
  79. Button5 -> Visible = false;
  80. Label2 -> Visible = true;
  81. RadioButton4 -> Visible = true;
  82. RadioButton5 -> Visible = true;
  83. RadioButton6 -> Visible = true;
  84. }
  85. //---------------------------------------------------------------------------
  86.  
  87.  
  88.  
  89.  
  90.  
  91. void __fastcall TForm1::RadioButton4Click(TObject *Sender)
  92. {
  93. Label2 -> Visible = false;
  94. RadioButton4 -> Visible = false;
  95. RadioButton5 -> Visible = false;
  96. RadioButton6 -> Visible = false;
  97. Button4 -> Visible = true;
  98. }
  99. //---------------------------------------------------------------------------
  100.  
  101. void __fastcall TForm1::RadioButton5Click(TObject *Sender)
  102. {
  103. Label2 -> Visible = false;
  104. RadioButton4 -> Visible = false;
  105. RadioButton5 -> Visible = false;
  106. RadioButton6 -> Visible = false;
  107. Button4 -> Visible = false;
  108. Button6 -> Visible = true;
  109. }
  110. //---------------------------------------------------------------------------
  111.  
  112. void __fastcall TForm1::RadioButton6Click(TObject *Sender)
  113. {
  114. Label2 -> Visible = false;
  115. RadioButton4 -> Visible = false;
  116. RadioButton5 -> Visible = false;
  117. RadioButton6 -> Visible = false;
  118. Button4 -> Visible = true;
  119. }
  120. //---------------------------------------------------------------------------
  121.  
  122.  
  123.  
  124.  
  125. void __fastcall TForm1::Button6Click(TObject *Sender)
  126. {
  127. Button6 -> Visible = false;
  128. Button7 -> Visible = true;
  129. Button8 -> Visible = true;
  130.  
  131. }
  132. //---------------------------------------------------------------------------
  133.  
  134. void __fastcall TForm1::Button7Click(TObject *Sender)
  135. {
  136. Button7 -> Visible = false;
  137. Button8 -> Visible = false;
  138. Button1 -> Visible = true;
  139. }
  140. //---------------------------------------------------------------------------
  141.  
  142.  
  143. void __fastcall TForm1::Button8Click(TObject *Sender)
  144. {
  145. Application->Terminate();
  146. }
  147. //---------------------------------------------------------------------------
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement