Discussion :

[wesloff]

Bonjour à tous/toutes !

Voilà, dans le programme que je suis en train de créer, on peut dire que j'ai fait c'est vraiment bêtement pour l'instant lol, mais je me retrouve avec pas mal de procédures, pour le moment 6 ou à chaque fois j'ai les mêmes actions, par exemple, pour décocher tt les menus ..

Code :

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

1
2
3
4
5
6
menu1.checked:=false;
menu2.checked:=false;
menu3.checked:=false;
menu4.checked:=false;
menu5.checked:=false;
menu6.checked:=false;

comment puis-faire pour créer une fonction "decochertout ()" qui contiendrait ces instructions et que je pourrai simplement appeler par "decochertout;" au lieu de chaque fois taper toutes les lignes ***.checked:=false; ??

Merci d'avance !!

Wesloff

[philnext]

Ta réponse est, étrangement, dans ta question.
Il suffit de créer un procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure DecocheTout;
begin
  menu1.checked:=false;
   menu2.checked:=false;
   menu3.checked:=false;
  menu4.checked:=false;
  menu5.checked:=false;
  menu6.checked:=false;
end;

[wesloff]

J'en convient lol mais toutefois, si je crée la procédure suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Menu1: TMenuItem;
...
...
procedure DecocheTout;
begin
  menu1.checked:=false;
  menu2.checked:=false;
  menu3.checked:=false;
  menu4.checked:=false;
  menu5.checked:=false;
  menu6.checked:=false;
end;

mais quand je compile j'ai l'erreur suivante :

menu.checked:=false;
>> identificateur non déclaré
>> Opérateur ou point-virgule manquant

je met ensuite plus bas dans mon code DecocheTout, pour effectuer le décochage ..

Ma procédure est déclarée dans la partie Type, et j'ai rajouter (Sender: TObject) après le nom de ma procédure mais cela ne fonctionne pas ..

Pouvez vous m'éclairer un peu plus sur le sujet ??

Merci d'avance !

[archonte]

J'en convient lol mais toutefois, si je cree la procedure suivante :

type
TForm1 = class(TForm)
MainMenu1: TMainMenu;
Menu1: TMenuItem;
...
...
procedure DecocheTout;
begin
menu1.checked:=false;
menu2.checked:=false;
menu3.checked:=false;
menu4.checked:=false;
menu5.checked:=false;
menu6.checked:=false;
end;

mais quand je compile j'ai l'erreur suivante :
menu.checked:=flase;
>> identificateur non déclaré
>> Operateur ou point-virgule manquant

En fait, si dans ta partie implémentation tu déclares procedure DecocherTout, celle-ci ne connait rien des objets de ta classe TForm1 .

Deux options :
- la moins bonne:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
implementation
procedure DecocheTout;
begin
  // nommer l'objet en entier
  Form1.menu1.checked:=false;
  Form1.menu2.checked:=false;
  Form1.menu3.checked:=false;
  Form1.menu4.checked:=false;
  Form1.menu5.checked:=false;
  Form1.menu6.checked:=false;
end;

- une meilleure

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
interface
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    Menu1: TMenuItem;
    // ...
    private
    procedure DecocherTout;
    // ...
    public
    // ...
    end;
 
[...]
 
implementation
 
procedure TForm1.DecocherTout;
begin
  menu1.checked:=false;
  menu2.checked:=false;
  menu3.checked:=false;
  menu4.checked:=false;
  menu5.checked:=false;
  menu6.checked:=false;
end;

[BuzzLeclaire]

Une autre possiblité :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
interface
type
  TForm1 = class(TForm)
    // ...
    private
       procedure CheckMenu(Sender: TObject;Item:Integer);
    // ...
    public
    // ...
    end;
 
[...]
 
implementation
 
procedure TForm1.CheckMenu(Sender: TObject;Item:Integer);
var
  i: Integer;
begin
  if (Sender is TMainMenu) then
  begin
    for i := 0 to TMainMenu(Sender).Items.Count - 1 do
    begin
      TMainMenu(Sender).Items[Item].Items[i].Checked := false;
    end;
  end;
end;

Utilisation :

Code :

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

1
2
3
 
// On Decheck toutes les rubriques du premier menu
  CheckMenu(MainMenu1,0);

On pourrais ajouter un bloc Try Except au cas où...

[wesloff]

Je te remercie infiniment, tu as resolu mon probleme, maintenant ca fonctionne parfaitement !!

Encore merci

[archonte]

Et pourquoi ne pas utiliser un TActionList avec une procedure OnUpdate ?

[Dr.Who]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
type
  TForm1 = class(TForm)
  protected
    procedure MenuSetTrueForAll;
    procedure MenuSetFalseForAll;
    procedure MenuSet(const aMenus: array of TMenuItem; const aValue: boolean = true);
    procedure MenuSwapAll;
    procedure MenuSwap(const aMenus: array of TMenuItem);
  public
 
  end;   
 
 
procedure TForm1.MenuSetTrueForAll;
begin
  MenuSet([Menu1, Menu2, Menu3, Menu4, Menu5, Menu6]);
end;
 
procedure TForm1.MenuSetFalseForAll;
begin
  MenuSet([Menu1, Menu2, Menu3, Menu4, Menu5, Menu6], false);
end;
 
procedure TForm1.MenuSet(const aMenus: array of TMenuItem; const aValue: boolean = true);
var N: integer;
begin
  for N := Low(aMenus) to high(aMenus) do
    aMenus[N].Checked := aValue;
end;
 
procedure TForm1.MenuSwapAll;
begin
  MenuSet([Menu1, Menu2, Menu3, Menu4, Menu5, Menu6]);
end;
 
procedure TForm1.MenuSwap(const aMenus: array of TMenuItem);
var N: integer;
begin
  for N := Low(aMenus) to high(aMenus) do
    aMenus[N].Checked := not aMenus[N].Checked;
end;