Prosty kalendarzyk

Witam jest to mój pierwszy artykuł. Pokaże w nim jak w łatwy sposób zbudować kalendarzyk w Delphi.
Zaczynajmy!

---

<font name="Arial">1.Tworzymy nową aplikację. </span>

2. Na formę kładziemy TTimer, 2 Labele.
   
3. Układamy sobie ładnie wszystko z godnie z naszym uznaniem :)
   
4. Właściwość Interval TTimera ustawiamy na 10.
5. Klikamy na niego dwukrotnie, i w jego kodzie wpisujemy: <fieldset> ```delphi Label1.Caption:=TimeToStr(Time);//pokazujemy czas Label2.Caption:=DateToStr(Date);//pokazujemy datę ``` </fieldset>
   Zapewne większość z Was zna Kalendarz XP.
   Spróbujmy się troszkę upodobnić do niego. :)
   

   ---

   Kolor formy ustawmy na fsFusia. Właściwość TransparentColorValue też. Teraz TransparentColor zmieniamy na True. Na forme kładziemy komponent TShape. Właściwośc Shape zmieniamy na stRoundRect a Align na alCustom. W dolnym prawym rogu jest taki kwadracik( pod formą :)) przesuwamy go na maxa w dół. A teraz wykonujemy pierwsze 5 punktów. Warto dac jeszcze właściwość FormStye formy na fsStayOnTop.

   ---

   A teraz własne guziczki nawigacyjne :)

   ---

6. Ustawiamy Border Style na bsNone.
7. Kładziemy na formę 2SpeedButtony.
   3.Ich właściwość Flat ustawiamy na True.
8. W jednym z nich wpisujemy:

   Application.Terminate;//Zamykamy aplikację

   5.W 2 Speedzie wpisujemy np.

   Form2.Show;//Pokazujemy nową formę

   i w Formie 2 tworzymy np. pomoc.

   ---

   Zapraszam do rozwinięcia tego kalendarzyka dla początkujących.
   To by było na tyle.
   Jeśli zagmatwałem-przepraszam. Liczę na łagodne oceny. Na pytanie odpowiem chętnie przez gg: 294052.