Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Практична робота №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 |
Приклад: В тілі процедури запишимо
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 року від Різдва Христова.
Розглянемо приклад, в якому числа 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.