Рисунок 1. Вид окна в первом туре
Форма первого тура, в соответствии с рисунком 1, запускается в полноэкранном режиме. В событии TForm1.FormResize осуществляется изменение положения элементов расположенных на форме. По нажатию клавиши обработчик события «смотрит» есть ли на форме темы для выбора - установлено ли хотя бы у одного них свойство visible=true, и в случае если это так, то по коду нажатой клавиши осуществляется выбор события для выполнения - вызов процедуры нажатия на элементе с названием темы - SpeedButton.
Рисунок 2. Вид окна во втором туре
Достарыңызбен бөлісу: |
