Discussion :

[inox77]

Bonjour messieurs,

J'ai un petit soucis, si vous pouviez m'aider ce serait sympa, je vais essayer d'être claire:

Sur ma classe (A) TForm principale, j'ai un TSpeedButton et un TImageList.

J'ai créé une classe (B) héritée de TObject créée à partir de ma TForm principale, cette classe contient également un TSpeedButton et un TImageList qui est en fait le TSpeedButton et le TImageList de ma TForm principale.

En résumé:

Code :

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

1
2
3
B.Create;
B.SpeedButton := A.SpeedButton;
B.ImageList := A.ImageList;

Dans B je cherche à modifier le Glyph du SpeedButton (dynamiquement donc).

Dans ma classe B je fais (ma ImageList contient deux images différentes):

Code :

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

1
2
ImageList.GetBitmap(0,SpeedButton.Glyph);
SpeedButton.Repaint;

ou

Code :

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

1
2
ImageList.GetBitmap(1,SpeedButton.Glyph);
SpeedButton.Repaint;

suivant une condition.

Hors, au final, l'image ne change malheureusement pas..

Merci d'avance pour votre aide..

@+

[Cl@udius]

Salut

Code :

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

1
2
3
B.Create;
B.SpeedButton := A.SpeedButton;
B.ImageList := A.ImageList;

Ces 3 lignes me chagrine, ce n'est pas ainsi que créé une instante de la classe B ? Si ?

@+ Claudius

[inox77]

Salut

Ces 3 lignes me chagrine, ce n'est pas ainsi que créé une instante de la classe B ? Si ?

@+ Claudius

Si en effet, la classe B est construite de cette manière.
Enfin j'ai résumé.. en réalité je fais directement:

Code :

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

B.create(SpeedButton,ImageList);

et dans le constructeur j'attribue SpeedButton et ImageList à des variable privée de B

A vrai dire je n'ai même pas fais le test de ce code:

Code :

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

1
2
ImageList.GetImage(0,SpeedButton.Glyph);
SpeedButton.Repaint;

directement et classiquement dans la classe principale pour voir si le problème vient de la classe B ou pas..

[Aka Guymelef]

Oui mais si B est le nom de la variable alors on doit écrire l'instanciation comme ceci :

Code :

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

1
2
3
4
5
var
  B: TMaClasse;
begin
  B := TMaClasse.Create( SpeedButton,ImageList );
end;

[Cl@udius]

Re,

Ben ce n'est pas ainsi que l'on créé une instance de classe sous Delphi.

J'ai fais cette exemple rapidement, qui s'approche de ta situation:

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
 
type
  TClassB = class(TObject)
  private
    ImageList: TImageList;
    SpeedButton: TSpeedButton;
  public
    constructor Create(Btn: TSpeedButton; ImgList: TImageList); 
    procedure ChangeGlyph(const Index: Integer);
  end;
 
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    ImageList1: TImageList;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    FClassB: TClassB;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FClassB := TClassB.Create(SpeedButton1, ImageList1);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FClassB.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  FClassB.ChangeGlyph(1);
end;
 
{ TClassB }
 
procedure TClassB.ChangeGlyph(const Index: Integer);
begin
  ImageList.GetBitmap(Index, SpeedButton.Glyph);
  SpeedButton.Repaint;
end;
 
constructor TClassB.Create(Btn: TSpeedButton; ImgList: TImageList);
begin
  inherited Create;
  SpeedButton := Btn;
  ImageList := ImgList;
end;
 
end.

La ligne importante est celle-ci:

Code :

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

  FClassB := TClassB.Create(SpeedButton1, ImageList1);

@+ Claudius

[inox77]

Re,

Ben ce n'est pas ainsi que l'on créé une instance de classe sous Delphi.

J'ai fais cette exemple rapidement, qui s'approche de ta situation:

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
 
type
  TClassB = class(TObject)
  private
    ImageList: TImageList;
    SpeedButton: TSpeedButton;
  public
    constructor Create(Btn: TSpeedButton; ImgList: TImageList); 
    procedure ChangeGlyph(const Index: Integer);
  end;
 
  TForm1 = class(TForm)
    SpeedButton1: TSpeedButton;
    ImageList1: TImageList;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
    FClassB: TClassB;
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  FClassB := TClassB.Create(SpeedButton1, ImageList1);
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  FClassB.Free;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  FClassB.ChangeGlyph(1);
end;
 
{ TClassB }
 
procedure TClassB.ChangeGlyph(const Index: Integer);
begin
  ImageList.GetBitmap(Index, SpeedButton.Glyph);
  SpeedButton.Repaint;
end;
 
constructor TClassB.Create(Btn: TSpeedButton; ImgList: TImageList);
begin
  inherited Create;
  SpeedButton := Btn;
  ImageList := ImgList;
end;
 
end.

La ligne importante est celle-ci:

Code :

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

  FClassB := TClassB.Create(SpeedButton1, ImageList1);

@+ Claudius

Tout a fait..

Je suis resté très symbolique dans le code posté.

[Cl@udius]

Je suis resté très symbolique dans le code posté.

Ah, peut-être un peu trop alors...

Montre-nous le code de ta classe B (ou les extraits qui posent problème).