Discussion :

[exyacc]

bonjour,

y a t'il moyen d'ajouter une méthode a un composant sans devoir créer son propre composant, ou créer une classe qui dérive de ce composant ?
par exemple, j'ai un treeview, je voudrais ajouter une méthode, mais je voudrais garder quand même le Ttreeview "d'origine" que j'ai mis sur ma form, car il est déjà placé au bon endroit, bonne taille, bonne couleur, etc ; mais si je crée ma classe qui herite de TTreeview, je vais devoir mettre ces infos dans mon code et pas directement en le bougeant sur ma form. j'ai pas envie non plus de creer mon composant, car il ne servira que cette fois la.
y'a un moyen de faire ca ?
j’espère avoir été clair...

merci

exyacc


(delphi 2006)

[Papy214]

Oui c'est possible.

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
 
  TLabel = class(Vcl.StdCtrls.TLabel)
  public
    procedure FaireCeci;
  end;
 
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    Label1: TLabel;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
{ TLabel }
 
procedure TLabel.FaireCeci;
begin
  //
end;

[tourlourou]

Tu peux regarder de ce côté : http://www.developpez.net/forums/d13...r/#post7377740 ou définir ta classe dans une unité mise en uses de ta fiche et juste déclarer en tête de l'unité de ta fiche : type TTreeView = TMyTreeView;

[exyacc]

Oui c'est possible.

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
 
  TLabel = class(Vcl.StdCtrls.TLabel)
  public
    procedure FaireCeci;
  end;
 
  TForm1 = class(TForm)
    ADOConnection1: TADOConnection;
    Label1: TLabel;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
{ TLabel }
 
procedure TLabel.FaireCeci;
begin
  //
end;

merci pour ta reponse rapide
j'ai essayé en mettant :

Code :

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

 TJvTreeView=class(jvcomctrls.TJvTreeView)

mais il me met une erreur sur une procedure que j'avais avant

Code :

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

 decocher_tout(TreeView_liste_base);

j'ai l'erreur suivante: type incompatibles unit1.tjvtreeview et jvcomctrls.tjvtreeview

plus tard je vais justement mettre "decocher_tout" comme nouvelle methode a TJvTreeView, mais ca devrait pas marcher sans ça ?

[exyacc]

Tu peux regarder de ce côté : http://www.developpez.net/forums/d13...r/#post7377740;

merci

Class Helpers a l'air de marcher qu'a partir de 2009 (d'apres le titre)

[exyacc]

en relisant "tourlourou" j'ai mis la declaration avant la declaration de la form et la ca compile, j'essai maintenant en ajoutant une methode ... :o)

merci a vous 2

[exyacc]

c'est bon, ça marche, merci a vous 2 !