Discussion :

[defiant69]

Bonjour,

N'étant pas doué pour expliquer clairement ce que je cherche je vais passer par un exemple que j'espere clair:

un composant T1 qui hérite d'un TCustomPanel

je lui déclare en propriétés deux composants existants (pour faire simple un tlabel et un tstringgrid) que je positionne par code selon mes envies (avec des ancres et des propriétés talign)

je construis mon composant de façon à ce que, à l'éxécution, lorsque je clique dans ma stringgrid j'ai le contenu de la cellule qui saffiche dans mon tlabel.

Que dois je faire pour que , à la conception , lorsque je pose mon composant, à partir de la palette de delphi sur ma form: Mon panel affiche ma stringgrid et mon tlabel.

Je n'ai que faire du refraichissement de mon composant en fonction des propriétés des mes components pour le moment.

Si quelqu'un peut me mettre sur la voie.

Merci d'avance.

[evarisnea]

as-tu regardé ceci Cours sur la création des composants ?

ton composant T1 doit créer dynamiquement le TLabel et le TStringGrid, être leur Owner et leur Parent. et toujours dans le composant, tu dois écrire le code permettant de réagir à la sélection d'une cellule afin d'en écrire son contenu dans le Label (ajouter un gestionnaire pour l'évènement OnSelectCell de la grille).

[defiant69]

Que dois je faire pour que , à la conception , lorsque je pose mon composant, à partir de la palette de delphi sur ma form: Mon panel affiche ma stringgrid et mon tlabel.

Je sais déjà comment créer dynamiquement mes composants et je sais aussi remplacer le onselectCell de mon composant TStringGrid par ma propre procédure avec la signature correcte bien sûr.

j'ai fait des dizainnes de composant composites et à chaque fois que je tire ces composants en mode conception de la palette delphi: j'ai toujours un look de TPanel or ce n'est pas ça que je veux.


Je cherche à ce que mon composant ressemble à mon composant qu'il soit en mode exécution ou en mode conception. Qu'il ait le même look en somme.

J'ai fait le tous des tutoriels du net et ils expliquent en gros comment créer un compos à partir de rien ou à partir d'un héritage. je n'ai pas trouvé de tutoriels m'expliquant comment redessiner un assemblage de composant sur un tpanel.


Merci pour l'effort malheureusement ce n'est pas ce que je recherche

[evarisnea]

as-tu regardé ceci Cours sur la création des composants ?

ton composant T1 doit créer dynamiquement le TLabel et le TStringGrid, être leur Owner et leur Parent. et toujours dans le composant, tu dois écrire le code permettant de réagir à la sélection d'une cellule afin d'en écrire son contenu dans le Label (ajouter un gestionnaire pour l'évènement OnSelectCell de la grille).

un exemple pour illustrer mon propos :

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
59
60
61
62
63
64
65
66
67
68
69
unit Panel1;
 
interface
 
uses
  SysUtils, Classes, Controls, ExtCtrls, StdCtrls, Grids;
 
type
  TPanelGrid = class(TPanel)
  private
    FGrid: TStringGrid;
    FLabel: TLabel;
    { Déclarations privées }
  protected
    { Déclarations protégées }
    procedure OnSelectCellHandler(Sender: TObject; ACol, ARow: Integer;
      var CanSelect: Boolean);
  public
    { Déclarations publiques }
    constructor Create(AOwner:TComponent);override;
    destructor Destroy;override;
  published
    { Déclarations publiées }
    property MonLabel :TLabel read FLabel;
    property MaGrille :TStringGrid read FGrid;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('TestsDvp', [TPanelGrid]);
end;
 
{ TPanelGrid }
 
constructor TPanelGrid.Create(AOwner: TComponent);
begin
  inherited;
  //creation des composants et parametrage des composants
  FLabel := TLabel.Create(self);
  FLabel.Parent := self;
  FLabel.Align := alTop;
  FGrid := TStringGrid.Create(self);
  FGrid.Parent := self;
  FGrid.Align := alClient;
  FGrid.OnSelectCell := OnSelectCellHandler;
  FGrid.Options := FGrid.Options + [goEditing, goAlwaysShowEditor];
end;
 
destructor TPanelGrid.Destroy;
begin
  //detruire les composants crees
  //facultatif car notre composant est leur owner...
  FGrid.Free();
  FLabel.Free();
  inherited;
end;
 
procedure TPanelGrid.OnSelectCellHandler(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  //ecrire le texte de la cellule dans le label
  FLabel.Caption := FGrid.Cells[ACol, ARow];
end;
 
end.

[GoustiFruit]

Je ne m'embête pas, quand j'ai besoin de composants composites, j'utilise CCPack5 :-)

[defiant69]

Définitivement pas ce que je recherche.



Ca c'est ce que j'obtiens quand je suis en mode conception dans l'éditeur de delphi



si je compile j'obtiens deux Tstringgrid avec un tlabel lié qui fonctionne comme je le veux.

Le fonctionnel est bon. Ce que je veux c'est le visuel dans l'éditeur...et pas uniquement à l'éxécution

si je parametres dans le create de mon composant que le tlabel est rouge je veux que ça apparaisse en mode édition en plus d'apparaitre en mode execution.

je ne parlais pas du tout du mode édition de la Tstringgrid

je vais essayer CCPack voir ce qu'il fait ce que je veux.

Merci.

[Andnotor]

L'exemple d'Evarisnea est clair et c'est la seule façon de procéder.
La seule chose qui puisse limiter l'affichage au design est d'avoir un test sur ComponentState <> csDesigning qui conditionnerait la création des composants enfants.

Montre-nous du code...

[evarisnea]

L'exemple d'Evarisnea est clair et c'est la seule façon de procéder.
La seule chose qui puisse limiter l'affichage au design est d'avoir un test sur ComponentState <> csDesigning qui conditionnerait la création des composants enfants.

Montre-nous du code...

+1, car j'avoue ne plus comprendre, l'exemple que j'ai donné réalise ce qu'il demande, mais il dit que non.


@defiant69
montre nous ce que tu as fait qui ne marche pas.