Ricolabricot
Messages postés7Date d'inscriptionlundi 8 décembre 2003StatutMembreDernière intervention15 février 2004
-
12 févr. 2004 à 16:29
Ricolabricot
Messages postés7Date d'inscriptionlundi 8 décembre 2003StatutMembreDernière intervention15 février 2004
-
15 févr. 2004 à 22:32
J'aimerais savoir comment je peut faire pour afficher une image dans un TImage selon le choix qui est fait dans un TDBLookupComboBox.
J'ai essayer un code que j'ai trouver sur se site mais il ne fonctionne pas avec un TDBLookupComboBox :
procedure TForm1.listeperiphClick(Sender: TObject);
begin
with listeperiph do
if ListFieldIndex >= 0 then
begin
periph.Picture := Nil;
ImageListperiph.GetBitmap(ListFieldIndex, periph.Picture.Bitmap);
end;
end;
Ricolabricot
Messages postés7Date d'inscriptionlundi 8 décembre 2003StatutMembreDernière intervention15 février 2004 15 févr. 2004 à 22:32
Bon j'ai trouver la solution en fait y faut utiliser un DBImage et ca donne :
procedure TForm1.listemobilClick(Sender: TObject);
begin
if listemobil.ListFieldIndex >= 0 then
begin
DBmobil1.Picture := Nil;
mobilimg := listemobil.KeyValue ;
DBmobil1.Picture.Bitmap.LoadFromFile(mobilimg);
end;
end;
bien sur il faut mettre le meme datasource dans le DBImage que dans le DBLookupComboBox...