TLabel/fr
│
Deutsch (de) │
English (en) │
suomi (fi) │
français (fr) │
日本語 (ja) │
русский (ru) │
TLabel est un composant qui crée un texte avec une ou plusieurs lignes sur une fiche ou un cadre. Un TLabel est un descendant de TGraphicControl et est disponible dans l'onglet Standard de la palette de composants.
Emploi
Il s'agit de l'un des composants les plus basiques qui puissent être utilisés sur une fiche. La plupart des étiquettes sont le marquage d'autres composants, tels que des champs d'édition, des mémos, des grilles et ainsi de suite. TLabel propose un certain nombre d'événements le plus souvent inutilisés (car on agit rarement sur un TLabel).
Vous pouvez ajouter un TLabel sur votre fiche en cliquant sur dans la palette de composant et le placer avec un clic sur votre fiche.
Pour modifier l'intitulé (caption) par défaut d'un TLabel nouvellement ajouté sur une fiche, vous pouvez procéder de la sorte :
- Sur votre fiche avec un clic, sélectionnez le TLabel.
- Depuis l'onglet Propriétés de l'inspecteur d'objet, sélectionnez la propriété Caption et changez-là dans le champ d'édition à droite.
- De la même manière, vous pouvez changer le nom du composant pour lui en donner un plus parlant.
Modifier l'intitulé à l'exécution
Bien sûr, vous pouvez changer l'intitulé (le texte affiché) à l'exécution. L'exemple suivant montre comment :
- Créez une nouvelle application IHM avec la fiche Form1. Ajoutez à cette fiche un bouton Button1 et une étiquette Label1 en sélectionnant les composants appropriés de la palette de composants et en cliquant sur Form1 (l'étiquette devrait être au dessus du bouton).
- Créez maintenant un gestionnaire d'événement pour Button1 en double-cliquant simplement sur Button1 (car c'est l'événement par défaut i.e. le plus prévisible/usité).
- Insérez le code suivant dans le gestionnaire du OnClick du Button1 :
procedure TForm1.Button1Click(Sender: TObject);
const Cnt: Integer = 0; //Counter to determine how many times the button has been clicked
begin
inc(Cnt); //Increment the counter by 1
Label1.Caption:='Button was clicked ' + //Write the text on the caption of Label1
IntToStr(Cnt) + ' times';
end;
- Démarrez votre programme et testez le changement de l'étiquette en cliquant sur le bouton.
Emploi en commentaires
Pour représenter un texte multi-ligne, vous avez besoin d'insérer au bon endroit dans la chaîne des fins de ligne comme signal de rupture. Exemple:
Label1.Caption := 'This' + LineEnding + 'is' + LineEnding + 'a' + LineEnding + 'multiline' + LineEnding + 'text';
Voir aussi