Pb création dynamique plusieurs Timage

Version imprimable

Bonjour à tous,

dans une form, j'instancie une classe que j'ai développé. Cette classe a une méthode qui doit afficher sur la form appellante une série de Timage crée à la volée. J'ai essayé plusieurs façon pour cela, toujours sans résultat...

Voici le code de la méthode :

Code:

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
 
procedure MaClasse.MaMethode(vLeftPosition: Integer; vTopPosition: Integer; Parent: TForm);
var
	NbImages : Integer;
I: Integer;
begin
	NbImages := 15;
 
for I := 1 to NbImages do
    begin
  	with TImage.Create(Parent) do
 	    begin
 	    Parent := TForm(Parent);
            Name := 'T'+IntToStr(I);
 	    case I of
            	1:
                begin   
                    Top := vTopPosition;
                    Left := vLeftPosition;
                    width := 127;
                    visible := True;
                    enabled := True;
                    // La ligne ci dessous ne provoque pas d'erreur mais rien ne s'affiche sur la form
                    Picture.LoadFromFile(IntToStr(I)+'.jpg');
                    // J'ai donc testé la ligne ci dessous mais cela provoque une violation d'acces
                    //TImage(TForm(Parent).FindComponent('T'+IntToStr(I))).Picture.LoadFromFile(IntToStr(I)+'.jpg');
               end;
                2..15:
                begin
                     //  	
                end;
            end;
		end;
    end;

Voici l'appel de la méthode depuis ma form :

Code:

MaClasse.MaMethode(10, 10, Self);

Je pense que le problème semblera évident à un delphien confirmé, moi je suis encore un noob en création dynamique de compo !

Merci d'avance à ceux qui me dépanneront !

le FindComponent doit te renvoyer nil.

Commence par faire

Code:

1
2
3
4
5
6
7
8
9
10
11
var
  S: string;
  Img: TIMage;
...
  S := 'T'+IntToStr(I)....;
  // ShowMessage( S ) -> pour voir si ca correspond à ce que tu attends
  Img := TImage( TForm( Parent ).FindComponent( S ) );
  if Assigned( Img )
    then Img.Picture.Load....
    else showmessage( 'probleme ' + S + 'non trouvé....)
...

Salut et merci à toi de t'interesser à mon cas !

Le nom du TImage est bon, j'ai vérifié.

J'a essayé la modif suivante :

Code:

1
2
3
4
5
6
7
8
9
10
 
                   Img := TImage(TForm(Parent).FindComponent('T'+IntToStr(I)));
                   if Assigned( Img ) then
                   	begin 
                   		showmessage('bon');
                    end
    				else
                     begin
                     	showmessage('pas bon');
                     end;

Mais j'ai une violation d'accès sur la ligne Img := Timage....
(j'ai bien déclaré Img: TImage; dans la section var de la méthode)

11/09/2006, 11h15
TicTacToe

dans ce cas, je pense que TForm( Parent ).FindComponent...

Je ne sais pas ou tu as placé ce code, mais le "Parent" est par défaut celui de ta form, qui est donc à nil théoriquement -> ce qui expliquerait ton plantage

Ce serait pas plutot

Code:

TForm( Self ).FindComponent( ...

que tu voudrais faire ... ?

ce qui revient juste à

Code:

Self.FindComponent( ... )

ou

Code:

FindComponent( ... ) ; // attention aux with imbriqués...
11/09/2006, 11h23
fred64

Merci !

Je viens de comprendre l'erreur que j'avais fait :

Parent etait un paramètre d'appel de la méthode qui permettait d'affecter à la volée le Parent (En fait la forme qui instancie ma classe) au TImage crée dynamiquement. Le problème est que Parent désigne le Parent de l'objet en cours, j'ai renommé mon paramètre Parent en vParent et de même dans ma méthode et tout fonctionne !

Merci de m'avoir aiguillé