Discussion :

[rvzip64]

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 :

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

[rvzip64]

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

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

[DragonHeart]

Salut,

Voici une déclaration un peu plus "propre"

Code :

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

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;

[Pedro]

Salut

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.

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 :

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

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

[rvzip64]

Merci pour la répidité de la réponse, je regarde ça et vous tiens au courant

[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 ?

[Pedro]

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.