Discussion :

[retwas]

Bonjour,

J'ai une petite question, je souhaiterais
qu'a chaque clic sur un button j'ai un TImage qui se crée
et je ne sais pas vraiment comment faire..

Merci,
Robin

[Paul TOTH]

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Image: TImage;
begin
  Image := TImage.Create(Self);
  Image.Parent := Self; // et oui sinon elle ne s'affiche pas !
  Image.SetBounds(10, 10, 100, 100); // positionnment x, y, largeur, hauteur
end;

[Archimède]

Dans uses, ajoute l'unit :ExtCtrls je crois..., sinon ça ne va pas le faire ...

puis un

Code :

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

image.picture.loadfromfile('......');

pour voir quelque chose...

[retwas]

Merci beaucoup