Discussion :

[Dereck07]

Bonjour, j'aimerai créer une class contenant un TEdit.
Voila comment j'ai fait:

Voici la declaration de la class contenant le TEdit:

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
 
type
 Tmyclass = class
  private
    t:TEdit;
  public
    constructor Create;
    destructor Destroy;
  published
    property text1:string read t.text write t.text;
  end;
 
constructor Tmyclass.Create;
begin
  t.Text:='new';
end;
 
destructor Tmyclass.Destroy;
begin
end;

Voici le bout de code dans lequel je teste ma class:

Code :

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

1
2
3
4
5
6
7
8
9
 
 
procedure TForm1.Button2Click(Sender: TObject);
var
ex:Tmyclass;
begin
ex:= Tmyclass.Create;
button2.Caption:=ex.text1;
end;

Deux problemes se pose a moi:
1) D'apres mon exemple losque j'appuis sur le bouton2 on devrait voir marqué dessu 'new'. Or je me fais jeter a la compilation car le compiateur de delphi n'aime pas: ' property text1:string read t.text write t.text; '
Pk?

sinon j'ai reussi a compiler en retirant cette ligne et en mettant a la place le teste suivant:

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm1.Button2Click(Sender: TObject);
var
ex:Tmyclass;
begin
ex:= Tmyclass.Create;
button2.Caption:=ex.t.Text;
end;

Mais la il quand j'appui sur le bouton2 il me marque dedans du vide au lieu de me mettre 'new'. Si quelqu'un pouvait me dire ce qui cloche dans ce code?

2) Le deuxieme probleme qui se pose a moi est pourquoi le TEdit ne s'affiche pas dans le Form1?
Comment faire pour le voir s'afficher?

[Fabrice ROUXEL 1]

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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
 Tmyclass = class(TCustomPanel)
  private
    FEdit:TEdit;
    FText: string;
    procedure SetText(const Value: string);
    function GetText: string;
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy;
  published
    property Text: string read GetText write SetText;
  end;
 
var
  Form1: TForm1;
  Compo: Tmyclass;
implementation
 
{$R *.DFM}
 
{ Tmyclass }
 
constructor Tmyclass.Create(AOwner: TComponent);
begin
  inherited;
  FEdit := TEdit.Create(nil);
  with FEdit do
  begin
    Parent := Self;
    SetBounds(10,10,100,100);
    Visible := True;
  end;
end;
 
destructor Tmyclass.Destroy;
begin
  if Assigned(FEdit) then FreeAndNil(FEdit);
  inherited;
end;
 
function Tmyclass.GetText: string;
begin
  Result := FEdit.Text;
end;
 
procedure Tmyclass.SetText(const Value: string);
begin
  FText := Value;
  FEdit.Text := Value;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Compo := Tmyclass.Create(Form1);
 with Compo do
 begin
  Parent := FOrm1;
  SetBounds(0,0,200,200);
  Visible := True;
  Color := clGray;
 end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  Button1.Caption := Compo.Text;
end;
 
end.

le dfm:

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
object Form1: TForm1
  Left = 206
  Top = 223
  Width = 783
  Height = 540
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Button1: TButton
    Left = 344
    Top = 6
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 344
    Top = 42
    Width = 75
    Height = 25
    Caption = 'Button2'
    TabOrder = 1
    OnClick = Button2Click
  end
end

[Dereck07]

Salut fabrice,

J'ai pris ton code et ca marche bien.
Cependant que je comprends pas tout.

A quoi sert l'instruction 'inherited'?

[ero-sennin]

Salut,

Inherited permet de faire appel, dans le constructeur par exemple, à la méthode create du composant hérité ...

De cette façon, le Create de ta classe va appeler le Create de la class TCustumPanel ...

J'espère que c'est clair

[Cl@udius]

Salut

Inherited permet de faire appel, dans le constructeur par exemple, à la méthode create du composant hérité ...

C'est parce qu'il fait un temps pourri chez moi, alors...
J'aurais plutot tourné la phrase ainsi:

Inherited permet de faire appel, dans le constructeur par exemple, à la méthode create du composant dont il hérite ...

@+ Claudius

[Dereck07]

Merci a tous pour ces infos...

Je pense qu'il est temps que je me trouve un bon tutorial sur les classes.

Si vous avez en connaissé je suis preneur...