Discussion :

[camatchou]

Bonjour,

Quielle est la procédure (on click) d'un bouton quelconque qui simule l'appuie d'une combinaison de deux touches , exemple : [CTRL] [V] ?
je m'explique :

J'ai un bouton,
je veux, quand je clique dessus, c'est comme si j'ai appuyé sur [Ctrl] [V].

Merci d'avance.
(j'espère que j'ai été claire).

[Charly910]

Bonjour,

tu n'as as besoin d'un bouton :

Tu mets la propriété KeyPreview de la Fiche à True et tu codes FormKeyDown :

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 TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
Begin
   If (Shift = [ssCtrl]) Then
      Begin
         If  ((Key = Ord('c')) or (Key = Ord('C')))  Then
             Begin
                ShowMessage('Copier') ;
             End ;
         If  ((Key = Ord('x')) or (Key = Ord('X')))  Then
             Begin
                ShowMessage('Couper') ;
             End ;
         If  ((Key = Ord('v')) or (Key = Ord('V')))  Then
             Begin
                 ShowMessage('Coller') ;
             End ;
      End ;
End;

L'appui sur les touches déclenche FormKeyDown

A+

Charly

[ShaiLeTroll]

(j'espère que j'ai été claire).

pas tant que cela

Si tu appuies sur le bouton, c'est ton application qui a le Focus et donc captura le CTRL V
Si tu voulais forcer un coller dans une autre application, un SendMessage WM_PASTE avec le Handle de la fenêtre cible (trouvé via FindWindow) serait plus pertinent



Faudrait voir si l'on peut utiliser SetKeyboardState

Voir aussi keybd_event ou SendInput

[sgmsg]

Un excellent site où on retrouve de tout...

[Charly910]

Oui excellent site bien connu, mais est ce que cela fait avancer ton problème

A+

Charly

[sgmsg]

Oui excellent site bien connu, mais est ce que cela fait avancer ton problème

A+

Charly

Euuh... non, je ne souhaite pas programmer une simulation de séquence clavier. Ça, je l'ai déjà fait, mais pour y arriver j'avais lu le tutoriel...

A+

;-)

[Charly910]

Bonjour,

si tu veux simuler des frappes clavier c'est la fonction KeyBd_Event. Pour simuler des frappes dans le fenêtre active, regarde cette discussion :

http://www.developpez.net/forums/d98...uches-clavier/

A+

Charly

[sgmsg]

Bonjour,

si tu veux simuler des frappes clavier c'est la fonction KeyBd_Event. Pour simuler des frappes dans le fenêtre active, regarde cette discussion :

http://www.developpez.net/forums/d98...uches-clavier/

A+

Charly

À qui réponds-tu au fait?

Camatchou, ShaiLeTroll, Charly910, ...?

[Charly910]

Ha oui ! désolé - c'est pour Camatchou !

A+

Charly

[ShaiLeTroll]

Surtout que Camatchou n'a posté qu'une seule fois pour le moment dans son sujet !

On n'est même pas sur de savoir ce qu'il veut !

[camatchou]

Bonjour tout le monde et merci pour vos réponses

voilà, je vous explique mon vrai problème :
j'ai un champs dbimage ,
pour la modification de l'image j'utilise la méthode classique : au niveau de OnDbClick

if openpicturedialog1.execute then
begin
.....
dbimage1.picture.loadfromfile(....
....
end;

ça marche bien,

Et voilà qu'un client qui me demande d'utiliser la méthode copie coller pour la modification de cette image
encore plus, il demande qu'avec un simple clique sur un bouton, on colle l'image qui est au niveau du clipboard !

je crois que j'ai trouvé la solution :

poser un bouton
au niveau du : Onclick :

dbimage1.setfocus;
dbimage1.pastefromclipboard;

et ce 'client' est satisfait mais moi

au fait, désolé pour mon absence

[ShaiLeTroll]

dbimage1.setfocus;
dbimage1.pastefromclipboard;

Cela ne me choque pas, surtout si en plus, tu as une Action associé au CTRL+V (ou un KeyPreview au niveau de la TForm, attention au Edit et autre control gérant le focus)


dbimage1, openpicturedialog1, ... je suppose que c'est pour ta démo ici, pense à utiliser un nommage pertinent

[camatchou]

Oui ShaileTroll,

ceci :

dbimage1, openpicturedialog1, ... je suppose que c'est pour ta démo ici, pense à utiliser un nommage pertinent

n'est que pour faciliter le message à faire passer.

Encore merci à vous tous.
A+