TImage & TImageListRésolu

Question

Bonjours... voila j'ai le bout de code suivant qui doit changer l'image dans un TImage....
le problème, c'est qu'il change l'image avec le OnMouseDown, et que après il ne change plus l'image.... quoi que je fasse, il charge que une seul image, et apres impossible de la changer...

procedure TMenuForm.Img_MenuBtPlayMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  ImgLst_MenuButton.GetBitmap(1, Img_MenuBtPlay.Picture.Bitmap);
end;

procedure TMenuForm.Img_MenuBtPlayMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ImgLst_MenuButton.GetBitmap(4, Img_MenuBtPlay.Picture.Bitmap);
end;

Voila... si quelqu'un sait pourquoi ça marche pas, (et sait comment résoudre le problème)....

japee · Accepted Answer

Salut,

Essaye comme ceci :

procedure TMenuForm.Img_MenuBtPlayMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Img_MenuBtPlay.Picture := nil;
  ImgLst_MenuButton.GetBitmap(1, Img_MenuBtPlay.Picture.Bitmap);
end;

procedure TMenuForm.Img_MenuBtPlayMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Img_MenuBtPlay.Picture := nil;
  ImgLst_MenuButton.GetBitmap(4, Img_MenuBtPlay.Picture.Bitmap);
end;

Bonne prog' 

japee

flo160fr · Answer

merci beaucoup ! grace a toi j'ai attein le sommet de la claire-voyance ! (faidra ke je médite sur cette phrase) en tous cas, tu a résolu sans le voulor un autre de mes probleme (vachement pratique le "nil")
a+

flo160fr · Answer

merci beaucoup ! grace a toi j'ai attein le sommet de la claire-voyance ! (faidra ke je médite sur cette phrase) en tous cas, tu a résolu sans le voulor un autre de mes probleme (en plus de suis la) (vachement pratique le "nil")
a+

TImage & TImageList

3 réponses

Votre réponse

Discussions similaires