Помимо календаря в элемент управления встроен флажок, который расположен в левой части редактора. Его видимостью можно управлять.

В зависимости от значения свойства Kind элемент управления настраивается на ввод даты или времени. Результат ввода даты сохраняется в свойстве Date. Дату можно выбирать из всплывающего календаря или путем перебора. Результат ввода времени сохраняется в свойстве Time.

Свойство Parseinput при значении True разрешает ручной ввод значения. В этом случае разработчик может использовать метод-обработчик

type TDTParselnputEvent = procedure(Sender: TObject;
const UserString: string;
var DateAndTime: TDateTime;
var AllowTiiange: Boolean) of object;
property OnUserlnput: TIIffarseinputEvent;

В нем можно предусмотреть необходимые действия, например проверку введенного значения:

procedure TForml. DateTimePicker2UserInput (Sender: TDbject; const UserString: String; var EateAndTixre: TDateTixre; var MloWJhange: Boolean) ; begin try

IiateftndTiire := StrToDateTime (UserString) ;

except

on E: EConvertError do ShowMessage('Неверное значение');
end;
end;

Обратите внимание, что здесь обязательно должно присутствовать присвоение результата ввода параметру DateAndTime, иначе элемент управления не получит новое значение.

Панель состояния TStatusBar

Этот вид элементов управления применяется уже достаточно давно. Его роль заключается в отображении различного рода справочной информации. Панель состояния инкапсулирована в компоненте TStatusBar.

Обычно панель состояния размещается в нижней части окна. Поэтому при переносе на форму свойство Align всегда имеет значение alBottom. Панель состояния можно разделить на произвольное число самостоятельных частей. Каждая часть описывается объектом TstatusPanei. Коллекция всех таких объектов находится в свойстве

property Panels: TStatusPanels;

Например, для того чтобы показать на панели состояния текущую дату и время, в методе-обработчике onTimer компонента TTimer достаточно предусмотреть следующий код:

procedure TForml.TimerlTimer (Sender: TObject);
begin
StatusBarl.Panels[0].Text := DateToStr(Now);
StatusBarl.Panels[1].Text := TimeToStr(Now);
end;

Впрочем, панель состояния можно сделать сплошной. Для этого свойство simplePanei должно иметь значение Тгае. В данном случае текст панели

ДОЛЖеН СОДерЖаТЬСЯ В СВОЙСТВе SimpleText.

Расширенный комбинированный список TComboBoxEx

Такой выпадающий список знаком пользователям со времен Windows 95 (например, список всех элементов оболочки Shell: папки My Computer, My Documents и т. п.) Соответствующий элемент управления появился в библиотеке ComCtl32 несколько позже, а в компонент он превратился только в Delphi 7.

Что отличает этот "продвинутый" выпадающий список от обычного тсотЬоВох? С функциональной точки зрения основных отличий два: возможность добавлять картинки к элементам и выравнивать последние с разным отступом, имитируя иерархию.

Реализовано это следующим образом.

У компонента TComboBoxEx, помимо свойства items, есть свойство

property ItemsEx: TCcrrboExItems;

которое представляет собой коллекцию элементов типа TComboExitem. Щелкнув на этом свойстве в Инспекторе объектов, увидим типичный редактор коллекций, где каждый элемент обладает такими опубликованными свойствами:


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Август
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс