Discussion :

[Jayceblaster]

Bonjour...

Voila je suis dans un projet VCL en delphi .net et dans ce projet j'utilise une classe de type TForm qui me renvoie à un moment, via une variable de type boolean, la valeur true (correspond à un appui sur un bouton de ma classe Tform). Je souhaite en faite que cette appui sur ce bouton poussoir (de ma classe TForm) donc le passage de ma variable à true corresponde un evenement dans mon projet principal (->qui appelle ma classe TForm)...

Est-ce possible et si oui comment dois-je m'y prendre?

[Fabrice ROUXEL 1]

Je ne comprend pas bien le contexte à nouveau.
Tu as cette situation:

Code :

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

1
2
3
4
5
6
7
8
9
 
Form1: TForm1;
  -----
monboolean: boolean;
  -----
procedure TForm1.Button1Click(Sender : Tobject);
begin
  monboolean := true;
end;

Je souhaite en faite que cette appui sur ce bouton poussoir (de ma classe TForm) donc le passage de ma variable à true corresponde un evenement dans mon projet principal (->qui appelle ma classe TForm)...

Si cette unité est réferencée dans la clause uses d'une autre unité alors tu peux faire appel aux évenements de la form1.

Code :

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

form1.Button1Click(nil);

[Jayceblaster]

Slt à toi Fabrice...
Merci encore de t'interesser à ce problème .

Tu l'as très bien cerné mais je ne veux pas faire appel à l'évenement boutton1Click de la form1 car en fait je travail sur un projet qui risque d'évoluer et si je fonction avec des classes TForm c'est pour facilité les évolution. En effet en supposant que le classe Form1 ne convienne plus on la remplacera par une autre et il se peux que l'évenement button1Click ne corresponde plus.

....... je sais pas si je me suis bien expliqué la .

[Jayceblaster]

Si cette unité est réferencée dans la clause uses d'une autre unité alors tu peux faire appel aux évenements de la form1.

Code :

form1.Button1Click(nil);

C'est vrai je peux faire appel à un évenement de ma classe Form1 mais je ne suis pas en mesure dans mon programme de détecter qu'un évenement de ma classe Form1 à était déclenché (en loccurence ici Button1Click).

En quelque sorte je veux que l'évenement Boutton1Clic de ma classe déclenche un événement dans le programme qui appel ma classe.

En fait, toi qui a suivi un peu le problème, j'ai mon programme principal dans lequel j'ai une form avec un system de menu et je dois attendre que l'utilisateur ce soit logué pour valider les menu de ma form (tout les utilisateur n'ont pas les memes possibilité). Mais pour validé ou dévalidé mes menus il faut que ma classe Login (qui est une TForm) soit capable de déclanché un événement dans mon programme de menu lorsque la personne s'est correctement logué...

Alors la je crois que je peux pas faire mieux en explication .

[Fabrice ROUXEL 1]

Les explications sont limpides. Alors, place au code!

La fiche principale qui possède le TMainMenu:

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
unit Utest;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

const
   WM_ROLE_CONNECTION = WM_APP + 100;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure FormCreate(Sender: TObject);
  private
  protected
    procedure WM_GET_ROLE_CONNECTION(var Message: TMessage); message WM_ROLE_CONNECTION;
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

uses Ulogin;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Login := TLogin.Create(self);
  Login.Showmodal;
end;

 procedure TForm1.WM_GET_ROLE_CONNECTION(var Message: TMessage);
begin
  { ShowMessage(IntToStr(Message.LParam)); }
 case  Message.LParam of
   $1:
     begin
       Affiche un MenuItem de MainMenu
     end;    
   $2:
     begin
       Affiche un MenuItem de MainMenu
     end; 
   $4: 
      begin
        Affiche un  autre Menuitem de MainMenu ( MenuItem.Visible := true)
        Label1.Caption := IntToStr(Message.LParam);  
      end;
   else
      begin
      end;
 end;

end;

end.

La form de connexion:
Elle envoie un message à la TForm Principale avec le paramètre $4.
Imaginons plusieures rôles:
- $1 Rôle sans pouvoir
- $2 Rôle Administrateur
- $4 Rôle Accès restreint (genre consultation des tables, pas de modifications).

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
unit Ulogin;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TLogin = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
  public
    { Déclarations publiques }
  end;

var
 Login: TLogin;

implementation

 uses Utest;

{$R *.DFM}

procedure TLogin.Button1Click(Sender: TObject);
begin
 SendMessage(Form1.Handle, WM_ROLE_CONNECTION,0,$4);
 Close;
end;

end.

ps: J'étais à deux doigts d'implémenter la design pattern Observer, mais finalement ce n'est pas indispensable dans le cas présent.

[RamDevTeam]

Une autre solution, si tu veux te passer des messages windows.

dans ta classe TForm de la fenêtre appelée :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
type MaFenetreAppelee = class(Tform);
  ...
private
   procedure DoNotification;
public
  OnNotification : TnotifyEvent;
end;

  
procedure Tmyclass.DoNotification;
begin
 if assigned(onModification) then
  onModification(self);
end;

Pour déclencher l'évenement, il suffit de mettre

Code :

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

1
2
3
begin
DoNotification;
end;

dans la form appelante :

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
type ... 

  private
     Procedure MonDeclencheur(sender : Tobject);
end;



Procedure MonDeclencheur(sender : Tobject);
begin
  //traitement de l'événement
end;

// on affecte la procédure de la form appelante à la form appelée
MaForm2.OnNotification := MonDeclencheur;
MaForm2.showmodal;

tu peux personnaliser les paramètres de l'événement en remplacant TnotifyEvent par ton propre type :

de tête :

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
Type
   Tjeton = record
       idUser : string;
       UserName : string;
      etc...
   end;    
 
   TnotifyLogin= procedure (MonJeton : Tjeton);
   MaFenetreAppelee = class(Tform);
   private
      OnNotification : TnotifyLogin;
   ...
end;
 
procedure Tmyclass.DoNotification(UnJeton : Tjeton);
begin
 if assigned(onModification) then
  onModification(UnJeton);
end;

et dans la fenêtre appelante :

Code :

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

1
2
3
4
5
Procedure MonDeclencheur(UnJeton : Tjeton);
begin
  //traitement de l'événement
  shwomessage('Bienvenue ' + unJeton.Username);
end;