FAQ DelphiConsultez toutes les FAQ

Il nous est à tous venu le besoin de cacher un libellé ou tout autre composant visuel sur une forme selon une valeur de champ.
Il est bien sûr possible de faire ceci par code dans un évènement comme l’OnChange (du champ ou de la source de données).
Les liaisons de champs via LiveBindings nous sont proposées depuis la version XE2, aussi bien pour VCL que FMX.
L'utilisation en est incontournable avec FMX pour les composants visuels d'affichage de données, sauf à écrire beaucoup de code, impliquant donc plus de risque d'erreurs de programmation.
S'il est très facile de lier visuellement une valeur de champ à une propriété Text d'un composant, il n'en est pas de même pour la propriété Visible.

Pour les besoins de la démonstration, j'utiliserai un TLabel et une source de données (ici un TFDQuery) contenant un champ alphanumérique.

Première étape  : lier la propriété text du TLabel avec le champ.

Pour cela, l'utilisation du Concepteur LiveBindings suffit. Cette utilisation va mettre sur la forme deux composants supplémentaires  : un TBindingList et un TBindSourceDB.



Deuxième étape : accéder à la propriété Visible du TLabel.

Cliquer sur les ... du cadre du composant et rechercher et cocher la propriété Visible dans la liste qui apparaît :



Troisième étape : établir le lien entre la propriété et le champ.



Visuellement, c'est simplissime, un simple mouvement de souris et la liaison est établie entre le champ et la propriété.
Cependant, le champ n'étant pas un booléen, cela ne peut fonctionner ; il nous faut alors faire quelque chose pour convertir la valeur du champ lié en valeur True ou False.
C'est à cela que va servir la propriété CustomFormat du lien. Nous utiliserons pour cela une des méthodes par défaut des LiveBindings : IfThen (attention, CustomFormat est sensible à la casse) :

1
2
 
IfThen(%s='0', False, True)

1
2
3
 
IfAll(%s<>'0') 
IfAny(%s<>'0')

Il nous est tous venu le besoin d'avoir à faire apparaître une valeur numérique d'un champ selon un certain format  : nombre de zéros significatifs, nombre de décimales ou encore avec des signes.
La méthode classique : utiliser la propriété de formatage du champ ; cependant, pour cela il faut que les champs soient déclarés.
L'autre solution consiste à utiliser une des méthodes par défaut des LiveBindings dans la propriété CustomFormat du lien : Format.

Cette dernière a presque la même syntaxe que la fonction format de Delphi.

Le nom de cette méthode est sensible à la casse.

Pour une valeur flottante, on renseignera la propriété CustomFormat ainsi :

1
2
 
Format('%%.2f', value)

1
2
 
Format('%%3.2f', value)+' %%'