Discussion :

[pierrot67]

Bonjour

J'ai un composant tbimage avec ce code:

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm22.BitBtn2Click(Sender: TObject);
begin
  if form2.OpenPictureDialog1.Execute then
    begin
    form2.geologie.edit;
    dbimage1.Picture.LoadFromFile(form2.OpenPictureDialog1.FileName);
 
end;
end;

il m'affiche l'image mais
Quand je valide la base il m'efface l'image ou est l'erreur?


quand je met ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm22.BitBtn2Click(Sender: TObject);
begin
  if form2.OpenPictureDialog1.Execute then
    begin
    form2.geologie.edit;
    dbimage1.Picture.LoadFromFile(form2.OpenPictureDialog1.FileName);
    form2.geologie.post;
end;
end;

il ne m'affiche rien Pourquoi?

[Frank]

A mon avis, il l'efface pas, mais il doit falloir rafraichir le formulaire.

[pierrot67]

ça ne marche pas. mais j'ai trouvé l'image etait au format jpeg il fallait la mettre au format bmp ce qui ne m'arrange pas.