bon imaginons que les boutons soient sur la Form.
Code :
- var
- compo: TComponent;
- i: Integer;
- begin
- for i := 0 to ComponentCount-1 do
- if Components[i] is TButton then
- (Components[i] as TButton).Caption := 'abcdef';
- end;
|
dans le if tu peux même rajouter:
Code :
- if (Components[i] is TButton) and AnsiStartsText('bouton_numero', Components[i].Name) then
|
pour ne changer que les boutons dont le nom commence par "bouton_numero"
y a moyen de faire ce que tu veux faire (donc donner le nom du composant sous forme de texte construit dynamiquement), mais faut passer par des fonctions non documentées (SetPropValue, etc...) donc faut voir si tu veux ça absolument, ou si la solution que je t'ai donnée suffit...
[edtdd]--Message édité par antp--[/edtdd]
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire