і Регулювання прозорості форми Обробники подій OnMouseDown і OnMouseUp визначають реакцію програми на відповідно
Работа добавлена на сайт samzan.net:
Практична робота №12.
Введення/виведення інформації
План:
- Регулювання прозорості форми.
- Процедури та функції виклику діалогових вікон.
- Робота з датою та часом.
Обробка подій миші. Регулювання прозорості форми
Обробники подій OnMouseDown і OnMouseUp визначають реакцію програми на відповідно натиснення і відпуск кнопки миші, OnMouseMove -на переміщення покажчика миші на компоненті.
Дві властивості AlphaBlend і AlphaBlendValue уперше були введені у версії Delphi 6 і дозволяють регулювати міру прозорості вікна форми. Якщо AlphaBlend = true, то значення властивості AlphaBlendValue задає міру прозорості. 0 - вікно повністю прозоро, 255 - абсолютно непрозорий. Властивості TransparentColorValue і TransparentColor визначають колір прозорості і можливість його використання. Проте вказані властивості працюють тільки з ОС Windows 2000/XP і вище на процесорах Pentium з тактовою частотою не нижче 90 Мгц і відеокарту комп'ютера повинна відображати більше 255 кольорів.
Процедури і функції виклику діалогових вікон
Процедура ShowMessage('<рядок>') відображає вікно з повідомленням і кнопкою ОК. Приклад: ShowMessage('До побачення!')
Процедура ShowMessageFmt('Задано %d параметрів з %d ',[n1, n2]) Останній оператор при n1=5 і n2=7 видасть сполучення з текстом: "Задані 5 параметрів з 7"
Функції відображають вікна, в яких користувачеві задається яке-небудь питання і аналізується отримана відповідь.
Функція MessageDlg(<рядок>, AType, Abuttons, HelpCtx) відображає діалогове вікно і чекає відповідь користувача. Вид відображення вікна задається параметром AType.
|
Значення |
Опис |
|
MtWarning |
Вікно зауважень |
|
MtError |
Вікно помилок |
|
MtInformation |
Інформаційне вікно |
|
MtConfirmation |
Вікно підтвердження |
|
mtCustom |
Замовлене вікно без малюнка |
Параметр Abuttons визначає, які кнопки будуть присутніми у вікні.
|
Значення |
Запис на кнопці |
|
MbYes |
Yes |
|
MbNo |
No |
|
MbOk |
Ok |
|
MbCancel |
Cancel |
|
MbHelp |
Help |
|
MbAbort |
Abort |
|
MbRetry |
Retry |
|
MbIgnore |
Ignore |
|
MbAll |
All |
Визначені 3 константи, що відповідає часто використовуваним поєднанням кнопок
|
MbYesNoCancel |
Входять кнопки Yes, No, Cancel |
|
mbOkCancel |
Входять кнопки Ok, Cancel |
|
mbAbortRetryIgnore |
Входять кнопки Abort, Retry, Ignore |
Лабораторная работа №12
Приклад: В тілі процедури запишимо
Begin
…
if MessageDlg('Yo!',mtWarning,[mbYes, mbNo],0)=mrYes
then close;
end.
Отримаємо:
Завдання для самостійної роботи:
1. Перерозподілити значення змінних x і y так, щоб в х виявилося більше, а в у - менше.
2. Відвідувач програв в казино a рублів. У нього є фішки 2, 5, 15, 20, 50, 100, 500$. Скільки фішок різної гідності віддасть гравець, якщо платитиме з найдорожчих?
Робота з датою і часом
Тип TDateTime
Var t: TDateTime;
Для обробки дати і часу модуль SysUtils містить наступні основні функції:
function Date: TDataTime; - повертає поточну дату як значення типу TDateTime.
function DateToStr(Date: TDateTime) : string; - перетворює дату, вказану параметром Date, в рядок.
function DayOfWeek(Date: TDateTime) : Integer; - повертає номер дня тижня для дати, вказаної параметром Date. Для воскресіння повертається значення 1, для понеділка - 2 і т. д.
function EncodeDate(Year, Month, Day : Word) : TDateTime; - збирає значення дати із заданих складових Year, Month і Day і віз¬обертає його як значення типу TDateTime.
function DecodeDate(Date: TDateTime) : Word; - збирає значення типу TDateTime і віз¬обертає його як значення типу дата із заданих складових Year, Month і Day.
function Now: TDateTime; - повертає значення поточної дати і часу.
function StrToDate(const S; string) : TDateTime; - перетворює значення рядка, що вказується параметром S, в дату типу TDateTime.
function Time: TDateTime; - повертає поточне значення часу.
function TimeToStr(Time: TDateTime) : string; - перетворює час в рядок відповідно до формату, що визначається глобальною змінною LongTimeFormat.
TDateTimePocker - введення і висвітлення дати/часу
Властивості компонента :
|
Властивість |
Опис |
|
CalAlignment |
Визначає положення календаря, що розкривається : dtaLeft - зліва від компонента; dtaRight - праворуч від компонента. Враховується тільки для Kind=dtkDate и DateMode=dmComoBox |
|
CalColors |
Колір календаря |
|
Checked |
Якщо виконуються умови Checked=True і ShowCheckBox=True, то прапорець поряд з полем дати(часу) буде показаний і встановлений. Наявність прапорця або його відсутність дозволяє або забороняє ручне введення дати або часу |
|
Date |
Містить введену дату |
|
DateFormat |
Визначає формат показу дати: dfShort – 11.01.04; dfLong – 5 вересня 2004 г. |
|
DateMode |
Визначає спосіб вибору дати : dmComboBox - за допомогою календаря, що розкривається; dmUpDown - за допомогою вбудованого компонента TUpDown |
|
Kind |
Визначає вміст компонента: dtkDate – дата; dtkTime – час |
|
MaxDate |
Визначає максимальну дату, яку може вибрати або ввести користувач |
|
MinDate |
Визначає мінімальну дату, яку може вибрати або ввести користувач |
|
Time |
Містить введений користувачем час |
TMonthCalendar – календар
Призначений для вибору і відображення дати. Дуже схожий на календар, розглянутий вище, але на відміну від нього може одночасно відображати декілька суміжних місяців - залежно від своїх розмірів.
Властивості компонента :
|
Властивість |
Опис |
|
CalColors |
Колір календаря(фону, дат, заголовків) |
|
Date |
Визначає вибрану дату |
|
EndDate |
Визначає кінцеву дату діапазону вибраних дат |
|
FirstDayOfWeek |
Визначає перший день тижня |
|
MaxDate |
Визначає максимальну дату, місяць якої ще буде доступний для відображення в компоненті. Якщо властивість містить порожнє значення, то відображається будь-який наступний місяць |
|
MinDate |
Визначає мінімальну дату, місяць якої ще буде доступний для відображення в компоненті. Якщо властивість містить порожнє значення, то відображається будь-який попередній місяць |
|
ShowTodayCircle |
Дозволяє/забороняє обводити поточну дату |
|
WeekNumbers |
Дозволяє/забороняє показ порядкових номерів тижнів від початку року в лівій колонці |
TTimer – таймер
Цей компонент служить для відліку інтервалів реального часу. Мінімальний реально досяжний інтервал відліку часу в ОС MS - DOS, Windows 95/98/ME не може бути менше 55 мілісекунд(цей інтервал називається тиком). Для ОС Windows NT Server, Windows 2000, Windows XP тривалість тика складає 10 мілісекунд.
TCalenar – календар
Компонент календар відображає календар на вибраний місяць і рік. Його властивості Day, Month, Year можуть містити будь-яку дату від 1 до 9999 року від Різдва Христова.
Лабораторна робота №12
Розглянемо приклад, в якому числа 2006, 1, 1 виводяться у форматі дати 1.1.2006.
var MyTime: TDateTime;
begin
MyTime := EncodeDate(2006, 1, 1);
Edit1.Text := DateToStr(MyTime); end;
Для виведення в однорядкове вікно поточного запису на екран необхідно Edit1.Text := DateToStr(Now);
Завдання для самостійної роботи:
1. По введеному номеру року знайти кількість понеділків цього року.
2. По введеному номеру року знайти кількість п'ятниць 13.
2. Цивилизация и Великие исторические реки
3. Закономерность развития технологического процесса. Техникоэкономические показатели технологических процессов. Структура технических систем
4. .Предложение. Закон предложения
5. Расчёт объёма аппаратуры телефонного узла г. Любан
6. Прямі податки
7. Хочу быть как вы красивой и сильной птицей заявила она лебедям
8. Ла Саль, Рене Робер Кавелье
9. Контрастов Герои аниматоров- Фея Фиби Элли Розовая Пантера Шапокляк
10. М- Политиздат 1989
11. Многозначные логики Я Лукасевича
12. Основы системного анализ
13. Тема- ОСНОВА СЛОВА И ОКОНЧАНИЕ 5 класс Цели- углубить представление учащихся об окончании как значимой ча
14. Дипломная работа- Договор аренды недвижимости
15. Реферат- Политическая полиция России в ХІХ веке
16. МЭИ ЭЛЕКТРОННЫЙ УЧЕБНОМЕТОДИЧЕСКИЙ КОМПЛЕКС дисциплины по выбору студента вариативной про
17. тема и задачи науки криминалистики 1 понятие и предмет науки криминалистики 2 система задачи и ее мест
18. Тарифная политика в системе предоставления жилищно-комунальных услуг в муниципальном образовании
19. Брачный договор
20. Архітектура промислових і цивільних будівель МЕТОДИЧНИЙ ПОСІБНИК до виконання курсов.html