[D5] accès aux évènements de composants créés dynamiquement

**MelkInarian** · 02/05/2007, 20h52

Bonsoir!
J'ai trouvé ce post de Malatar en réponse à une question de arkzor le 18/02/2007 22h07.
Pour en comprendre le fonctionnement, je l'ai modifié et ajouté un TrackBar créé dynamiquement (en utilisant le même modèle).
ça fonctionne correctement.

Peut-on accéder aux évènements (OnChange par exemple) de ces objets?

Comment?

Envoyé par Malatar

Voici un exemple de création dynamique de composants :

- 1 JvCaptionPanel (que tu pourras remplacer par un panel
- 3 label créé dynmiquement dans le JvCaptionPanel

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
 
procedure CreateItems(sName : string);
var
  jvcnPanel : TjvCaptionPanel;
  lblSource : TLabel;
  lblDest   : TLabel;
  lblEtat   : TLabel;
  Compo : TComponent;
begin
  jvcnPanel := TJvCaptionPanel.Create(frmMain.ScrollBox1);
  With jvcnPanel do
  begin
    Align := alTop;
    CaptionPosition := dpTop;
    Name := 'jvcn' + sName;
    OutlookLook := true;
    Height := 80;
    Parent := frmMain.ScrollBox1;
    Caption := '';
    Resizable := False;
    Locked := True;
    Visible := True;
  end;
 
  Compo := TJvCaptionPanel(frmMain.ScrollBox1.findComponent('jvcn' + sName));
  lblSource := TLabel.Create(Compo);
  With lblSource do
  begin
    Left := 8;
    Top := 24;
    Name := 'ES' + sName;
    Parent := TJvCaptionPanel(Compo);
    Caption := '';
    Visible := True;
  end;
 
  lblDest := TLabel.Create(Compo);
  With lblDest do
  begin
    Top := 40;
    Left := 8;
    Name := 'ED' + sName;
    Parent := TJvCaptionPanel(Compo);
    Caption := '';
    Visible := True;
  end;
 
  lblEtat := TLabel.Create(Compo);
  With lblEtat do
  begin
    Top := 56;
    Left := 8;
    Name := 'ET' + sName;
    Parent := TJvCaptionPanel(Compo);
    Caption := '';
    Visible := True;
  end;
  Application.ProcessMessages;
 
end;

Merci.

**ShaiLeTroll** · 03/05/2007, 10h35

Les Gestionnaires d'Evènements sont des propriétés comme les autres ... à part que stocker un type simple ou objet, c'est un pointeur de procédure ...

Code :

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

1
2
3
4
With ... do
  begin
    OnBidule := Self.MaFonctionPourBidule;
  end;

ou encore

Code :

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

1
2
3
4
5
6
7
8
      BtnMouse := TMouseButton.Create(Self);
   BtnMouse.Parent := GrpDynControl;
   BtnMouse.Left := BtnColor.Width;
   BtnMouse.Top := 1;
   BtnMouse.Caption := 'Go';
   BtnMouse.OnClick := BtnMouseClick;
   BtnMouse.OnMouseLeave := BtnMouseMouseLeave;
   BtnMouse.OnMouseEnter := BtnMouseMouseEnter;

ayant dans un objet (dans notre cas la fenêtre qui crée le bouton, donc Self)

Code :

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

1
2
3
      procedure BtnMouseClick(Sender: TObject);
      procedure BtnMouseMouseLeave(Sender: TObject);
      procedure BtnMouseMouseEnter(Sender: TObject);

**MelkInarian** · 04/05/2007, 21h08

Bonsoir,

Envoyé par ShaiLeTroll

Les Gestionnaires d'Evènements sont des propriétés comme les autres ... à part que stocker un type simple ou objet, c'est un pointeur de procédure ...

Je ne voudrais pas mettre un troll trop en colère,
mais "il me manque un truc" ligne en rouge.
Comme il y a 3 paramètres dans ma déclaration, il m'en faut 3 dans l'appel et je ne sais pas quoi mettre pour figurer le sender de la déclaration.
Je tourne dessus depuis hier et rien à faire.
( j'ai cru bon de déclarer var TrB: TTrackBar; var Lbl :TLabel comme paramètres variables afin de pouvoir "faire suivre" les modifications. Est-ce utile?)

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
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, StdCtrls, ComCtrls ;
type
  TfrmMain = class(TForm)
    Button1: TButton;
    ScrollBox1: TScrollBox;
    procedure Button1Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    procedure CreateItems(sName : string);
    procedure MaJTB(Sender: TObject; var TrB: TTrackBar; var Lbl :TLabel);
  end;
var
  frmMain: TfrmMain;
  I : Byte;
implementation

{$R *.DFM}

procedure TfrmMain.MaJTB(Sender: TObject; var TrB: TTrackBar; var Lbl :TLabel);
begin
  Lbl.Caption := IntToStr(TrB.Position);
end;

procedure TfrmMain.CreateItems(sName : string);
var
  MonPanel  : TPanel;
  lblEtat   : TLabel;
  TB        : TTrackBar;
  Compo     : TComponent;
  CompoTB   : TComponent;
begin
  MonPanel := TPanel.Create(frmMain.ScrollBox1);
  With MonPanel do
  begin
    Align := alTop;
    Name := 'Mon' + sName;
    Height := 260;
    Parent := frmMain.ScrollBox1;
    //Caption := '';
    Caption := Name;
    Locked := True;
    Visible := True;
  end;


  Compo := TPanel(frmMain.ScrollBox1.findComponent('Mon' + sName));

  lblEtat := TLabel.Create(Compo);
  With lblEtat do
  begin
    Top := 44;
    Left := 8;
    Name := 'ET' + sName;
    Parent := TPanel(Compo);
    Caption := '0';
    Visible := True;
  end;

  CompoTB := TTrackBar(frmMain.ScrollBox1.findComponent('Mon' + sName));
  TB := TTrackBar.Create(CompoTB);
  With TB do
  begin
    Left := 8;
    Top := 64;
    Max := 12;
    Name := 'TB' + sName;
    Parent :=  TTrackBar(CompoTB);
    Visible := True;
    OnChange := Self.MaJTB(Il_Manque_un_truc,TB,lblEtat);
  end;
  Application.ProcessMessages;
end;

procedure TfrmMain.Button1Click(Sender: TObject);
begin
  Inc(I);
  CreateItems('Conteneur' + IntToStr(I))
end;

procedure TfrmMain.FormActivate(Sender: TObject);
begin
 I := 0;
end;
end.

**Fabrice ROUXEL 1** · 04/05/2007, 21h24

MelkInarian a écrit:

OnChange := Self.MaJTB(Il_Manque_un_truc,TB,lblEtat);

Ce n'est pas un appel c'est une affectation!
Donc tu écris:

Code :

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

OnChange := Self.MaJTB;

MajTB doit être de type TnotifyEvent.
L'evenement OnChange appelera la procedure MaJTB;

**MelkInarian** · 05/05/2007, 08h24

Envoyé par Fabrice ROUXEL 1

MelkInarian a écrit:
Ce n'est pas un appel c'est une affectation!
Donc tu écris:

Code :

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

OnChange := Self.MaJTB;

L'evenement OnChange appelera la procedure MaJTB;

Il n'y a donc pas moyen de passer, en tant que variables, les objets créés dans cette procédure pour les utiliser dans la procédure gestionnaire d'évènement?
Merci,

**Fabrice ROUXEL 1** · 05/05/2007, 11h38

Il faut respecter les prototypes. OnChange est de type TNotityEvent.

Code :

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

type TNotifyEvent = procedure (Sender: TObject) of object;

**MelkInarian** · 05/05/2007, 19h51

Envoyé par Fabrice ROUXEL 1

Il faut respecter les prototypes. OnChange est de type TNotityEvent.

Code :

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

type TNotifyEvent = procedure (Sender: TObject) of object;

Merci pour ces explications.
Je me coucherai moins bète ce soir!

[D5] accès aux évènements de composants créés dynamiquement

Delphi

Discussions similaires

Partager

Partager