Bonjour,

J'ai fait une petite procedure pour changer mon image à chaque clic gauche...
3 images qui défilent les unes après les autres, le 4ème clic efface
l'image et on peut repartir pour un cycle... :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TFrmResultats.B5Click(Sender: TObject);
begin
  if Sender is TImage then
  with Sender as Timage do
  begin
    Tag:=Tag+1;
    case Tag of
      0: Picture.Assign(Vide.Picture);
      1: Picture.Assign(But.Picture);
      2: Picture.Assign(But2.Picture);
      3: Picture.Assign(But10.Picture);
      4: begin
        Picture.Assign(Vide.Picture);
        Tag := 0;
      end;
    end;
  end;
end;
J'aimerais pouvoir effacer l'image directement par un clic droit de souris
et éviter d'avoir à terminer le cycle....comment obtenir un évènement sur un clic droit !?
J'aimerais éviter de passer par des évènements genre
onmouseUp/onmousedown/onmousemove car j'ai l'impression que c'est le
coup à perdre des clics dans le cas où la souris est immobile....et même
si je voulais passer par onmousemove, je ne vois pas comment il faudrait
faire pour savoir si un clic droit a été détecté....quelqu'un a un exemple de code que je pourrais étudier !?

Au passage, un autre problème qui m'easpère car vraiment simple mais je
n'y arrive pas ! Je ne parviens pas à obtenir le nom de tous les sous
répertoires dans un répertoire particulier ! J'utilise tout naturellement
findfirst/findnext comme je l'ai utilisé plusieurs dizaines de fois pour
trouver des fichiers mais en utilisant fadirectory et je ne parviens pas à
filtrer QUE les répertoires....j'ai vu du code sur sur forum qui revient exactement à la même chose que j'ai tenté :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
 
  Chaine:='.\Championnats\*.*';
  Findfirst(Chaine,faDirectory,sr);
  lbteams.items.add(Sr.Name);
  while FindNext(sr) = 0 do
  begin
    lbteams.items.add(Sr.Name);
  end;
  FindClose(sr);
J'ai placé 3 répertoires dans le répertoires "championnats"....j'aurais aimé
extraire ces 3 noms de la liste mais il ne filtre pas QUE les répertoires :
.
..
10 aine de fichiers listés
les 3 répertoires à extraire listés

Je ne souhaiterais mettre dans la listbox que le nom de ces 3 derniers....
bref, je ne vois pas ce qui ne va pas j'aime pas bloquer sur des trucs
bètes comme ça !

Cordialement,