Discussion :

[Simlock]

Bonjour,

J'ai un petit soucis étonnant. Je veux ouvrir un TOpenDialog pour sélectionner une image et la charger dans mon programme...

Le problème c'est qu'une fois le TOpenDialog fermé, l'image se charge mais mon programme ne fonctionne plus correctement. Je n'arrive plus à charger d'autres images ou à lire/écrire dans un fichier. Je crois que je peux tout simplement plus interagir avec d'autres fichier.

Tout fonctionne jusqu'à la fermeture du TOpenDialog SAUF si je ferme la TOpenDialog avec la croix et que je ne charge rien.

Voilà mon bout de code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TFormConfigTache.ChoosePicture(Sender: TObject);
var
  str     : string;
begin
 
  //Ouvre directory
  if (Dialog_PictureFile.Execute)then
  begin
    P_Apercu.Picture.LoadFromFile(Dialog_PictureFile.FileName);
  end;
 
end;

Vous avez une idée ?

[Moez.B]

Bonjour,
il faut tester si le FileName est renseigné

Code :

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

1
2
3
 
  if (Dialog_PictureFile.FileName<>'') Then
    P_Apercu.Picture.LoadFromFile(Dialog_PictureFile.FileName);

[Simlock]

C'est vrai que je ne le test pas mais ce n'est pas le soucis. Le FileName est bien renseigné puisqu'il charge l'image. Et j'ai vérifié en debug ^^

[Moez.B]

Dialog_PictureFile est un composant posé sur la fiche TFormConfigTache ou bien créé quelque part en code ?

[Simlock]

Posé sur la fiche. :/

[SergioMaster]

Bonjour,

et si, déjà, on avait connaissance de la version de Delphi et de l'OS ?