CRÉER UN CALENDRIER PERPÉTUEL EN 3 CLICS

samedi 19 avril 2008, par bluegyn_spip

Les sceptiques vont enfin pouvoir gouter à toute la puissance de Delphi :

Ce qui va nous permettre de jouer avec les Dates (qui serviront de base à notre programme de calcul de l’age du capitaine)

Placer un composant MonthCalendar sur la Fiche

* Onglet WIN32

Régler la Propriété ALIGN de MonthCalendar sur :

* alClient

o (Ce qui signifie que le composant doit occuper tout l’espace disponible du conteneur)

o On adapte ensuite la taille du client (la fiche) au nombre de mois qu’on veut voir afficher)

Inscrire la date sélectionnée dans la barre de titre

procedure TForm1.MonthCalendar1Click(Sender: TObject);

begin



form1.caption := dateToStr( form1.MonthCalendar1.date );



end;

C’EST TOUT :’-))

Attention à la conversion

Caption c’est du String

et Calendar c’est du DateTime

Manip’s