afficher une image dans une zone Timage

Bonjour,


Je suis débutant sur Delphi mais j'ai regardé pas mal de tutorial...
Voici mon probléme :
Je souhaite afficher une image dans une zone Timage selon qu'aura sélectionner l'utilisateur dans la zone TRadioGroup
radiogroup1.itemIndex:=2;
Les images se trouvent dans un dossier "Images" dans l'exécutable....


procedure TForm1.RadioGroup1Click(Sender: TObject);

var
chemin : string;
fichier : string;
begin
Case RadioGroup1.ItemIndex of
   0 :
 begin
  //récupération du chemin de l'executable
    chemin := ExtractFilePath( Application.ExeName ) ;
    fichier := chemin + 'Images\' + IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ;
  //test de l'existance du fichier
    if FileExists( fichier ) then
    begin
      Image1.Picture.LoadFromFile( fichier ) ;
    end ;
 end;

   1: showmessage('a');

End;
end;

................ il affiche bien le "a" quand je clique sur le bp n°2 mais lorsque je clique sur le bp n°1 QUE DALLE ..........
Pourtant le chemin du fichier est CORRECT;;;;
merci!

peut etre que l'evenement n'est pas lancé quand tu click sur le 1 parceque il est deja checked.

Essaye de mettre le meme code sur les 1 avec une autre image, et essaye de clicker dessus. normalement ca devrait marcher, ton code a l'air correct

bonsoir,
mets un point d'arrêt sur :
Case RadioGroup1.ItemIndex of
et teste sa valeur

cantador

fichier := chemin + 'Images\' + IntToStr( RadioGroup1.ItemIndex ) + '.bmp' ;

ne veut-tu pas dire plutôt :

fichier := chemin + 'Images\' + IntToStr( RadioGroup1.Items[ RadioGroup1. ItemIndex] ) + '.bmp' ;

SISI231

Excuse moi j'ai dis une bêtise
SISI231