Discussion :

[Fred 57220]

Bonsoir

je bute certainement sur une solution somme toute simple
voila je souhaite remplacer le . par une virgule , pour cela j'utilise l'evenement clavier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
PROCEDURE Touche_Enfoncée(MessageWindows, wParam, lParam)
 
//la virgule code 188
//le point 110
 
SI wParam   = 110 ALORS  
	 wParam = 188
        _eve_retour = 188
	RENVOYER 188
FIN

Bien sur , j'ai essayé
wParam = 188 ou _eve_retour = 188 ou RENVOYER 188

Merci

Fred

merci

[WDKyle]

Bonsoir,

Comment capte-tu l’événement ?

[Fred 57220]

bonsoir

avec un évènement

Evénement("Touche_Enfoncée", ".*",WM_KEYDOWN) dans init de la fenêtre
cela fonctionne , j'ai bien touche_enfoncée

par contre , je n'arrive pas a remplacer le point par la virgule

fred

[michel.souris]

Sur l'appli sur laquelle je bosse en ce moment un mécanisme de "substitution" de caractère a été mis en place.

Comme toi il utilise la fonction Evenement() qui appelle une procédure qui utilise la fonction ChampEnCours() et les indirections.... franchement c'est pas top top en terme de lisibilité (l'ancien dév avait des conventions pour le moins étrange) donc j'ai pas pris le temps de bien analyser l'algo mais dans l'esprit je pense que tu peux te débrouiller avec ces indications....

[Fred 57220]

Bonsoir

Pouvez vous me donner le code.de la procédure
Le reste j'en fait mon affaire

Merci

[jurassic pork]

hello,
je te propose d'utiliser l' événement WM_CHAR comme ceci :

1 - Dans le code initialisation de la fenêtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evénement("Touche_Enfoncée", ".*",WM_CHAR)

2 - La procédure Touche_Enfoncée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
PROCEDURE Touche_Enfoncée(MessageWindows, wParam, lParam)
//la virgule code 44
//le point code 46
SI wParam   = 44 ALORS
// on envoie le caractère point au champ qui devait recevoir le caractère virgule	
 PostMessage(_EVE.hWnd,WM_CHAR,46,0)
 // on renvoie une valeur pour éviter de continuer le traitement normal de la touche 
 RENVOYER 0
FIN

Ami calmant, J.P

[michel.souris]

La technique de JP me parait plus intéressante car il est plus logique de capter l’événement avant que le caractère soit inscrit plutôt que d'écrire puis substituer...

[DelphiManiac]

hello,
je te propose d'utiliser l' événement WM_CHAR comme ceci :

1 - Dans le code initialisation de la fenêtre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Evénement("Touche_Enfoncée", ".*",WM_CHAR)

2 - La procédure Touche_Enfoncée :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
PROCEDURE Touche_Enfoncée(MessageWindows, wParam, lParam)
//la virgule code 44
//le point code 46
SI wParam   = 44 ALORS
// on envoie le caractère point au champ qui devait recevoir le caractère virgule    
 PostMessage(_EVE.hWnd,WM_CHAR,46,0)
 // on renvoie une valeur pour éviter de continuer le traitement normal de la touche 
 RENVOYER 0
FIN

Ami calmant, J.P

La solution de J.P. fonctionne bien, toutefois, j'aurais tendance à repasser lParam lors de l'appel à postMessage. lParam contient des informations supplémentaires.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PostMessage(_EVE.hWnd, _EVE.wMessage, Asc(","), _EVE.lParam)

[Fred 57220]

Bonsoir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

PostMessage(_EVE.hWnd, _EVE.wMessage, Asc(","), _EVE.lParam)

Super

Merci