6. propriétés fondamentales des formes

6.1. Dérivé TCustomForm

Activer <br/> <br/> spécifier lors de la forme a le focus.

 __property bool actif = {lire = FActive, nodefault};

<br/> si l'actif est true, la forme a le focus ; si enable a la valeur false, le formulaire n'a pas le focus.<br/> <br/> ActiveControl <br/> <br/> cette propriété permet d'établir quel contrôle a le focus lorsque vous ouvrez le formulaire.

 __property contrôles : TWinControl ** ActiveControl = {lire = FActiveControl, écrire = SetActiveControl, stockée = IsForm;}

<br/> le gestionnaire d'événements suivant répond aux événements de minuterie en déplaçant l'un pixel contrôle actif sur la droite: < br / > void __fastcall TForm1:Timer1Timer(TObject_*Sender)

 {ActiveControl - > gauche = ActiveControl - > gauche + 1;}

<br/> ActivateMDIChild <br/> <br/> Spécifie que le formulaire MDI enfant a le focus.<br/> lorsque sa valeur, cette propriété retourne un pointeur vers la fenêtre fille active de requête MDI. C'est une propriété en lecture seule. Retourne une valeur NULL si aucune fille active de fenêtre MDI ou si la demande n'est pas MDI. <br/> <br/> __property TForm ** ActiveMDIChild = {lire = GetActiveMDIChild;} <br/> <br/> <em> ce code utilise un bouton dans une application MDI. Lorsque l'utilisateur clique sur le bouton, le formulaire enfant MDI actif est Visual.

 void __fastcall TForm1:Button1Click(TObject_*Sender) {TForm ** forme;}

  Forme = Form1 - > ActiveMDIChild ;

  Si forme (forme) - > WindowState = wsMinimized ;
}

BorderIcons <br/> <br/> spécifier les icônes apparaissent dans la barre d'outils du titre du formulaire.

 enum TBorderIcon {biSystemMenu, biMinimize, biMaximize, biHelp}; typedef Set TBorderIcons ; __property TBorderIcons BorderIcons = {lire = FBorderIcons, écrire = SetBorderIcons, stockée = IsForm, valeur par défaut = 7}

valeur	sens
biSystemMenu	la forme a un menu de contrôle (également connu sous le nom un menu système).
biMinimize	le formulaire comporte un bouton réduire
biMaximize	le formulaire comporte un bouton Agrandir
biHelp	si BorderStyle est bsDialog ou biMinimize et biMaximize sont exclus, un point d'interrogation apparaît dans la barre de titre du formulaire et un clic, le curseur se transforme en crHelp ; sinon, aucun point d'interrogation n'apparaît.

Le code suivant supprime le bouton d'agrandir un formulaire lorsque l'utilisateur clique par bouton :

 void __fastcall TForm1:Button1Click(TObject_*Sender) {BorderIcons = BorderIcons-(TBorderIcons() << biMaximize);}

StyleBordure (BorderStyle) <br/> <br/> indique quel genre de bord devrait avoir la forme. La valeur par défaut est bsSizable (qui peut changer la fenêtre de la taille).

 enum TFormBorderStyle {bsNone, bsSingle, bsSizeable, bsDialog, bsToolWindow, bsSizeToolWin;} __property TFormBorderStyle StyleBordure (BorderStyle) = {lire = FBorderStyle écriture = SetBorderStyle stockée = IsForm, par défaut = 2};

valeur	sens
BsDialog	non redimensionnable ; standard bord des boîtes de dialogue.
BsSingle	non redimensionnable ; edge avec une simple ligne.
BsNone	redimensionnable pas ; la ligne de bord non visibles.
BsSizeable	bordure redimensionnable standard.
BsToolWindow	bsSingle mais avec la légende petite.
BsSizeToolWin	bsSizeable mais avec la légende petite.

<br/> toile <br/>

permet d'accéder à la zone cliente du formulaire pour dessiner. <br/> Camvas propriété donne accès à la surface de la forme à dessiner des bitmaps, des lignes, des contours et texte lors de l'exécution. Le composant Label est habituellement utilisé pour écrire du texte, l'Image à afficher des graphiques et des éléments de forme pour dessiner les contours ou les silhouettes. Mais il est parfois nécessaire au tirage au sort au moment de l'exécution. sert aussi à enregistrer image de disque de la forme.

 __property graphiques : TCanvas ** toile = {lire = GetCanvas;} void __fastcall TForm1:Button1Click(TObject_*Sender) {Graphics : TBitmap ** pBitmap = nouveaux graphiques : TBitmap;}

  Try {pBitmap - > LoadFromFile("C:ProgramFilesBorlandCBuilderImagesSplash256colorfactory.bmp_");}
    pBitmap - > Transparent = true ;
    pBitmap - > TransparentColor = pBitmap - > Canvas - > Pixels [50,50] ;
    Form1 - > Canvas - > dessiner (0,0, pBitmap) ;
    pBitmap - > TransparentMode = tmAuto ;  
    / / Couleur de transparence est maintenant clDefault = 0x20000000 ;
    Form1 - > Canvas - > dessiner (50,50, pBitmap) ;

  } catch (...)
  {ShowMessage("Could_not_load_or_display_bitmap");}
  } supprimer pBitmap ;
} L'exemple suivant peint au Rectangle sur le formulaire lorsque l'utilisateur clique sur Button1.

VOID __fastcall TForm1:Button1Click(TObject_*Sender) {toile - > Rectangle (0, 0, 40, 40);}

ClientHeight <br/> <br/> spécifie la hauteur (en pixels) de la zone client (à l'intérieur de la zone de formulaire).

 __property ClientHeight = {écrire = SetClientHeight, stockée = IsClientSizeStored;}

Cet exemple réduire la hauteur de la zone client du formulaire de moitié lorsque l'utilisateur clique sur le bouton sur le formulaire :

 void __fastcall TForm1:Button1Click(TObject_*Sender) {Form1 - > ClientHeight = Form1 - > ClientHeight/2;}

}

<br/> ClientRect <br/> <br/> cette propriété contient les coordonnées des meilleurs limites, Bas, gauche et droite de la zone cliente du formulaire. <br/> spécifier les dimensions de la zone cliente.

 ClientRec est égale à un Rectangu (0,0), ClientHeight ClientWidth, rectangle.

__property Windows : TRect ClientRect = {lire = GetClientRect;}

<br/> ClientWidth <br/> <br/> spécifier la largeur (en pixels) de la zone client (à l'intérieur de la zone de formulaire).

 __property ClientWidth = {écrire = SetClientWidth, stockée = IsClientSizeStored;}

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}

<br/> FormStyle <br/> <br/> détermine le style de la forme.

 enum TFormStyle {fsNormal, fsMDIChild, fsMDIForm, fsStayOnTop;} __property TFormStyle FormStyle = {lire = FFormStyle, écrire = SetFormStyle, stockée = IsForm, valeur par défaut = 0};

valeur	sens
FsNormal	forme normale (par défaut).
FsMDIChild	indicateur de forme secondaire MDI.
FsMDIForm	principal formulaire MDI.
FsStayOnTop	la forme est toujours à l'avant-plan.

Cet exemple garantit la forme principale de l'application est un formulaire parent MDI :

__fastcall TForm1:TForm1(TComponent*_Owner)

 : TForm (propriétaire) {if(FormStyle_!=_fsMDIForm) FormStyle = fsMDIForm ; if(FormStyle_==_fsMDIForm) Edit1 - > Text = "Formulaire MDI" ; autre //vous ligne exécute jamais Edit1 - > texte = "Pas un formulaire MDI";}

HelpFile <br/> <br/> spécifie le nom du fichier d'aide utilisé dans l'application.

 __property système : AnsiString HelpFile = {lire = FHelpFile, écrire = FHelpFile;}

Icône <br/> <br/> indique l' icône que vous pouvez voir dans la barre de titre lorsque le formulaire est affiché lors de l'exécution ou réduit au minimum. Si l'icône de lien n'est pas spécifiée, Windows affecte un par défaut.

 __property graphiques : TIcon ** icône = {lire = FIcon, écrire = SetIcon, stockée = IsIconStored;}

Ce code assigne une icône de forme lorsque le formulaire est créé :

 __fastcall TForm1:TForm1(TComponent*_Owner) : TForm (propriétaire) {icône - > LoadFromFile ("C:\\PROGRAM FILES\\BORLAND\\CBUILDER\\IMAGES\\ICONS\\EARTH.")}(« ICO ») ;
}

KeyPreview <br/> <br/> spécifier lorsque le formulaire peut recevoir des événements du clavier avant de contrôle actif.

• Si KeyPreview est vrai, des événements de clavier se produisent sur le formulaire, puis dans le contrôle actif.
• Si KeyPreview a la valeur false, les événements de clavier se produisent uniquement sur le contrôle de l'actif.

 __property bool KeyPreview = {lire = FKeyPreview, écrire = FKeyPreview, stockée = IsForm, valeur par défaut = 0};

Cet exemple change de couleur d'une forme d'aqua lorsque l'utilisateur appuie sur une touche, même lorsqu'un contrôle sur la forme a le focus. Lorsque l'utilisateur relâche la touche, la forme revient à sa couleur originale.

 couleur FormColor ; void __fastcall TForm1:FormCreate(TObject_*Sender) {KeyPreview = true} ;


VOID __fastcall TForm1:FormKeyDown(TObject_*Sender,_WORD_&Key,_TShiftState_Shift) {FormColor = Form1 - > couleur;}
Form1 - > Color = clAqua ;
} void __fastcall TForm1:FormKeyUp(TObject_*Sender,_WORD_&Key,_TShiftState_Shift) {Form1 - > Color = FormColor;}

<br/> MDIChildCount

Spécifie le nombre de formulaires ouverts enfants.

 __property int MDIChildCount = {lire = GetMDIChildCount, nodefault};

Le code suivant ferme Form1 s'il n'y a pas d'enfants MDI ouverts :

 void __fastcall TForm1:Button1Click(TObject_*Sender) {Close() if(MDIChildCount_==_0)} ;

MDIChildren

Fournit un index pour accéder aux formulaires un enfants MDI.

 __property TForm ** MDIChildren [int I] = {lire = GetMDIChildren;}

Le code suivant ferme tous les enfants MDI de Form1.

 void __fastcall TForm1:Button1Click(TObject_*Sender) {pour (int_i_ = _0 ; _i_ < _MDIChildCount ; _i ++) MDIChildren [i] - > Close();}

Menu

<br/> <br/> la propriété de Menu est utilisé pour charger et activer le menu sous la forme lors de l'exécution. Le composant TmainMenu doit être chargé dans la forme.

 __property menus : TMainMenu ** Menu = {lire = FMenu, écrire = SetMenu, stockée = IsForm;}

Ce code affiche un nouveau menu nommé MyMenu lorsque l'utilisateur clique sur le bouton.

 TMenuItem ** Item1 ;

TMainMenu ** MyMenu ;
/ /-void __fastcall TForm1:Button1Click(TObject_*Sender) {Item1 = new TMenuItem (cela)} ;
Item1 - > Caption = « Nouvel élément » ;

MyMenu = nouvelle TMainMenu (this) ;
MyMenu - > Items - > ajouter (Item1) ;

Menu = MyMenu ;
} / /-void __fastcall TForm1:FormDestroy(TObject_*Sender) {MyMenu pour (int_i_ = _0 ; _i_ < _MyMenu-> Items - > Count ; _i ++)-> Items [i].}Supprimer (Item1) ;

supprimer Item1 ;
supprimer MyMenu ;
}

ModalResult <br/> ObjectMenuItem <br/> OLE <br/> OleFormObject <br/> OLE <br/> Parent <br/> PixelsPerInch <br/>

Position

détermine taille et la position de la forme, lorsqu'elle s'ouvre pour la première fois.

 enum TPosition {poDesigned, poDefault, poDefaultPosOnly, poDefaultSizeOnly, poScreenCenter;} __property TPosition Position = {lire = FPosition, écrire = SetPosition, stockée = IsForm, valeur par défaut = 0};

valeur	sens
PoDesigned	même position dans la phase de conception.
PoDefault	Windows définit la taille et la position selon l'algorithme de commande de Z.
PoDefaultPosOnly	la position sur l'écran la même position dans la phase de conception. sélectionnez Windows.
PoDefaultSizeOnly	même position dans la phase de conception. Windows sélectionne la taille de.
PoScreenCenter	la forme est toujours située dans le Centre de l'écran.

PrintScale

représente les proportions de la forme dans l'imprimante.

 enum TPrintScale {poNone, poProportional, poPrintToFit}; __property TPrintScale PrintScale = {lire = FPrintScale, écrire = FPrintScale, stockée = IsForm, valeur par défaut = 1};

valeur	sens
PoNone	ne s'applique pas toute échelle. La sortie de la forme varie entre une imprimante et une autre imprimante.
PoProportional	l'option proportionnelle est destinée à imprimer la forme approximative de ce qui ressemble à l'écran possible.
PoPrintToFit	augmente ou réduit la taille de l'image pour faire correspondre les paramètres de l'imprimante.

Le code suivant conserve les proportions de la forme lorsqu'il est imprimé.

 Form1 - > PrintScale = poProportional ;

Form1 - > Print() ;

Plus <br/> TileMode <br/> MDI <br/>

Visible

Indique si formulaire est initialement visible ou non. Cette propriété est très utile lors de l'exécution, établit ou non une forme est visible.

 __property Visible = {écrire = instancie, valeur par défaut = 0;}

Le code suivant utilise deux formes. Form1 a un bouton sur elle. La seconde forme est utilisée comme une palette d'outils. Ce code fait de la forme visible de la palette et assure c'est la forme haut il apportait à la vitrée <br/> pour exécuter cet exemple, vous devez inclure Unit2.h dans le fichier source centres.

 void __fastcall TForm1:ShowPaletteButtonClick(TObject_*Sender) {si (!)}Form2-> Visible) {Form2 - > Visible = true;}
Form2 - > BringToFront() ;
}
}

WindowMenu

Utilise la propriété WindowsMenu de charger et d'activer le menu du parent MDI forme lors de l'exécution. Le composant TmainMenu doit être chargé dans la forme.

 __property menus : TMenuItem ** WindowMenu = {lire = FWindowMenu, écrire = SetWindowMenu, stockée = IsForm;}

<br/> <em> pour l'exécution de ce code, au menu élément appelé MyWindowsApp doit exister sur un MDI parent formulaire. Cette ligne de code désigne le menu MyWindowsApp comme le menu de la fenêtre, le menu qui répertorie toutes les fenêtres ouvertes enfant dans une application MDI :

 WindowMenu = MyWindowsApp ;

WindowState

Cette propriété est disponible afin de déterminer l'état actuel de la forme (réduite, agrandie ou normale). Il peut également être utilisé pour indiquer comment le formulaire doit montrer au départ. Les options sont wsMinimized, wsMaximized et wsNormal.

 enum TWindowState {wsNormal, wsMinimized, wsMaximized}; __property TWindowState WindowState = {lire = FWindowState, écrire = SetWindowState, stockée = IsForm, valeur par défaut = 0}

valeur	sens
WsNormal	le formulaire s'affiche dans son état normal (c'est-à-dire son état non visuel, non maximisé).
WsMinimized	le formulaire s'affiche dans son état visuel.
WsMaximized	le formulaire s'affiche dans son état maximisé.

Le code suivant répond à l'utilisateur en cliquant sur bouton nommé rétractables en réduisant au minimum la forme :

 void __fastcall TForm1:ShrinkClick(TObject_*Sender) {WindowState = wsMinimized};