2 (2412)

118 Aplikacje w Delphi. Przykłady

Przykład 10.1.

Korzystając z komponentu TDateTimePicker ustaw dowolną datę i po kliknięciu przycisku oblicz, ile dni upłynęło od tej daty do dnia bieżącego. Wynik wyświetl na etykiecie.

Rozwiązanie

Wstaw komponent TDateTimePicker (Win32), przycisk i etykietę.

procedurę TForml.ButtonlClick(Sender: TObject); begin

Labell.Caption:='Od wybranej daty od dnia dzisiejszego upłynęło'+ InttoStr(Round(Date-DateTimePickerl.Date)+l)+' dni':

end:

Przykład 10.2.

Po kliknięciu przycisku wyświetl wszystkie daty mieszczące się w zakresie zaznaczonym na komponencie TMonthCal endar.

Rozwiązanie

Wstaw komponent TMonthCal endar (Win32), przycisk i etykietę. Właściwość MultiSelect ustaw na true. W procedurze ButtonlCl ick wpisz instrukcje, jak w procedurze poniżej.

procedurę TForml.ButtonlClick(Sender: TObject):

var data: TDate;

begin

Labell.Caption:-'':

data:=MonthCalendarl.Datę:

repeat

Label1.Capti on:=Label1.Capti on+DateToStr(data)+#13: data:=data+l:

unti1 data=MonthCal enda rl.EndDate+1: end;

Przykład 10.3.

Wyświetl wybraną datę w okienku komponentu TDateTimePicker w formacie dzień, miesiąc, rok.

Rozwiązanie

Kliknij dwukrotnie formularz i w procedurze obsługi zdarzenia OnCreate wpisz instrukcję:

DateT i mePi ckerl.Format: =¹dd.MM.yyyy';

Sposób formatowania daty i czasu dla komponentu TDateTimePicker można znaleźć w pomocy kontekstowej — umieść kursor w białym polu obok właściwości Format dla komponentu TDateTimePicker i naciśnij FI.