Объект DateTimePicker

Begin

Begin

Begin

Begin

Begin

Var

Практическое работа

Создадим проект, который демонстрирует режимы показа элементов в списке ListView. Список наполняем программно пиктограммами и текстом.

На форме расположите компоненты ListView, ImageList (контейнер картинок, содержащий пиктограммы), ComboBox (содержит стили показа элементов) и CheckBox (для показа независимых переключателей рядом с элементами списка).

Опишем обработчик события OnCreate для формы:

procedure TForm1.FormCreate(Sender: TObject);

k:integer;

l:TListItem;

with listview1 do

//Указываем источник изображений

smallImages:=ImageList1;

LargeImages:=Imagelist1;

// Наполняем ListView пиктограммами и текстом

for k:=0 to imageList1.Count-1 do

L:=Items.Add;//Добавляем элемент в ListView

L.imageindex:=k;//Указываем индекс изображения из ImageList

L.caption:='Рисунок'+inttostr(k);//Вставляем надпись с номером

Columns.Add;//Создаем колонку для режима vsReport

columns[0].Caption:='Колонка1';

columns[0].Width:=80;

end

//Наполняе список ComboBox доступными стилями ListView

Combobox1.Items.AddObject('vsIcon',TObject(vsIcon));

Combobox1.Items.AddObject('vsList',TObject(vsList));

Combobox1.Items.AddObject('vsReport',TObject(vsReport));

Combobox1.Items.AddObject('vsSmallIcon',TObject(vsSmallIcon));

end;

end;

Событие выбора пункта ComboBox:

procedure TForm1.ComboBox1Change(Sender: TObject);

with combobox1 do

ListView1.ViewStyle:=TViewStyle (Items.Objects[ItemIndex]);

end;

Установка переключателей рядом с элементами списка:

procedure TForm1.CheckBox1Click(Sender: TObject);

ListView1.Checkboxes:=checkbox1.Checked;

end;

Глава XIX. Работа с датами и временем

Компонент предназначен для ввода и/или отображения даты и времени.

Свойство	Значение
Date	Дата. По умолчанию текущая
Time	Введенное пользователем время
DateMode	Вид календаря. dmComboBox – выпадающий список dmUpDown – реверсивный счетчик
Kind	Тип календаря. dtkDate – отображает дату dtkTime –отображает время
MaxDate	Возможность установить максимальную дату
MinDate	Возможность установить минимальную дату
DateFormat	dfShort – короткий. 31.12.02. dfLong – длинный. 31 декабря 2002 г.

При показе даты в режиме DateMode=dmComboBox календарь можно не раскрывать, и устанавливать дату вручную в верхнем окне

Дата добавления: 2015-05-09