Accueil > Manip’s > Delphi > Atelier Delphi pour les Nuls > Exercices > T21 > Risque lié à l’age de la mère
Risque lié à l’age de la mère
lundi 21 avril 2008, par
Nous avançons à grands pas,
On propose de réaliser une :
Réglette qui calcule le risque de Trisomie à terme à partir de l’age de la mère
On suppose que les bases sont acquises (mais on peut à tout moment y revenir)
Je crée une Fiche, (form1)
Question : Modification du titre ?
Réponse = CAPTION
J’y place 2 panneaux STANDARD / PANEL (vous allez voir la puissance visuelle de Delphi)
Panel1
- Je règle align sur alTOP
Panel2
- Align = alCLIENT
Un curseur dans Panel1 WIN32 / TrackBar
- Align = alTOP
- Min = 20 (ans)
- Max = 45
- Position = 30 (par défaut)
- selstart = 38 (zone à risque)
- Frequency = 1 (intervalle des marques)
- PageSize = 1 (1 clic = 1 an)
Un MaskEdit dans Panel1
- EditMask = 99 \ans ;0
La puissance de Align est que je peux maintenant redimensionner ma fiche dans tous les sens, la taille des objets s’adapte automatiquement)
Je relie mon Unité formule_obs.pas au projet
Placer le fichier formules_obs.pas à côté du unit1.pas de la fiche
MENU
- Projet
-
- Ajouter ...
-
-
- Localiser et cliquer sur formule_obs.pas
-
Il faut aussi déclarer "formules_obs.pas" sur la fiche
Clauses USES
- Je rajoute simplement :
-
- formules_obs
Ne pas mettre l’extension pas (puisque ce n’est pas le module pascal qui sera lu mais sa compilation binaire)
Pour consulter un module PAS
- Ficher / Ouvrir / *.pas
=> A vous de jouer !
A la fin ça doit donner ça :