Initialiser un TImage

**PadawanDuDelphi** · 15/02/2007, 16h36

Salut à tous,

Voilà mon problème c'est encore et toujours la POO...En fait je suis en train de faire un logiciel de simulation électrique, et tous les composants sont en faite un TImage avec des propriété propre (une image, un type, un identifiant, un point du réseau...)

Et en faite je voudrais faire une méthode qui me permette d'initialiser l'image (et d'autres variables) à la création de l'objet en passant seulement le type. Mais je bloque... Voici mon code, merci par avance pour l'aide apportée.

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
type
  TObjet = class(TImage)
  private
    fbranche_id:integer;
    ftypeobjet:integer;
    objet_id:integer;
    objet_visible, objet_selectionner:boolean;
    .....
  public
    Property selection:boolean read objet_selectionner write objet_selectionner;
    Property Data:TDataSource read aData write aData;
    Property num_id:integer read objet_id write objet_id;
    Property Afficher:boolean read objet_visible write objet_visible;
    Property typeObjet:integer read ftypeobjet write ftypeobjet;
    Property branche_id:integer read fbranche_id write fbranche_id;
    procedure PositionnerDataset;
    Constructor Create(AOwner:TComponent;kindof : integer); overload;
end;
 
 
implementation
 
{{------------------------------------------------------------
--------------------------------------------------------------}
constructor TObjet.create(AOwner:TComponent;kindof:integer);
begin
  inherited Create(AOwner);
  objet_selectionner:=true;
  objet_id:=kindof;
 //Objet.Picture.LoadFromFile('C:\gare.bmp');  //plante puisque l'objet n'est pas encore créé...
end;
{{------------------------------------------------------------
--------------------------------------------------------------}
 
end.

A+.

**jambonstar** · 15/02/2007, 16h59

Salut,
Ta poperty peut avoir une procedure à la place d'une simple variable, ce qui peut te permettre de réaliser ce que tu souhaite.
Il te suffit de transformer ton code comme ceci :

Code :

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

1
2
3
4
5
6
7
8
Property typeObjet:integer read ftypeobjet write ftypeobjet;

// devient 

Property typeObjet:integer read ftypeobjet write SetTypeObjet;

// Une fois tapé comme ca tu fait Ctrl+Shift+C et ca va 
// automatiquement te crée la procédure.

Dans ta procédure du fait un case pour définir l'image à charger.
Comme ca des que tu affecte un nouveau type, magie, l'image se modifie

**jambonstar** · 15/02/2007, 17h05

Attends, je crois que j'ai pas bien lu ton post...

Tu souhaite charger l'image lors du premier affichage. Le Timage n'aurait pas un evenement OnShow ?
Si oui tu le dérive et hop...
Je me gourre peut-être encore..

**PadawanDuDelphi** · 15/02/2007, 17h17

Merci pour l'aide,

En faite mon problème c'est que je sais pas quoi mettre devant le

Code :

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

.Picture.LoadFromFile('C:\gare.bmp');

En effet puisque le TImage n'existe pas...Alors pour l'instant j'ai une classe "supérieur" qui gère la création des TImages et leurs affectent leurs propriétées initiales, mais j'ai peur qu'avec cette méthode je me retrouve vite avec des classes initialisant des classes intiliasisant des classes...

A+.