Remerciez-le!

Remerciez @Admin pour avoir partagé cet document gratuitement, de la manière la plus simple, en partageant sur les réseaux sociaux.

Spécialité : TS Base de donnée Module : Delphi monoposte Semestre : 03 Thème 15

Spécialité : TS Base de donnée Module : Delphi monoposte Semestre : 03 Thème 15: Les composants non visibles Objectifs : A la fin du TP, le stagiaire doit être capable de :  Utiliser les composant ‘Timer’,’Colordialg’,’Opendialog’,’Savedialog’ Pré-requis : - Opérations sur les projets Temps prévu : 08 Heures Plan du TP : I) Le composant Timer II) le composant Colordialog III) le composant Opendialog IV) le composant Savedialog Moyens et aides pédagogiques : - Tableau - PC + logiciel Delphi Documentation : Remarques : Thème 14 : Les composants non visibles I)Le composant ‘Timer’ 1) Définition : Le composant Timer : 2) Fiche technique: Fiche technique Icône Visibilité Non Visible Conteneur Non 3) Les propriétés: Propriétés Enabled Utilisez la propriété Enabled pour activer ou désactiver le timer Interval Détermine l'intervalle de temps, exprimé en millisecondes, s'écoulant avant que le composant timer génère un autre événement OnTimer. La valeur par défaut est 1 000 (une seconde) 4) Les événements: Propriétés OnTimer Utilisez l'événement OnTimer pour coder un gestionnaire d'événement qui exécute des actions à intervalles réguliers. Il se produit quand le temps spécifié par la propriété Interval s'est écoulé 5) Exemples d’utilisation : 1) Afficher l’heure système : procedure Tform1.Timer1Timer(Sender: TObject); begin label1.caption:=timetostr(now) ; end; 2) Afficher une barre de progression : procedure TForm1.Timer1Timer(Sender: TObject); begin ProgressBar1.Position:=ProgressBar1.Position+1; end ; II. Le composant Colordialog : 1) Définition : Le composant TColorDialog affiche une boîte de dialogue permettant de sélectionner des couleurs. 2) Fiche technique: Fiche technique Icône sur la palette dialogues Visibilité Non Visible Conteneur Non 3) Les propriétés: Propriétés Color Quand l'utilisateur sélectionne une couleur dans la boîte de dialogue puis clique sur OK, la couleur sélectionnée devient la valeur de la propriété Color CustomColors Indique quelles sont les couleurs personnalisées disponibles dans la boîte de dialogue. 4) Les méthodes: Propriétés Execute Affiche la boîte de dialogue de sélection de couleur en renvoyant True lorsque l'utilisateur sélectionne une couleur et clique sur OK, ou en renvoyant False lorsque l'utilisateur abandonne. 5) Exemple d’utilisation: procedure TForm1.Button1Click(Sender: TObject); begin if ColorDialog1.Execute then form1.Color := ColorDialog1.Color; end; III.Le composant Opendialog : 1) Définition : TOpenDialog affiche une boîte de dialogue Windows permettant de sélectionner et d'ouvrir des fichiers. Quand l'utilisateur clique sur Ouvrir, la boîte de dialogue se ferme et les fichiers sélectionnés sont stockés dans la propriété Files. 2) Fiche technique: Fiche technique Icône sur la palette dialogues Visibilité Non Visible Conteneur Non 3) Les propriétés: Propriétés FileName Indique le nom et le chemin du dernier fichier sélectionné. Title Spécifie le texte de la barre de titre de la boîte de dialogue. 4) Les méthodes: Propriétés Execute ouvre la boîte de dialogue de sélection de fichier, et renvoie True lorsque l'utilisateur sélectionne un fichier puis clique sur Ouvrir. Si l'utilisateur clique sur Annuler, Execute renvoie False. 5) Exemples d’utilisation : procedure Tfprince.btParcourirClick(Sender: TObject); begin If opendialog1.execute then begin Memo1.lines.loadfromfile(opendialog1.filename) ; Edit1.text:=opendialog1.filename; end ; end; IV. Le composant Savedialog : Définition : SaveDialog affiche une boîte de dialogue «Enregistrer sous» permettant d'enregistrer des fichiers. Quand l'utilisateur clique sur Enregistrer, la boîte de dialogue se ferme et le nom de fichier sélectionné est stocké dans la propriété FileName. Fiche technique: Fiche technique Icône sur la palette dialogues Visibilité Non Visible Conteneur Non Les propriétés: Propriétés FileName Indique le nom et le chemin du dernier fichier sélectionné. Title Spécifie le texte de la barre de titre de la boîte de dialogue. InitialDir définit le répertoire par défaut affiché par la boîte de dialogue de sélection de fichier quand elle est ouverte 1) Les méthodes: Propriétés Execute ouvre la boîte de dialogue de sélection de fichier, et renvoie True lorsque l'utilisateur sélectionne un fichier puis clique sur Ouvrir. Si l'utilisateur clique sur Annuler, Execute renvoie False. 2) Exemples d’utilisation : procedure Tfprince.btParcourirClick(Sender: TObject); begin If savedialog1.execute then begin Memo1.lines.savetofile(savedialog1.filename) ; Edit1.text:=savedialog1.filename; end ; end; uploads/Litterature/ delphi-timer-et-dialogs.pdf