Prosty kalendarzyk

Gladiatus

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>

  1. Na formę kładziemy TTimer, 2 Labele.
  2. Układamy sobie ładnie wszystko z godnie z naszym uznaniem :)
  3. Właściwość Interval TTimera ustawiamy na 10.
  4. 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 :)
  5. Ustawiamy Border Style na bsNone.
  6. Kładziemy na formę 2SpeedButtony.
    3.Ich właściwość Flat ustawiamy na True.
  7. 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.

4 komentarzy

Spoko ;) Oby więcej takich prostych gotowców ;)

Kiepścizna...

"Zapewne większość z Was zna Kalendarz XP. "
Nie powiedziłbym

Już lepiej dać na foremke MonthCalendar, ale brawo. Już lepiej to niż nic.

Artykuł to to nie jest, zostaw to tylko w gotowcach