Следуйте инструкциям в видео ниже, чтобы узнать, как установить наш сайт как веб-приложение на главный экран вашего устройства.
Примечание: Эта функция может быть недоступна в некоторых браузерах.
Вы используете устаревший браузер. Этот и другие сайты могут отображаться в нём неправильно. Необходимо обновить браузер или попробовать использовать другой.
procedure TForm1.aClick(Sender: TObject);
begin
if lq.Caption='' then exit;
(Sender as TJvImage).State:=stDown;
delay(level*300);
(Sender as TJvImage).State:=stDefault;
if Question[k].right=ansId[StrToInt(copy((Sender as TComponent).Name,2,1))]
then Right else alert('Wrong(((');
end;
ето OnClick на TJvImage. Их несколько.
а Label поверх каждой. и вибрать ему OnCLick не вимдет из-за (Sender as TJvImage).State:=stDown;
На данном сайте используются файлы cookie, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших файлов cookie.