|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нажатие на правильном ответе в Тесте
Приветствую всех на форуме.
Не смог довести до идеальности код теста может кто поможет. Заранее буду благодарен. На форме расположени 30 CheckBox-ов и 6 SpeedButton которие пронумеровани 1...6. (С остальнимт компоненти всё ясно). При создании формы (или нажатии кнопки) на форму появляется CheckBox1 со случайным в Caption числом и соответственно вопросом в Image1 (на котором задан вопрос и перечислени варианти ответов). Вот тепер тема: Помогите с обрабоычиком когда. Когда правильныи ответ третии ответ, нажатие на SpeedButton.Caption:=3 давало собитие появление CheckBox2 и что бы вся процедура прошла с начального варианта. (С остальным я сам разберус). Вот и набросок кода. Код: Код:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg, ImgList; type TForm1 = class(TForm) Panel1: TPanel; Panel2: TPanel; CheckBox1: TCheckBox; CheckBox2: TCheckBox; CheckBox3: TCheckBox; CheckBox4: TCheckBox; CheckBox5: TCheckBox; CheckBox6: TCheckBox; CheckBox7: TCheckBox; CheckBox8: TCheckBox; CheckBox9: TCheckBox; CheckBox10: TCheckBox; CheckBox11: TCheckBox; CheckBox12: TCheckBox; CheckBox13: TCheckBox; CheckBox14: TCheckBox; CheckBox15: TCheckBox; CheckBox16: TCheckBox; CheckBox17: TCheckBox; CheckBox18: TCheckBox; CheckBox19: TCheckBox; CheckBox20: TCheckBox; CheckBox21: TCheckBox; CheckBox22: TCheckBox; CheckBox23: TCheckBox; CheckBox24: TCheckBox; CheckBox25: TCheckBox; CheckBox26: TCheckBox; CheckBox27: TCheckBox; CheckBox28: TCheckBox; CheckBox29: TCheckBox; CheckBox30: TCheckBox; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; SpeedButton3: TSpeedButton; SpeedButton4: TSpeedButton; SpeedButton5: TSpeedButton; SpeedButton6: TSpeedButton; Label1: TLabel; Label2: TLabel; Image1: TImage; BitBtn1: TBitBtn; Edit1: TEdit; Label3: TLabel; ComboBox1: TComboBox; Label4: TLabel; BitBtn2: TBitBtn; procedure FormCreate(Sender: TObject); procedure BitBtn1Click(Sender: TObject); procedure Edit1Change(Sender: TObject); procedure BitBtn2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses Unit2; {$R *.dfm} procedure TForm1.BitBtn1Click(Sender: TObject); var RandSeed:Longint; begin RandSeed:=Random(1084); CheckBox1.Caption:=IntToStr(RandSeed); Image1.Visible:= True; CheckBox1.Visible:=True; begin if CheckBox1.Visible=True then begin Image1.Picture.LoadFromFile('Martest\'+(IntToStr(RandSeed))+'.jpg'); end; end; BitBtn1.Visible:=False; Edit1.Visible:=False; Label3.Visible:=False; Label4.Visible:=False; BitBtn2.Visible:=True; ComboBox1.Visible:=False; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin CheckBox1.Visible := False; ............ end; end; procedure TForm1.FormCreate(Sender: TObject); begin CheckBox1.Visible := False; .............. end; end. P.S. Извините за корявыи русскии, вшколе плохо учился. |