6.2. Dérivé TscrollingWinControl

Ces propriétés contrôlent les barres de défilement d'un formulaire. Si le défilement automatique est définie sur true (valeur par défaut), les barres s'affichent automatiquement lorsque le formulaire est trop petite pour accueillir tous les composants.

<br/> AutoScroll <br/> indique quand le rouleau barres apparaissent automatiquement lorsque les objets ne rentrent pas dans la forme.

 __property bool AutoScroll = {lire = FAutoScroll, écrire = SetAutoScroll, valeur par défaut = 1};

HorzScrollBar <br/> représente la barre de défilement horizontale.

 __property TControlScrollBar ** HorzScrollBar = {lire = FHorzScrollBar, écrire = SetHorzScrollBar;}

VertScrollBar <br/> représente la barre de défilement verticale.

__property TControlScrollBar ** VertScrollBar = {lire = FVertScrollBar, écrire = SetVertScrollBar;}

Cet exemple démarre la forme en position afin que le bord de la main droite montre : défilé

 void __fastcall TForm1:FormCreate(TObject_*Sender) {/ ** définir la largeur de la fenêtre de formulaire pour afficher les 300 pixels dans la zone client ** / ClientWidth = 300;}

  / ** définir la plage de la largeur du client deux fois maintenant.

   Cela signifie que le formulaire possède une taille logique qui est deux fois aussi grande que la fenêtre physique.
   Notez que la gamme doit toujours être au moins aussi grand que ClientWidth ! ** / HorzScrollBar - > Range = 600 ;

  / ** démarrer le formulaire entièrement défilé ** / HorzScrollBar - > Position = HorzScrollBar - > Range - ClientWidth ;

  / ** en cliquant sur les flèches de défilement déplace les pixels de la forme 10 ** / HorzScrollBar - > incrément = 10 ;
  HorzScrollBar - > Visible: = true ;  {/ / Afficher la barre de défilement}

6.3. Dérivés de TWinControl

ClientOrigin <br/> indique les coordonnées à l'écran (en pixels) de l'angle gauche, haut de la zone cliente du contrôle.

 __property tagPOINT ClientOrigin = {lire = GetClientOrigin;}

ClientOrigin de la lecture pour découvrir où le coin supérieur gauche du contrôle est à l'écran. ClientOrigin retourne x et et les coordonnées d'un enregistrement de type tagPOINT. Le type tagPOINT définissent la localisation du pixel à l'écran, à l'origine dans le coin supérieur gauche du contrôle. X spécifie la coordonnée horizontale du point et la coordonnée verticale.

<br/> ControlCount <br/> indique le nombre de contrôles dans un contrôle conteneur.

 __property int ControlCount = {lire = GetControlCount, nodefault};

Cet exemple utilise une zone de groupe sur un formulaire avec plusieurs boutons radio contenues dans la zone de groupe. Le formulaire possède aussi une zone d'édition et un bouton à l'extérieur de la zone de groupe. Le code définit le parent des boutons radio du groupe radio. Elle compte alors les contrôles enfants de chaque contrôle chacun d'eux tourne en invisible comme ils sont comptés. Le nombre total de personnage apparaît dans les contrôles de zone d'edit.

 void __fastcall TForm1:Button1Click(TObject_*Sender) {RadioButton1 - > Parent = RadioGroup1;}
	RadioButton2 - > Parent = RadioGroup1 ;
	RadioButton3 - > Parent = RadioGroup1 ;

	pour (int_i = 0; _I_ < _RadioGroup1-> ControlCount ; _i ++) RadioGroup1 - > contrôles [i] - > Visible = false ;
	Edit1 - > Text = String (RadioGroup1 - > ControlCount) + chaîne (« contrôles ») ;
}

Contrôles <br/> est un tableau de tous les contrôles dans un contrôle conteneur. <br/> Remarque : Regardez l'exemple de ControlCount.

 __property TControl ** = contrôles [int Index] {lire = GetControl;}

Ctl3D <br/> détermine si le contrôle peut être vu en trois dimensions (3d) ou deux dimensions.

 __property bool Ctl3D = {lire = FCtl3D, écrire = SetCtl3D, stockée = IsCtl3DStored, nodefault};

Le code suivant permet d'activer l'aspect 3D note contrôle lorsque l'utilisateur clique sur bouton nommé bascule :

 void __fastcall TForm1:ToggleClick(TObject_*Sender) {Memo1 - > Ctl3D =!}Memo1 - > Ctl3D ; {//Toggles le Ctl3d propriété de //Memo1}

gérer

HelpContext <br/> fournit l' identificateur d'une forme d'aide contextuelle. Si une aide contextuelle est disponible, Windows affiche la lorsque F1 est pressé. L'indicateur sert à indiquer à quelle page du fichier d'aide doit afficher le système d'aide.

 typedef int THelpContext ; __property HelpContext Classes : THelpContext = {lire = FHelpContext, écrire = FHelpContext, valeur par défaut = 0;}

ParentWindow <br/> montrant <br/> <br/>

TabOrder <br/> indique la position du curseur dans l'onglet commandes.

 __property TTabOrder TabOrder = {lire = GetTabOrder, écrire = SetTabOrder, valeur par défaut =-1;}

Cet exemple garantit que la case à cocher sur le formulaire est le premier dans l'ordre de tabulation, et donc, le contrôle actif chaque fois que le formulaire s'affiche, n'importe combien d'autres contrôles sont sur le formulaire :

 void __fastcall TForm1:FormCreate(TObject_*Sender) {CheckBox1 - > TabStop = true;}
    CheckBox1 - > TabOrder = 0 ;
}

TabStop <br/> détermine si l'utilisateur peut de contrôle d'accès avec la touche tab.

 __property bool TabStop = {lire = FTabStop, écrire = SetTabStop, valeur par défaut = 0;}

Ce code supprime ListBox1 de l'ordre de tabulation, afin que l'utilisateur ne peut pas utiliser la touche Tab pour aller à la zone de liste :

 ListBox1 - > TabStop = false ;

6.4. Dérivé de TControl

Align <br/> détermine l' alignement du contrôle de son conteneur.

 enum TAlign {alNone, haute, alBottom, alLeft, alRight, alClient}; __property TAlign Align = {lire = FAlign, écrire = SetAlign, valeur par défaut = 0;}

valeur de	sens
AlNone	les restes de la composante où il a été placé sur la form ou panel. C'est la valeur par défaut.
Haute	le composant se déplace vers le haut de la forme et redimensionne pour remplir la largeur de la forme. La hauteur du composant n'est pas affectée.
AlBottom	le composant se déplace vers le bas du formulaire et redimensionne pour remplir la largeur de la forme. La hauteur du composant n'est pas affectée.
AlLeft	le composant se déplace sur le côté gauche de la forme et redimensionne pour remplir la hauteur de la forme. La largeur de l'élément n'est pas affectée.
Bien	le composant se déplace sur le côté droit du formulaire et redimensionne pour remplir la hauteur de la forme. La largeur de l'élément n'est pas affectée.
AlClient	le composant redimensionne pour remplir la zone cliente d'un formulaire. Si un composant déjà partie du gouverneur de la zone client, le composant redimensionne à insérer dans la zone client restantes.

 / / créer dynamiquement un contrôle TProgressBar / / et correspondre au fond de la forme. void __fastcall TForm1:Button1Click(TObject_*Sender) {TProgressBar ** ProgressBar = nouvelle TProgressBar (this);}
ProgressBar - > Parent = this ;
ProgressBar - > Align = alBottom ;
}

BoundsRect <br/>

Légende <br/> spécifier le texte qui identifie le contrôle à utiliser.

 __property système : AnsiString Caption = {lire = GetText, écrire = Browserextension;}

Le suivant code conserve la taille de la constante du contrôle label, même si les modifications de la durée de la légende de l'étiquette. En conséquence, la légende de l'étiquette est probablement trop longue à afficher dans l'étiquette lorsque l'utilisateur clique sur le bouton :

 void __fastcall TForm1:Button1Click(TObject_*Sender) {Label1 - > AutoSize = false;}
    Label1 - > Caption = « cette chaîne est trop longue, comme la légende de cette étiquette » ;
} <br/>

couleur <br/> spécifie la couleur d'arrière-plan du contrôle.

 __property color Graphics : TColor = {lire = FColor, écrire = SetColor, stockée = IsColorStored, valeur par défaut =-2147483643};

Le code suivant modifie la couleur du contrôle de forme à l'aide de la boîte de dialogue couleurs. L'exemple affiche la boîte de dialogue de couleur lorsque le bouton Button1 est cliqué, permettant à l'utilisateur de sélectionner une couleur avec la boîte de dialogue. Lorsqu'une valeur de couleur est sélectionnée avec la boîte de dialogue, il est assigné à la commande de la forme.

 void __fastcall TForm1:Button1Click(TObject_*Sender) {si (ColorDialog1 - > Execute) Shape1 - > Color = ColorDialog1 - > couleur;}

Curseur <br/> spécifier l' image utilisée pour représenter le pointeur curseur lorsqu'il traverse la région du contrôle.

 __property TCursor curseur = {lire = FCursor, écrire = SetCursor, valeur par défaut = 0;}

crDefault quelle curseur est la valeur par défaut pour la classe de fenêtre. Habituellement crArrow.

Activé <br/> propriété qui indique quand le contrôle répondre aux événements de minuterie, de souris et de clavier,.

 __property bool Enabled = {lire = FEnabled, écrire = Setenable, valeur par défaut = 1};

Pour désactiver le bouton appelé FormatDiskButton,

 FormatDiskButton - > Enabled = false ;

Police <br/> contrôle les attributs de texte du contrôle <br/> police utilisée sur le formulaire. Police spécifiée pour la forme est inhérente à tout composant situé dans elle (dépend de la propriété ParentFont).

 __property graphiques : TFont ** police = {lire = FFont, écrire = SetFont, stockée = IsFontStored;}

De changer pour une nouvelle police, spécifiez un nouvel objet TFont. Pour modifier la police, modifiez la valeur de la couleur, hauteur, nom, Pitch, taille ou le Style de l'objet TFont.

Pour utiliser cet exemple, placez TComboBox et TRichEdit à forme. <br/> lors de la création de formulaire, une liste de noms de polices sont chargés dans la liste déroulante. Lorsque l'utilisateur clique sur la zone de liste modifiable, le contrôle Rich Edit est défini pour le nom de la police de la police de corrosponding combo box.

 void __fastcall TForm1:FormCreate(TObject_*Sender) {pour (int i = 0; i < écran - > Fonts - > Count; i ++) ComboBox1 - > Articles - > Add (écran - > polices - > Strings[i]);}

VOID __fastcall TForm1:ComboBox1Click(TObject_*Sender) {RichEdit1 - > Font - > nom = ComboBox1 - > Items - > chaînes [ComboBox1 - > ItemIndex];}

Hauteur <br/> spécifie la hauteur du contrôle ou du formulaire en pixels.

 __property int Height = {lire = FHeight, écrire = SetHeight, nodefault};

Indicateur de <br/> contient le texte qui s'affiche lorsque vous déplacez la souris sur le contrôle.

 __property système : AnsiString indice = {lire = FHint, écrire = FHint;}

Edit1 - > indice = « Name| »« Entrez le nom dans la zone d'édition »;

« Nom » de la chaîne apparaît dans la zone d'aide astuce et la chaîne « Entrée nom complet dans la zone d'édition » apparaît comme spécifiée dans le gestionnaire d'événements OnHint.

Cet exemple utilise une zone d'édition et une zone de liste dans un formulaire. Les éléments sont ajoutés à la zone de liste et un soupçon d'aider est attribué pour les deux contrôles. La dernière instruction permet les conseils aide pour l'application entière.

 void __fastcall TForm1:FormCreate(TObject_*Sender) {Edit1 - > indice = « Entrez votre nom »;}
    Edit1 - > ShowHint = true ;

    chaîne de char [10] ;
    indice de char [3] ;

    pour (int_i_ = _1 ; _I_ < = _10 ; _i ++) {itoa(i,_string,_10)} ;
	strcpy (chaîne, « Item ») ;
	ITOA(i,_index,_10) ;
	strcat (chaîne, index) ;
	ListBox1 - > Items - > Add (string) ;
    } Indice = « Sélectionnez un élément » ;
    ShowHint = true ;
    Application - > ShowHint = true ;
}

Gauche <br/> spécifier la distance entre le côté gauche de la composante et le conteneur en pixels (Coordonnée X).

 __property int gauche = {lire = FLeft, écrire = SetLeft, nodefault};

ParentFont <br/> détermine si le contrôle utilise la source définie pour son conteneur et pas la vôtre.

 __property bool ParentFont = {lire = FParentFont, écrire = SetParentFont, valeur par défaut = 1};

Cet exemple utilise un composant timer et un contrôle label. Lorsqu'un événement OnTimer continue et l'étiquette utilise la police de sa société mère, le code modifie la propriété ParentFont de l'étiquette à False et modifie la taille de police de l'étiquette à 30 points. Lorsqu'un événement OnTimer continue et que l'étiquette n'utilise pas de police de sa société mère, le code définit son ParentFont sur true. Le résultat est que la pousse de la police de l'étiquette et réduit alternativement, chaque fois un OnTimer événement continue.

 void __fastcall TForm1:Timer1Timer(TObject_*Sender) {si (Label1 - > ParentFont_ == _true) Label1 - > Font - > taille = 30;}
    Else Label1 - > ParentFont = true ;
}

PopupMenu <br/>

ShowHint <br/> détermine s'affiche ou non le texte qui s'affiche lorsque vous déplacez la souris sur le contrôle. <br/> voir la propriété Hint.

 __property bool ShowHint = {lire = FShowHint, écrire = SetShowHint, stockée = IsShowHintStored, nodefault};

Haut <br/> spécifier la distance entre le haut de la composante et le conteneur en pixels (coordonner et).

 __property int Top = {lire = FHaut, écrire = SetTop, nodefault};

Largeur <br/> spécifie la largeur du contrôle ou du formulaire en pixels.

 __property int Width = {lire = FWidth, écrire = SetWidth, nodefault};