Evènement sur clic droit !?
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:
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:
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 ! :x
Cordialement,
