[AlexD]

Люди, подскажите как сделать простенький тест-соответствие на Дельфи.
Немного опишу каким он должен быть: в форме есть несколько кнопок(чётное число), стоят они в 2 столбика друг на против друга(Понятие, определение), и надо чтобы по нажатии 2 кнопок из разных столбцов, если верно, то они исчезали, если не верно, то внизу формы в строке "Количество ошибок" прибавлялось 1.
Заранее спасибо.

[dr. F.I.N.]

Всем кнопкам из одной пары одинаковый Tag. Каждой паре свой Tag. Всем кнопкам присваеваешь одно событие OnClick. Задаешь две глобальные переменные: LastButton: TButton и SecondClick: Boolean;
В событии OnClick пишешь:

Код:

begin
if SecondClick then
begin
  if LastButton.Tag = TButton(Sender).Tag
  then
  begin
    LastButton.Hide;
    TButton(Sender).Hide;
  end
  else
  ShowMessage('Ошибка!!!');
  SecondClick := false;
end
else
begin
  LastButton := TButton(Sender);
  SecondClick := true;
end;
end;

Писалось на коленке. Логика предельно простая. Не забудь еще проверить нюансы типа нажатия на одну и ту же кнопку 2 раза и т.п.

[AlexD]

Сообщение от dr. F.I.N.

Всем кнопкам из одной пары одинаковый Tag. Каждой паре свой Tag. Всем кнопкам присваеваешь одно событие OnClick. Задаешь две глобальные переменные: LastButton: TButton и SecondClick: Boolean;
В событии OnClick пишешь:

Код:

begin
if SecondClick then
begin
  if LastButton.Tag = TButton(Sender).Tag
  then
  begin
    LastButton.Hide;
    TButton(Sender).Hide;
  end
  else
  ShowMessage('Ошибка!!!');
  SecondClick := false;
end
else
begin
  LastButton := TButton(Sender);
  SecondClick := true;
end;
end;

Писалось на коленке. Логика предельно простая. Не забудь еще проверить нюансы типа нажатия на одну и ту же кнопку 2 раза и т.п.

Большое спс!

[AlexD]

В дельфи я не особо понимаю, но разбираюсь потихоньку...
Подскажите ещё плз, как мне пристроить в этот код "счётчик ошибок" и блокировку на Двойное нажатие кнопки.

Со счётчиком сколько не пробовал по-разному, так ничего и не вышло: в нужную мне переменную он добавляет не только в случае ошибки, но и в случае правильного выбора...
А с блокировкой двойного нажатия вообще ничего не вышло(

[AleD]

Сообщение от AlexD

В дельфи я не особо понимаю, но разбираюсь потихоньку...
Подскажите ещё плз, как мне пристроить в этот код "счётчик ошибок" и блокировку на Двойное нажатие кнопки.

Со счётчиком сколько не пробовал по-разному, так ничего и не вышло: в нужную мне переменную он добавляет не только в случае ошибки, но и в случае правильного выбора...
А с блокировкой двойного нажатия вообще ничего не вышло(

ну прибавляй переменную вместе с сообщение об ошибке:

Код:

begin
if SecondClick then
begin
  if LastButton.Tag = TButton(Sender).Tag
  then
  begin
    LastButton.Hide;
    TButton(Sender).Hide;
  end
  else
  begin
    Inc(ErrCnt{имя переменной с числом ошибок}); //Inc то же самое что и ErrCnt := ErrCnt + 1
    ShowMessage('Ошибка!!!');
  end;
  SecondClick := false;
end
else
begin
  LastButton := TButton(Sender);
  SecondClick := true;
end;
end;

о_О подозрительный ник AlexD

[AlexD]

Сообщение от AleD

о_О подозрительный ник AlexD

чем это подозрительный?)

з.ы.: вот блин! спалили)