procedure pour bloquer des boutons

**evarisnea** · 29/04/2007, 19h57

ok je viens de voir d'où vient le problème, le paramètre Sender est de type TObject, mais les propriétés Components et ComponentCount apparaissent à partir de TComponent.
il faut donc modifier le code comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure DisableTousLesBouton(Sender: TObject; bEtat: Boolean);
var
  i: integer;
begin
  if Sender is TComponent then//Components et ComponentCount disponibles pour les descendants de la classe TComponent
  with TComponent(Sender) do
    For i:=0 to ComponentCount-1 do 
       if Components[i] is Tbutton Then
         Tbutton (Components[i]).enabled := bEtat;
end;

et pour illustrer tout cela un petit projet

**Aos** · 29/04/2007, 20h01

bien bien bien bien bien joué!!!

Franchement, je sechais sur le truc, je ne cherchais pas du tout dans la bonne direction

Merci beaucoup en tout cas!

**evarisnea** · 29/04/2007, 20h02

**Aos** · 29/04/2007, 20h05

Par contre, je mets quoi a la place de Sender quand j'appel la procedure ?
J'ai betement mis maProcedure(sender,false); et ça ne marche pas.

**evarisnea** · 29/04/2007, 20h07

tout composant qui contiendra des boutons.
dans l'exemple que j'ai posté, il s'agit de Formes, mais tu peux aussi mettre des Panels, des ScrollBox, etc...

**Aos** · 29/04/2007, 20h09

donc par exemple :
modifieEtatDesBoutons(form1,true);
ou
modifieEtatDesBoutons(form1,false);
d'apres ton exemple

Mais moi ça n'agit pas

**evarisnea** · 29/04/2007, 20h10

ça te donne quoi comme message d'erreur ?
tu peux poster ton code ?

**Aos** · 29/04/2007, 20h11

ça m'embete lol parce que ton exemple est nickel et complet, je fais pareil
et il delire

je cherche je cherche

**Aos** · 29/04/2007, 20h13

La procedure dans une unité "uniteDeTri".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
procedure modifieEtatDesBoutons(Sender: TObject; bEtat: Boolean);
var
  i: integer;
begin
  if Sender is TComponent then//Components et ComponentCount disponibles pour les descendants de la classe TComponent
  with TComponent(Sender) do
    For i:=0 to ComponentCount-1 do
       if Components[i] is Tbutton Then
         Tbutton (Components[i]).enabled := bEtat;
end;

Ensuite, dans une form, je fais uses uniteDeTri et tout ce que j'ai besoin d'autre et je fais betement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  modifieEtatDesBoutons(form1,true);
end;

Et je n'ai pas de message d'erreur, ça n'agit pas c'est tout

**evarisnea** · 29/04/2007, 20h15

et ......
il active tes boutons non ?

pour les désactiver c'est bEtat à False;

**Aos** · 29/04/2007, 20h16

oui oui evidement

Je viens de trouver la raison.
Ca me parait bizzarre (mais je suis sur qu'a toi non

)

merci a+

**Aos** · 29/04/2007, 20h18

Je plaisante evidemment, je vais expliquer

Normalement, si je ne charge pas ce dont j'ai besoin dans mon uses, le compilateur refuse de compiler.
"Forms" etait absent dans mon unité, pourtant elle compilait correctement mais ne fonctionnait pas. Je viens de rajouter le form et la tout marche nickel.

voili voulou

bizzarre or not ?

**evarisnea** · 29/04/2007, 20h21

Envoyé par Aos

Je plaisante evidemment, je vais expliquer

Normalement, si je ne charge pas ce dont j'ai besoin dans mon uses, le compilateur refuse de compiler.
"Forms" etait absent dans mon unité, pourtant elle compilait correctement mais ne fonctionnait pas. Je viens de rajouter le form et la tout marche nickel.

voili voulou

bizzarre or not ?

absolument pas.
dans l'unité, il est fait référence à une classe nommée TForm. il faut donc au compilo les informations concernant cette classe, et ces infos se trouvent dans l'unité Forms. pareil pour toutes les autres classes et symboles utilisés.

**Aos** · 29/04/2007, 20h25

Bah oui mais par exemple, si je ne charge rien dans une unité et que je fais un
inttostr(), il va refuser de compiler si je ne mets pas sysutils.
Il genere une erreur genre : identificateur non declarés (en parlant de inttostr).

C'est pour ça que le fait qu'il n'y ait pas d'erreur de compilation sans uses Forms; m'a parut bizzarre. M'enfin, ça doit etre un truc que j'ai compris qu'a moitié

**evarisnea** · 29/04/2007, 20h28

bizarre en effet, chez moi il me l'a réclamé pourtant.

quelqu'un de plus éclairé aurait'il une explication ?

**Aos** · 29/04/2007, 20h33

Alors la c'est le ponpon, je viens de l'enlever mon uses Forms et tout marche quand meme.

vraiment incomprehensible...

**evarisnea** · 29/04/2007, 20h37

une minute !

ton unité fait elle référence à la classe TForm ?
s'il s'agit du code de la procédure plus haut (avec Sender, Tcomponent et tout...) elle n'utilise cette classe à aucun moment

**Aos** · 29/04/2007, 20h38

Alors je viens d'enlever mes unités au fur et a mesure.
J'ai effectivement pas besoin de Forms finalement. Seule strCtrls(pour le type TBUtton et Classes sont nécessaire.

Et d'ailleurs dans ton exemple, Unit2 n'en a pas besoin non plus, il compile et fonctionne

ouff... on va bien finir par y arriver