Problème de conception d'un composant

Version imprimable

salut tout le monde,

Je bloque sur un petit probleme.
Je voudrais faire un composant, qui de manière dynamique puisse créer plusieurs dataset (ou datasource), pour que par la suite je puisse facilement connecté des TChart.

Le truc qui serait l'idéal c'est que le système fonctionne directement dans l'EDI de delphi.

Je ne sais pas trop comment m y prendre.

Est ce que je dois utilisé les TCollections pour faire cela ?

La j'ai fais un petit exemple en statique est deja cela ne fonctionne pas :
Code:

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 unit Component; interface uses SysUtils, Classes, DB, windows; type TCimEssai = class(TComponent) public FDataSource:TDataSource; constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; procedure Register; implementation procedure Register; begin RegisterComponents('HCIM DB', [TCimEssai]); end; constructor TCimEssai.Create(AOwner: TComponent); begin inherited Create(AOwner); FDataSource:=TDataSource.Create(self); end; destructor TCimEssai.Destroy; begin FDataSource.free; inherited destroy; end;
Donc le code compile bien, mais une foismoncomposant posé sur la form , je ne peux pas rattacher la datasource à un composant.

J'ai trouvé une solution en statique mais je ne pense pas qu elle soit trés propre.

Code:

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 Component;
 
interface
 
uses
  SysUtils, Classes, DB, windows;
 
type
  TCimEssai = class(TComponent)
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    FDataSource:TDataSource;
  end;
 
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('HCIM DB', [TCimEssai]);
end;
 
constructor TCimEssai.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDataSource:=TDataSource.Create(aowner);
  FDataSource.Name:='CimDataSource1';
end;
 
destructor TCimEssai.Destroy;
begin
  FDataSource.free;
  inherited destroy;
end;

Salut,

Voici une déclaration un peu plus "propre"

Code:

1
2
3
4
5
6
7
8
9
10
11
 
type
  TCimEssai = class(TComponent)
  Private
    FDataSource : TDataSource;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    Property DataSource : TDataSource Read FDataSource Write FDataSource;
  end;

Salut :)

Citation:

Envoyé par rvzip64

Je voudrais faire un composant, qui de manière dynamique puisse créer plusieurs dataset (ou datasource), pour que par la suite je puisse facilement connecté des TChart.

Ce que tu peux faire c'est créer des Items (TCollectionItem) qui font la jonction entre le DataSource et la TChart.

Citation:

Envoyé par rvzip64

Est ce que je dois utilisé les TCollections pour faire cela ?

En général, les listes dans l'IDE en design time sont bien plus faciles à gérer avec les TCollection (elles sont faites pour ça). Par contre, il te faut hériter TCollection (le conteneur des Items) et les TCollectionItem (les Item en question)
Ca pourrait donner quelque chose dans ce genre:
Code:

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 TMonItem = class(TCollectionItem) private FDataSource: TDataSource; FChart: TChart; published property DataSource: TDataSource read FDataSource write FDataSource; property Chart: TChart read FChart write FChart; end; TMesItems = class(TCollection) private protected public published end; TMaClasse = class(TBidule) FCollection: TMesItems public constructor Create(AOwner: TComponent); override; destructor Destroy; override; published property MesItems: TMesItems read FMesItems write FMesItems; end; implementation constructor TMaClasse.Create(AOwner: TComponent); begin inherited; FCollection := TMesItems.Create(...); end; destroy TMaClasse.Destroy; begin FCollection.Free; inherited; end;
Citation:

Envoyé par rvzip64

La j'ai fais un petit exemple en statique est deja cela ne fonctionne pas :

Attention: Si tu mets une propriété published de cette façon, cela veut dire que le TDataSource est interne à la classe.
Si c'est le cas, il faut que tu crées le TDataSource dans chaque Item ;)

Bon courage :)

16/10/2007, 15h25
rvzip64

Merci pour la répidité de la réponse, je regarde ça et vous tiens au courant
16/10/2007, 16h59
rvzip64

Y a pas une autre méthode que le Tcollection ca en fait cela ne convient pas a mon utilisation....

Je préferé faire comme le TChart : quand on creer uen série, il arrive a l'accrocher a l object paent dans l'inspecteur d'object, comment fait il cela ?
16/10/2007, 19h20
Pedro

Citation:

Envoyé par rvzip64

Je préferé faire comme le TChart : quand on creer uen série, il arrive a l'accrocher a l object paent dans l'inspecteur d'object, comment fait il cela ?

Normalement, les TCollection font ça tout seul ;) Regarde l'exemple du TStatusBar: Chaque Panel est dérivé de TCollectionItem; Panels de TCollection.
Donne ton code pour qu'on regarde.