Discussion :

[potili2]

suite à vos conseils sur une autre file, je lance différentes actions par un programme de ce type

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
unit essai_liste_actions;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, StdActns, Menus, ActnList, Buttons, ExtCtrls;
 
 
type
  TForm1 = class(TForm)
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    procedure FormCreate(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
  ipos: integer;
implementation
 
{$R *.dfm}
Procedure ExecAction(ActionList :TCustomActionList;Ipos : Integer);
  Var
      A : TAction;
  begin
    if Not Assigned(ActionList) then
      showmessage('perdu')
    else
    begin
      A := TAction(ActionList.Actions[Ipos]);
      A.Execute;
    end;
  end;
  ///////////////
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ExecAction(ActionList1,0);
end;
 
procedure TForm1.Action1Execute(Sender: TObject);
begin
  showmessage('action1');
end;
////////////////////////
   procedure TForm1.Action2Execute(Sender: TObject);
begin
showmessage('action2');
end;
begin
  if Assigned(Form1) then ExecAction(Form1.ActionList1,0);
   end.

mon problème est que de cette façon, je ne peux pas lancer une action à partir d'un sous programme

autrement dit

Code :

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

1
2
3
4
                procedure test_lancement_action;
                begin
                  ExecAction(ActionList1,0);
                end;

ne fonctionne pas.
est il moyen de contourner la difficulté?
merci.
Jean Pierre

[Yurck]

ne fonctionne pas.

Le compilateur a la gentillesse de te fournir des informations que tu devrais lire et si tu ne les comprends pas alors il serait bon de les transmettre

est il moyen de contourner la difficulté?

OUI

----

Cela ne fonctionne pas parce que procédure n'est pas "VISIBLE" d'une autre unité. Il faut que tu déclares sa signature dans la partie interface de ton unité.


Ta liste d'action n'est pas visible non plus.

Voici ce que je te propose (en dehors du fait que tu dois lire quelques tutos de base)

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
unit essai_liste_actions;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, StdActns, Menus, ActnList, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    ActionList1: TActionList;
    Action1: TAction;
    Action2: TAction;
    procedure FormCreate(Sender: TObject);
    procedure Action1Execute(Sender: TObject);
    procedure Action2Execute(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;
  ipos: integer;

// ICI je rends visible ma procédure pour d'autres unités
Procedure ExecAction(ActionList :TCustomActionList;Ipos : Integer);


implementation

{$R *.dfm}
Procedure ExecAction(ActionList :TCustomActionList;Ipos : Integer);
  Var
      A : TAction;
  begin
    if Not Assigned(ActionList) then
      showmessage('perdu')
    else
    begin
      A := TAction(ActionList.Actions[Ipos]);
      A.Execute;
    end;
  end;
  ///////////////

procedure TForm1.FormCreate(Sender: TObject);
begin
  ExecAction(ActionList1,0);
end;

procedure TForm1.Action1Execute(Sender: TObject);
begin
  showmessage('action1');
end;
////////////////////////

procedure TForm1.Action2Execute(Sender: TObject);
begin
  showmessage('action2');
end;

begin
  if Assigned(Form1) then ExecAction(Form1.ActionList1,0);
end.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
unit2

implementation

uses essai_liste_actions;

procedure test_lancement_action;
begin
  ExecAction(Form1.ActionList1, 0);
end;

end.

[potili2]

merci pour cette réponse, mais je ne travaille qu'avec une seule unité.
je faisais le test en rajoutant le sous programme dans l'unité de départ.
le compilateur me dit
"identificateur non déclaré :'ActionList1' "
Jean Pierre

[Yurck]

parce que cette liste appartient à un formulaire et n'est donc "VISIBLE" que dans celui-ci

Code :

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

1
2
3
4
5
procedure test_lancement_action;
begin
  ExecAction(Form1.ActionList1, 0);
end;

[potili2]

ok
merci, j'ai compris.
désolé, parfois, je suis long à la comprenotte.
Jean Pierre