Propriété d'un composant à partir de 'components'

cs_vib Messages postés 30 Date d'inscription jeudi 15 novembre 2001 Statut Membre Dernière intervention 23 février 2002 - 22 janv. 2002 à 13:40
cs_vib Messages postés 30 Date d'inscription jeudi 15 novembre 2001 Statut Membre Dernière intervention 23 février 2002 - 26 janv. 2002 à 14:01
Je désire modifier les propriétés de n'importe quel composant sur une feuille.
Je me suis servi de la propriété 'components'de la feuille avec l'index du composant, mais je n'arrive pas à modifier ces propriétés de base (left, width...).
Quelqu'un peut me donner un coup de main. Merci.

2 réponses

cs_Delphiprog Messages postés 4297 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 9 janvier 2013 32
26 janv. 2002 à 09:13
Si tu veux utiliser des contrôles sur la fiche, je te propose la méthode suivante :

procedure TForm1.Button1Click(Sender: TObject);
var
Abutton : TControl;
begin
AButton:=FindComponent('Button1') as TControl;
TControl(AButton).Left:=10;
end;

Au lieu de AButton, tu peux passer Components[i] comme référence, soit
TControl(Components[i]).Left:=....
0
cs_vib Messages postés 30 Date d'inscription jeudi 15 novembre 2001 Statut Membre Dernière intervention 23 février 2002
26 janv. 2002 à 14:01
Je te remercie de ta réponse, j'allais aussi sur cete coie la: Tcontrol.
A+
0
Rejoignez-nous