Objet et reintroduce

**Archimède** · 29/04/2008, 17h56

voilà, je cherche la manière d'éviter les messages d'avertissements en faisant de l'objet...
le post un peu plus loin parle déjà de ce sujet...
Il me semblait que la méthode de tourlourou avec reintroduce était la solution ... mais elle ne marche pas !

le problème est de rajouter des paramètres au constructor create sans avoir de messages d'avertissement. j''overloade' mais je retrouve le message d'avertissement...
la méthode avec reintroduce de tourlourou serait la bonne mais je n'arrive pas à la mettre en oeuvre...

par exemple :

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
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,comctrls,extctrls;
 
  type Ttrack=class(Tpanel)
  public
  T:Ttrackbar;
  constructor create(aowner:Tcomponent);overload;override;
  constructor create(aowner:Tcomponent;w,h,l,t:integer);overload;
  destructor destroy; override;
  end;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    montrack:Ttrack;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 constructor Ttrack. create(aowner:Tcomponent);
 begin
 inherited;
 T:=Ttrackbar.create(self);
 T.Parent:=self;
 T.align:=alclient;
 T.Cursor:=crhandpoint;
 end;
 
 constructor Ttrack. create(aowner:Tcomponent;w,h,l,t:integer);
 begin
 create(aowner);
 width:=w;
 height:=h;
 left:=l;
 top:=t;
 end;
 
 destructor Ttrack.Destroy;
 begin
 t.Free;
 inherited;
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
montrack:=Ttrack.create(self,100,30,20,20);
montrack.Parent:=self;
end;
 
end.

c'est un exemple bidon pour avoir un support mais comment rendre ça le plus propre possible.
il me semblait que surcharger le constructeur était le plus propre...
parce que sinon il suffit de faire une petite proc publique qui gère la taille et la position de mon objet ( ce que je faisais avant sans avoir à overloader-> et là, je n'ai plus d'avertissement)

les conseils et les avertissement sont les suivants :
[Conseil] Unit1.pas(12): H2365 La méthode Ttrack.create redéfinie devrait avoir le même case que l'ancêtre TCustomPanel.Create// là, j'ai pas la solution
[Avertissement] Unit1.pas(13): W1010 La méthode 'Create' cache la méthode virtuelle du type de base 'TCustomPanel'
[Conseil] Unit1.pas(14): H2365 La méthode Ttrack.destroy redéfinie devrait avoir le même case que l'ancêtre TCustomControl.Destroy

comment les éviter... et où trouver un bouquin sur de l'objet pur en delphi ?
J' avais acheté l'orienté objet aux editions Eyrolles mais on a rien en delphi
dans son contenu...(ça manque...et c'est pourtant fondamental pour ceux qui développent en delphi)

**Cl@udius** · 29/04/2008, 18h18

Salut

Quelque chose comme ça, avec un seul constructeur:

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
 
interface
// ...
  constructor Create(AOwner: TComponent; w, h, l, t: Integer); reintroduce;
 
// ...
 
implementation
 
constructor TTrack.Create(AOwner: TComponent; w, h, l, t: Integer);
begin
  inherited Create(AOwner);
  Width := w;
  Height := h;
  Left := l;
  Top := t;
end;

@+ Claudius

**ShaiLeTroll** · 29/04/2008, 18h51

Un sujet récent "Utilisation de Reintroduce | surcharge de constructeur"

**Paul TOTH** · 29/04/2008, 19h10

pour respecter la mise en forme (dont la case) Delphi il faudrait écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type
 TTrack=class(TPanel)
  private
   fTrackBar:TTrackBar;
  public
   constructor Create(AOwner:TComponent); override; overload;
   constructor Create(AOwner:TComponent;w,h,l,t:integer); reintroduce; overload;
   destructor Destroy; override;
  end;

**Archimède** · 29/04/2008, 20h03

Envoyé par Paul TOTH

pour respecter la mise en forme (dont la case) Delphi il faudrait écrire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
type
 TTrack=class(TPanel)
  private
   fTrackBar:TTrackBar;
  public
   constructor Create(AOwner:TComponent); override; overload;
   constructor Create(AOwner:TComponent;w,h,l,t:integer); reintroduce; overload;
   destructor Destroy; override;
  end;

J'ai rajouté reintroduce; overload; mais j'ai encore ce type de conseil :
[Conseil] Unit1.pas(12): H2365 La méthode Ttrack.create redéfinie devrait avoir le même case que l'ancêtre TCustomPanel.Create
[Conseil] Unit1.pas(14): H2365 La méthode Ttrack.destroy redéfinie devrait avoir le même case que l'ancêtre TCustomControl.Destroy

Est-ce qu'il y a moyen de les eviter et surtout qu'elle est la mise en forme idéale pour faire disparaître ce type de message ?

Ce dit merci , c'est sympa d'avoir trois réponses de trois pointures comme vous sur ce post.

je regarde les deux autres propositions avec respect et grand intérêt...(cl@udius et shaileTroll)

**Paul TOTH** · 29/04/2008, 21h01

Envoyé par Archimède

J'ai rajouté reintroduce; overload; mais j'ai encore ce type de conseil :
[Conseil] Unit1.pas(12): H2365 La méthode Ttrack.create redéfinie devrait avoir le même case que l'ancêtre TCustomPanel.Create
[Conseil] Unit1.pas(14): H2365 La méthode Ttrack.destroy redéfinie devrait avoir le même case que l'ancêtre TCustomControl.Destroy

je n'ai pas ces warnings sous D6, mais si je les comprend bien, c'est juste un problème de case, il faut taper Create et Destroy, et habituellement sous Delphi on tape TTrack.

**Archimède** · 29/04/2008, 21h50

oui, je sais avec delphi 7, je n'avais pas ce type de remarque non plus.
Là, j'utilise delphi 2005...

En utilisant la proposition de Cl@udius, je n'ai plus de commentaires...
L'utilisation d'un seul constructeur est tout à fait judicieuse...
(Et pourtant, je conserve la minuscule pour Ttrack...)
je vais refaire un essai avec la version précédente...

solution de CL@udius (merci

Cl@udius entre parenthèse)

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
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,comctrls,extctrls;
 
  type Ttrack=class(Tpanel)
  public
  Tr:Ttrackbar;
  constructor create(aowner:Tcomponent;w,h,l,t:integer);reintroduce;
  destructor destroy;reintroduce;
 
  end;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    montrack:Ttrack;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 constructor Ttrack. create(aowner:Tcomponent;w,h,l,t:integer);
 begin
 inherited create(aowner);
 width:=w;
 height:=h;
 left:=l;
 top:=t;
 Tr:=Ttrackbar.create(self);
 Tr.Parent:=self;
 Tr.align:=alclient;
 Tr.Cursor:=crhandpoint;
 end;
 
 destructor Ttrack.Destroy;
 begin
 tr.Free;
 inherited;
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
montrack:=Ttrack.create(self,100,30,20,20);
montrack.Parent:=self;
end;
 
end.

là nickel.

**Paul TOTH** · 29/04/2008, 21h58

Envoyé par Archimède

oui, je sais avec delphi 7, je n'avais pas ce type de remarque non plus.
Là, j'utilise delphi 2005...

En utilisant la proposition de Cl@udius, je n'ai plus de commentaires...
L'utilisation d'un seul constructeur est tout à fait judicieuse...
(Et pourtant, je conserve la minuscule pour Ttrack...)
je vais refaire un essai avec la version précédente...

si je ne dis pas de connerie, ça doit être lié à .Net, j'ai pas trop étudier ça mais j'ai un vague souvenir sur une comportement particulier des constructor "Create" (C majuscule) pour les objets .Net.

**Archimède** · 29/04/2008, 22h13

Envoyé par Paul TOTH

si je ne dis pas de connerie, ça doit être lié à .Net, j'ai pas trop étudier ça mais j'ai un vague souvenir sur une comportement particulier des constructor "Create" (C majuscule) pour les objets .Net.

En effet, tu as raison. J'ai ajouté des majuscules...

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,comctrls,extctrls;
 
  type TTrack=class(Tpanel)
  public
  Tr:Ttrackbar;
  constructor Create(aowner:Tcomponent);overload;override;
  constructor Create(aowner:Tcomponent;w,h,l,t:integer);reintroduce;overload;
  destructor Destroy;override;
  end;
type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Déclarations privées }
    montrack:TTrack;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
 
 constructor Ttrack.Create(aowner:Tcomponent;w,h,l,t:integer);
 begin
 Create(aowner);
 width:=w;
 height:=h;
 left:=l;
 top:=t;
 end;
 
 constructor TTrack.Create(aowner:Tcomponent);
 begin
 inherited;
 Tr:=TTrackbar.Create(self);
 Tr.Parent:=self;
 Tr.align:=alclient;
 Tr.Cursor:=crhandpoint;
 end;
 
 destructor Ttrack.Destroy;
 begin
 tr.free;
 inherited;
 end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
montrack:=TTrack.Create(self,100,30,20,20);
montrack.parent:=self;
end;
 
end.

ça marche (pas de lézards).

merci encore...
C'est bien d'avoir des conseils éclairés comme ça...
on comprend mieux les choses...

Pour un pro comme toi, il vaut mieux la méthode utilisant deux constructeurs ou un seul. Quel est le plus rigoureux ?

**Paul TOTH** · 29/04/2008, 22h37

Envoyé par Archimède

Pour un pro comme toi, il vaut mieux la méthode utilisant deux constructeurs ou un seul. Quel est le plus rigoureux ?

ben si tu n'utilises que la forme complète, il ne sert à rien d'en déclarer deux

en plus personnellement je n'aime pas les overload...mais c'est un avis très personnel que je partage avec moi même

**Archimède** · 30/04/2008, 09h59

Envoyé par Paul TOTH

ben si tu n'utilises que la forme complète, il ne sert à rien d'en déclarer deux

en plus personnellement je n'aime pas les overload...mais c'est un avis très personnel que je partage avec moi même

Ok, super, parfait pour tes réponses je dormirai un peu moins con ce soir

Je clos la discussion.

ps: merci pour la réf. shailetroll, en effet, il y avait pratiquement tout dedans...

A+

Objet et reintroduce

Langage Delphi

Discussions similaires

Partager

Partager