Discussion :

[akabane]

Bonjour,

Voici mon problème en version simplifié : j'ai une unité principale de la forme 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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Unit2;
 
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure Refresh;
  private
    Object1: TMyClass;
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  Object1 := TMyClass.Create(self);
end;
 
procedure TForm1.Refresh;
begin
  // instruction de la méthode
end;
 
end.

qui utilise une autre unité 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
16
17
18
19
20
21
 
unit Unit2;
 
interface
 
uses Classes;
 
type
  TMyClass = class(TComponent)
private
  procedure Methode1(s: string);
end;
 
implementation
 
procedure Methode1(s: string);
begin
  // Ici je voudrais lancer la méthode Refresh de ma Form1, mais comment ?
end;
 
end.

[Ph. B.]

A la louche, tu aurais ceci:

unit Unit1;

interface

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

type
TForm1 = class(TForm)
Button1: TButton;
procedure FormCreate(Sender: TObject);
procedure Refresh(s: string);
procedure Button1Click(Sender: TObject);
private
{ Déclarations privées }
Object1: TMyClass;
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
Object1 := TMyClass.Create(self);
end;

procedure TForm1.Refresh(s: string);
begin
ShowMessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Object1.GoRefresh;
end;

end.

et cela :

unit Unit2;

interface

uses Classes;

type
TMyClass = class(TComponent)
private
procedure Methode1(s: string);
public
procedure GoRefresh;
end;

implementation

uses
Unit1;

procedure TMyClass.GoRefresh;
begin
self.Methode1('Refresh !');
end;

procedure TMyClass.Methode1(s: string);
begin
// Attention, Il faudrait rajouter des tests:
// Owner <> nil
// Owner is TForm1
// etc, etc
(self.Owner as TForm1).Refresh(s);
end;

end.

A adapter selon tes besoins...

Philippe.

[Graffito]

Bonjour,

sauf erreur, l'astuce c'est de mettre une clause uses dans la partie implementation (et non dans l'interface).

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
 unit Unit2;
interface
uses Classes;
 
type
  TMyClass = class(TComponent)
private
  procedure Methode1(s: string);
end;
 
implementation
uses Unit1 ;
procedure Methode1(s: string);
begin
 // Ici je voudrais lancer la méthode Refresh de ma Form1,
Form1.refresh.
end;
 
end.

[Pascal Jankowski]

Ce genre de comportement peut aussi dans certains cas être résolu en créant un événement. Cette solution peut parfois s'avérer très pratique voire simplifier l'utilisation du code quand celui-ci commence à devenir important.

Un autre avantage c'est que l'unité qui accueille TMyClass reste bien indépendante de toute autre unité cela favorise encore la réutilisation.

Donc voilà comment cela fonctionne:

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
interface
uses classes;
type
  TMyClass = class(TComponent)
  private
    FonRefresh: TNotifyEvent;
public
    property onRefresh:TNotifyEvent read FonRefresh write FonRefresh;
    procedure refresh;
  procedure maProc;
end;
implementation
 
{ TMyClass }
 
procedure TMyClass.refresh;
begin
  // On execute l'événement si est assigné
  if assigned(FonRefresh)
    then FonRefresh(Self);
end;
 
procedure TMyClass.maProc;
begin
  refresh;
end;
 
end.

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
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, unit2, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
    object1 : TMyClass;
    procedure doRefresh(Sender: TObject);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.doRefresh(Sender: TObject);
begin
  //On définit ici la ce que doit faire refresh et une seule fois pour toute
  showMessage('refresh');
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  object1 := TMyClass.Create(Self);
//L'événement Refresh pour TMyObject
  object1.onRefresh := doRefresh;
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  object1.onRefresh := nil;
  object1.Free;
end;
 
// POUR EXEMPLE
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  doRefresh(Sender);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  object1.refresh;
end;

Cordialement

[akabane]

Merci pour vos réponses. J'ai adopté la méthode avec les événements car elle me parrait la plus élégante (indépendance).

Je rajouterais juste pour mémoire que si nôtre événement prends des paramètres, il faut définir un type de cet façon :

Code :

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

1
2
3
 
type
  TRefreshEvent = procedure(Sender: TObject; a: int) of object;

et ensuite :

Code :

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

1
2
3
 
property onRefresh: TRefreshEvent read FonRefresh write FonRefresh;
procedure Refresh(Sender: TObject; a: int);