Discussion :

[jcs2]

Exemple:

J'ai une fiche avec beaucoup de composants et leurs évènements associés.
L'unité de cette fiche finit par prendre une taille énorme.

J'aimerais par exemple, mettre tous les codes correspondants aux TToolBar dans une autre unité dédiée aux TToolBar. De même pour tous les T...Button.

Comment dois-je procéder? Merci

[philnext]

Et bien tu rajoutes une (des) unité(s) (Fichiers/nouveau/Unité), tu déclare cette unité dans les uses de ton unité actuelle et dans cette nouvelle unité tu crées des functions/Procedures que tu lances de ton unité actuelle.

[LeGEC]

Salut,

Je pense que tu veux dire : une fiche crée avec l'éditeur de fiches.

Delphi propose un moyen de modulariser les fiches avec son système de Frales (ou cadres) : tu peux créer un cadre dans une unité -qui contient des boutons, des champs,... des composants, quoi, avec leurs évènements- puis le coller tel quel dans une fiche de ton projet.

Sinon, la gestion des dfm par Delphi exige que les évènements que tu déclares dans l'éditeur de fiches soient des méthodes publiées de ta fiche.
Si tu veux délocaliser tes évènements, il va falloir que tu court-circuites un peu l'IDE :
-tu ne déclares plus les évènements de tes boutons/toolbars/... depuis léditeur de fiches
-tu rajoute à ta Form un FormCreate, qui affecte avec du code les évènements :

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
 
//dans l'unité EventsBoutons :
type
  TEvtsBoutons = class
    procedure BoutonOkClick( Sender : TObject );
    procedure BoutonCancelClick( Sender : TObject );
    procedure BoutonRougeMouseOver( Sender : TObject; ... ); //signature de OnMouseOver
    ...
 
//dans l'unité de ta fiche :
procedure FormCreate( Sender : TObject );
begin
  BoutonOk.OnClick := TEvstBoutons.BoutonOkClick;
  BoutonCancel.OnClick := TEvtsBoutons.BoutonCancelClick;
  BoutonRouge.OnMouseOver := TEvtsBoutons.BoutonRougeMouseover;
  ...
end

Entre les deux maux à maintenir, choisit ton poison...

Plus sérieusement, je me suis retrouvé dans un cas similaire, j'ai fait l'effort de découper proprement ma Fiche en Frames séparées, et le résultat était plutôt probant.
Je ne suis pas un grand fan du système de .dfm de Delphi, mais à mon avis le meilleur moyen de l'exploiter est de passer par ce système de Frames.

Dis-nous si tu as besoin de plus de détails,

[Kaféine]

Ou plus simplement un datamodule avec un ActionList. Tu associe à chaque bouton de la toolbar une action. Ca soulageras au moins des evènements OnClick

[jcs2]

Merci beaucoup pour vos suggestions, celle de LeGec me semble interessante et me convenir.

Je vais étudier cela de près et dès que j'ai abouti , je vous donne de mes nouvelles.

[jcs2]

Je viens de faire un essai avec la 2ème méthode de LeGec et j'ai un petit problème avec le code proposé:


(ligne *) --> Erreur: Types incompatibles 'TnotifyEvent' et 'Procedure'

(ligne **) si modification en: TEvtsBoutons = class(TNotifyEvent) --> Erreur: Type Class requis

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
// fiche principale
//
uses EditorEvent;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
  ToolButton13.OnClick := TEvtsBoutons.ToolButton13Click;   //(*)
  ...
 
 
// unité annexe
//
unit EditorEvent;
 
interface
uses Dialogs, Classes;
 
type
  TEvtsBoutons = class  // (**) 
    procedure ToolButton13Click(Sender: TObject);
 
  private
  public
  end;
 
implementation
 
procedure TEvtsBoutons.ToolButton13Click(Sender: TObject);
begin
  showmessage('c''est bon');
end; 
end.