Discussion :

[Dereck07]

bonjour,

Je cherche à faire ma propre class à partir d'un Tform.
Quand je contruis la variable de nouvelle classe dephie me jete et je comprends pas pk ?

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
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls; 
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    ListBox1: TListBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
type
  TListP = class(TForm)
    constructor Create(Owner:TComponent);
    destructor Destroy;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
var
  Form1: TListP;
  Compo: TForm;
 
implementation
 
{$R *.dfm}
 
 
constructor TListP.Create(Owner:TComponent);
begin
  inherited;
  Top :=10;
  Left :=10;
  Width :=1000;
  Height := 2000;
ListBoxAllPS := TListBox.Create(nil);
  with ListBoxAllPS do
  begin
    Parent := Self;
    Top :=10;
    Left :=10;
    Width :=200;
    Height := 800;
    Sorted:=true;
  end;
  OpenRepList_Button := TButton.Create(nil);
  with OpenRepList_Button do
  begin
    Parent := Self;
    Top :=850;
    Left :=10;
    Width :=200;
    Height := 100;
    Caption := 'Open .ps directory';
  end;
end;
 
destructor TListP.Destroy;
begin
 
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Compo := TlistP.Create(Form1);
Compo.Visible:=true;
end;
end.

Quelqu'un voit il le pb ?

[Cl@udius]

Salut

Je peux voir ton DPR ?

[Andnotor]

Ta 2ème fiche n'a pas (et ne peux pas avoir) de DFM associé. Tu ne dois pas utiliser Create, mais CreateNew.

[ShaiLeTroll]

constructor Create(Owner:TComponent);sans le override; cela ne sert à rien !
destructor Destroy; sans le override; cela ne sert à rien !

Même conseil, surcharge de CreateNew ou alors

Code :

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

1
2
3
4
5
constructor TListP.Create(Owner:TComponent);
begin
  inherited CreateNew(Owner, 0);
  ...
end;

Code :

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

1
2
3
4
destructor TListP.Destroy;
begin
  inherited; // Obligatoire sinon risque de VA et Runtime Error 216
end;

Code :

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

TListBox.Create(Self);

avec nil comme Owner, en théorie tu as un risque de fuite mémoire, même si en pratique les controls imbriqués sont libèrés par leur containeur, mais autant tout de même faire les choses proprement !
Faudrait apprendre les bases de l'héritage en Delphi et la surcharge de méthodes virtuelles !

[Dereck07]

Ca marche nickel

Merci