Discussion :

[sfeigen]

Bonjour, j'aimerai définir un conteneur TDataCluster, descendant de TDataModule, avec des événements supplémentaires.
j'aimerais que ce nouveau conteneur se comporte comme un DataModule, c'est-à-dire que je veux pouvoir poser des datasets, et pas simplement l'avoir comme un composant aveugle.
J'utilise Delphi 7, et je vois qu'il existe des descendants de TDataModule comme TRemoteDataModule, mais je ne sais pas comment réaliser la même chose.

Merci de votre collaboration
Stéphane

[slimjoe]

Salut!

Trrrrrès simple .

Dans ton projet, ajoute un nouveau Datamodule et nomme le DataCluster. Ajoute y ce que tu as besoin et sauvegarde-le. Assure toi aussi qu'il ne soit pas auto-créé au démarrage de l'application.

Ensuite, fais Fichier --> Nouveau --> Autre et sous l'onglet qui porte le nom de ton projet, sélectionne DataCluster. Par héritage, Delphi va alors créer une classe TDataCluster qui héritera du TDatamodule que tu auras construit.

Ajouter un peu de sel, du poivre et servir tiède.

Bon dev!

[sfeigen]

Merci pour ta réponse rapide.
Malheureusement trop simple. Ce TDataCluster, j'aimerais que d'autres développeurs du groupe puissent l'utiliser au lieu des habituels TDataModules, et j'aimerais surtout lui rajouter des événements. Avec ta technique, je peux ajouter des composants, mais c'est tout.
Pour l'instant je vais me débrouiller en ajoutant un composant bidon qui possédera ces événements supplémentaires, mais c'est moins propre.

La question reste donc ouverte
Stéphane

[cadetill]

Salut

A cet nouveaux TDataCluster tu peux lui ajouter des evenements sans probleme

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type
  TMonEven = procedure(Param1: integer; Param2: string) of object;
 
  TDataCluster = class(TDataModule)
  private
    FMonEven: TMonEven;
  public
    property MonEven: TMonEven read FMonEven write FMonEven;
  end;

A+