|
Name - в это свойство объекта пишут имя объекта.
Visible=False - невидим;
Visible=True -
видим.
Если свойство объекта Enabled=False - то объект недоступен.
ToolTipText - позволяет задать текст подсказки,
который будет появляться при наведении курсора на
объект.
В свойстве
MousePointer, можно
выбрать стрелку указателя мышки для данного
объекта.
Линия
Line: свойства BorderStyle - стиль линии;
свойства BorderWidth - толщина линии; свойства
BorderColor - цвет линии.
Контуры Shape -
сначала, используя этот инструмент, нарисовать на форме,
а потом, используя свойство Shape, выбрат, какая будет
геометрическая фигура. Свойства FillStyle - задают
узорную или сплошную заливку. Свойства BorderStyle -
стиль линии; свойства BorderWidth - толщина линии;
свойства BorderColor - цвет линии.
Рамка Frame -
является контейнером для других объектов и управляет
общими свойствами объектов, помещенных в РАМКУ. Если
Frame1.Visible=False, то все объекты помещенные в
РАМКУ1, станут невидимыми. Это свойство используется для
многостраничного ввода данных. Важные свойства РАМКИ:
BorderStyle и Caption.
Полосы Прокрутки
VScrollbar и HScrollbar.
LargeChange, SmallChange - задают величины на
которые будет смещаться ползунок при щелчке кнопкой мыши
на полосе или стрелке прокрутки
Min, Max - задают диапазон вводимых с помощью
полосы прокрутки чисел
Value - целое число, соответствующее положению
ползунка на полосе прокрутки
Таймер Timer
Interval - интервал активации объекта в
миллисекундах. От 0 до 64 767 мс.
Enabled - устанавливает режим работы таймера.
Если значение True, то таймер начинает отсчет времени
сразу после запуска программы. Если False, тогда нужно
запустить таймер по какому то событию.
Вывод
системного времени.
-
На ФОРМУ поместите МЕТКУ
Label (в моем примере третья), для вывода туда
системного времени.
-
На ФОРМУ поместите ТАЙМЕР
Timer.
-
Свойство Interval=1000 (это
означает обновление через каждые 1000 мс, т.е. через
1 секунду).
-
Сделайте двойной левый
щелчок по значку Timer на форме и в процедурную
заготовку введите Label3.Caption= Time (когда
вводите Label3.- это не обязательно №3, надо
смотреть Name у Label).
-
Наберите Label3.Caption =
Time
Privat Sub Timer1_Timer()
Label3.Caption = Time
End Sub
В метку Label3 выводит системное время
ВВЕРХ |