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>
- Na formę kładziemy TTimer, 2 Labele.
- Układamy sobie ładnie wszystko z godnie z naszym uznaniem :)
- Właściwość Interval TTimera ustawiamy na 10.
- 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 :) - Ustawiamy Border Style na bsNone.
- Kładziemy na formę 2SpeedButtony.
3.Ich właściwość Flat ustawiamy na True. - 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.
Artykuł to to nie jest, zostaw to tylko w gotowcach
Już lepiej dać na foremke MonthCalendar, ale brawo. Już lepiej to niż nic.
Kiepścizna...
"Zapewne większość z Was zna Kalendarz XP. "
Nie powiedziłbym
Spoko ;) Oby więcej takich prostych gotowców ;)