Bonjours,
Je n'arrive pas à mettre mon object dans ma listbox.
La faute se fait ou je veux crée l'Object. Je suis tout à fait perdu
maintenant. Y' a t-il quellqu' un qui puisse m'aider à résoudre mon problem.
Merci beaucoup pour votre aide.

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
type
  TMyClass2 = class(TObject)
  public
    Value1,  Value2: string;
    constructor Create(Sv,Tv: string);
  end;
 
var
  MyObject2: TMyClass2;
..
 
implementation
constructor TMyClass2.Create(Sv,Tv: string);
begin
    Value1 := Sv;
    Value2 := Tv;
end;
 
 
 
procedure TForm1.Button1Click(Sender: TObject);
  begin
 
   // je pense ceci n'est pas correcte..???
   -->     MyObject2 := TMyClass2.Create(self ??);
 
     MyObject2.Value1 := 'test 1';
     MyObject2.Value2 := 'test 2';
     Listbox2.Items.AddObject('AjouteItem 1' ,MyObject2);
 end;

Cordialement.
Ardely