Compter le nombre de labels
cs_Dagnir
Messages postés
18
Date d'inscription
jeudi 24 avril 2003
Statut
Membre
Dernière intervention
11 février 2009
-
19 mai 2003 à 21:38
Jean44 Messages postés 26 Date d'inscription mardi 25 février 2003 Statut Membre Dernière intervention 27 juin 2003 - 20 mai 2003 à 14:41
Jean44 Messages postés 26 Date d'inscription mardi 25 février 2003 Statut Membre Dernière intervention 27 juin 2003 - 20 mai 2003 à 14:41
A voir également:
- Compter le nombre de voyelle en langage c
- Php compter le nombre de caractere - Forum PHP
- Vba compter le nombre de caractère dans une chaine - Forum Visual Basic
- Pow langage c ✓ - Forum C
- Nombre de semaine par an - Forum C / C++ / C++.NET
- Fonction qui permet de compter le nombre d'occurrence d'un caractère particulier - Forum Visual Basic 6
1 réponse
Jean44
Messages postés
26
Date d'inscription
mardi 25 février 2003
Statut
Membre
Dernière intervention
27 juin 2003
20 mai 2003 à 14:41
20 mai 2003 à 14:41
Voici un petit exemple.
C'est la réponse de la fiche principale (TFMain ici) à l'événement OnMouseDown.
C'est la réponse de la fiche principale (TFMain ici) à l'événement OnMouseDown.
procedure TFMain.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
i : Integer;
LabelCount : Integer;
NewLabel : TLabel;
begin
LabelCount := 0;
for i := 0 to FMain.ComponentCount-1 do
begin
if FMain.Components[i] is TLabel then
Inc( LabelCount);
end;
NewLabel := TLabel.Create( FMain);
NewLabel.Caption := 'Label' + IntToStr( LabelCount+1);
NewLabel.Top := Y;
NewLabel.Left := X;
NewLabel.Parent := FMain;
NewLabel.Show;
end;