Vcl.Dialogs.TFontDialog.Font
Delphi
property Font: TFont read FFont write SetFont;
C++
__property Vcl::Graphics::TFont* Font = {read=FFont, write=SetFont};
Propriétés
Type | Visibilité | Source | Unité | Parent |
---|---|---|---|---|
property | published | Vcl.Dialogs.pas Vcl.Dialogs.hpp |
Vcl.Dialogs | TFontDialog |
Description
Indique la fonte sélectionnée.
Quand l'utilisateur sélectionne une boîte de dialogue et clique sur OK, la fonte sélectionnée devient la valeur de la propriété Font. Pour faire apparaître une fonte par défaut à l'ouverture de la boîte de dialogue, affectez une valeur à Font dans l'inspecteur d'objets ou le code du programme.
FontDialog1.Font := Form1.Font; if FontDialog1.Execute then for i := 0 to (Form1.ControlCount - 1) do if (Form1.Controls[i] is TButton) then (Form1.Controls[i] as TButton).Font := FontDialog1.Font
FontDialog1->Font = Form1->Font; if (FontDialog1->Execute()) Button1->Font = FontDialog1->Font;