Shape или просто тест

← →
gvozdkoff © (2007-03-19 14:32) [0]

Здравствуйте
делаю тестик небольшой
есть форма --> shape
На Shape располагаются

label - тут формулируется вопрос
image - вставляется картинка, к которой и задается вопрос
4 кнопки button - варианты ответов

И вот...
как при нажатии на кнопку сделать так чтобы шейп стал пустым а там была другая картинка , вопрос, и варианты ответов ?

помогите пожалуйста, или может есть у кого исходник какого нибудь простого теста

← →
Virgo_Style © (2007-03-19 14:36) [1]

Label.Caption:=...
Image.Picture.LoadFromFile(...)
Button1.Caption:=...
Button2.Caption:=...
Button3.Caption:=...
Button4.Caption:=...

← →
gvozdkoff © (2007-03-19 14:42) [2]

спасибо за столь быстрый ответ, щас буду пробовать

← →
gvozdkoff © (2007-03-19 15:14) [3]

это работает только на 2 вопроса, один когда на форме назначил картинки там , вопрсы, а второй раз при щелчке на кнопке варианта ответа

я вот не понимаю ка сделать это, как описать чтоб работало и на 6 и на 8 вопросов

подскажите еще, пожалуйста !

← →
gvozdkoff © (2007-03-20 09:11) [4]

вобщем не получилось так
придумал другой вариант

PageControl, там сделал 10 страниц, tabvisible:=false,
принажатии на кнопку, которая на форме (начать тест), открывается первая страница, на которой вопрос , варианты ответов (radiobutton)?, и кнопка ДАЛЕЕ, после выбора ответа или можно не выбирать если не знаешь ответ, нажимаем кнопку ДАЛЕЕ, страница 1 становится снова
tabvisible:=false, а страница 2 tabvisible:=true?

Вот со сменой вопросов решил проблемку

Сейчас над другим думаю, нужно подсчитать баллы, т.е правильные ответы

!!! И вот вопрос

Как сделать, как учесть правильные ответы ? (radiobutton)

← →
Virgo_Style © (2007-03-20 10:23) [5]

кажется, без программиста не обойтись

← →
gvozdkoff © (2007-03-20 10:52) [6]

)) да ладно шутить так, это все легко, просто надо понять как то, а это у меня пока не получается

Господа и дамы, подскажите

как сделать , чтоб при значении

radiubutton1.checked:=true

было

checkbox1.checked:=true

я делаю так, и ничего не получается, в чем ошибка ?? подскажите плиз

procedure TForm1.CheckBox11Click(Sender: TObject);
begin
if radiobutton9.Checked:= true then checkbox11.Checked:= true;
end;

Какие уж шутки. На каждый тест придется создавать новое приложение - а это привелегия программиста.

> Как сделать, как учесть правильные ответы ? (radiobutton)

Угу, чтобы отвечающий не сомневался, какой button жать :)
При таком подходе к программы тестирования: у Button-a с правильным ответом поставить tag = 5, у остальных - 2

>gvozdkoff © (20.03.07 11:10) [7]
откуда ещё radiubutton-ы с checkbox-ами появились? В Subje были 4 кнопки button

спасибо господа и дамы, дадумался сам, говорю ж все просто,
просто..подумать нада было, хоть и ответов немного было )), но в ТЕМУ,

еще раз спасибо

думаю тема может считаться закрытой

Shape или просто тест Найти похожие ветки