Discussion :

[fredtheman]

Bonjour

Jusqu'ici, j'utilisais la barre de Raize au design, et je crééais donc les groups + items statiquement.

J'aimerais à présent modifier le contenu de la barre pour qu'il reflète les actions que l'utilisateur peut effectuer dans tel ou tel contexte. Ca revient à vider la barre, et créer de nouveaux groups et items dynamiquement à l'exécution.

Pour gérer l'évènement click sur les items, on me dit d'ajouter une procédure liée à l'évènement OnClick, mais ça marche pô

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
 
procedure TForm1.MyOnClick(Sender: TObject);
begin
  //Find which item triggered this
  case Of of
 
  end;
end;
 
procedure TForm1.FormDblClick(Sender: TObject);
begin
  //E2010 Incompatible types: 'TNotifyEvent' and 'procedure, untyped
pointer or untyped parameter'
  //RzGroupBar1.OnClick := MyOnClick(RzGroupBar1);
 
  //E2010 Incompatible types: 'TObject' and 'Class reference'
  //RzGroupBar1.OnClick := MyOnClick(TRzGroupBar);
 
end;

Merci pour toute piste.

[ALWEBER]

Quel est le type de RzGroupBar1 ?

[fredtheman]

Quel est le type de RzGroupBar1 ?

Voici la classe:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
type
  TForm1 = class(TForm)
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    procedure MyOnClick(Sender: TObject);
  public
    { Public declarations }
  end;

J'ai trouvé qu'il fallait ne rien mettre : apparemment, Delphi utilise le paramètre implicite Sender: RzGroupBar1.OnClick := MyOnClick;

Par contre, l'évènement MyOnClick n'est pas appelé:

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, RzGroupBar;
 
type
  TForm1 = class(TForm)
    RzGroupBar1: TRzGroupBar;
    RzGroup1: TRzGroup;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
    procedure MyOnClick(Sender: TObject);
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.MyOnClick(Sender: TObject);
begin
  ShowMessage('clicked');
  //Find which item triggered this
  {
  case Of index(Sender)
    0:
 
 
  else
  end;
  }
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
  {
  //How to fill contents at run-time, and handle events?
  RzGroupBar1.AddGroup('Group1');
  RzGroupBar1.AddGroup('Group2');
  RzGroupBar1.Groups.AddToGroup()
  }
 
  //No OnClick() event
  //RzGroup1.On
 
  //Doesn't work
  RzGroupBar1.OnClick := MyOnClick;
 
end;

Merci.

[ALWEBER]

Je pense avoir une idée de la solution. Peux tu m'envoyer le source de l'unité dans laquelle sont décrits les objets
TRzGroupBar et TRzGroup ?

[ShaiLeTroll]

Bonjour
J'ai trouvé qu'il fallait ne rien mettre : apparemment, Delphi utilise le paramètre implicite Sender: RzGroupBar1.OnClick := MyOnClick;

Absolument pas !
Tu confonds l'appel d'un évènement et l'affectation de celui-ci, dans la ligne ci-dessus, c'est une affectation, il n'y a pas de passage de paramètre, mais l'affectation d'un pointeur de procédure, c'est le @ qui est implicite pour récupérer l'adresse de la méthode

la seule chose que je peux dire, c'est as-tu tenté simplement ceci pour affecter le Gestionnaire d'Evènement (MyOnClick) à l'évènement OnClick, puis d'en effectuer l'appel ?

Code :

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

1
2
3
4
5
6
 
procedure TForm1.FormDblClick(Sender: TObject);
begin
  RzGroupBar1.OnClick := Self.MyOnClick; // Affectation
  RzGroupBar1.OnClick(RzGroupBar1); // Appel avec RzGroupBar1 comme Sender
end;