[postmessage] Onkeydown majuscule

Version imprimable

Bonjour,

Je cherches à afficher en majuscule, dans un TEdit, les caractères envoyés à l'aide de postmessage, en employant uniquement les 2 methodes ci dessous.
( PostMessage & Edit1KeyDown).
Code:

1 2 3 4 5 6 7 8 9 10 11 procedure post(); begin PostMessage(Form1.Edit1.Handle, WM_KEYDOWN, ord('A'), 0); end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin // end;
Le compo Edit1 doit accepter les caracteres minuscules ou majuscules saisies par l'utilisateur.( cas classique d'utilisation)
Par contre la procedure Post doit envoyer des caracteres en majuscules.(Ce n'est pas le cas actuellement)

Cordialement.

11/04/2007, 10h32
ShaiLeTroll

Comment veux-tu que le gestionnaire d'évènement KeyDown sache que c'est une saisie ou un message ... le seul moyen serait d'envoyer un Shift contenant tous les touches CTRL ALT MAJ ... dans le PostMessage
11/04/2007, 10h33
ebastien

Bonjour,
Concernant l'envoi d'un message, pour ma part, j'utilise le message WM_CHAR qui effectue correctement la distinction entre majuscules et minuscule :

Code:

PostMessage(Form1.Edit1.Handle, WM_CHAR, ord('A'),0);

Eb.
11/04/2007, 10h33
philnext

Tu peux nous dire à quoi ça sert tout ça en fait ? Je pense que si tu ne fais pas un UpCase directment dans le OnKeyDown c'est que tu as une bonne raison.
11/04/2007, 16h54
Fabrice ROUXEL 1

Je cherche à envoyer un caractere majuscule uniquement avec WM_KEYDOWN et WM_KEYUP, ou eventuellment placer une sorte de hook dans le onKeyDown de l'exemple soit un TEdit.

Je souhaite éviter Keybd_Event, WM_CHAR, UpCase, OnKeyPress.

Merci.

PS:Les trolls s'abstenir de leur verbiage.
11/04/2007, 16h59
philnext

Certe, certe j'avais compris ton 'principe technique' mais, au niveau de l'appli, quel est le but ?
11/04/2007, 17h07
Fabrice ROUXEL 1

Le but de l'aapli n'est finalement pas important dans l'exposé du pb.
Sinon je parcours une pile d'objets com sur serveur pour leur faire executer des PostMessage en direction d'autres applis clientes.

Je cherche un pattern souple et simple: envoi msg WM_keydown donc gere le msg dans onkeydown.
Je veux éviter des gestionnaires dans tous les sens...

PS: Ne vous prenez pas la tête sur ce pb :aie:
11/04/2007, 17h44
anapurna

salut

Propriete CharCase à ecUpperCase de ton Tedit tout simplement

@+ Phil
11/04/2007, 17h52
philnext

@Annapurna : non je crois qu'il veut que l'utilisateur final puisse utiliser le TEdit sans forcer les majuscules.
11/04/2007, 17h54
Fabrice ROUXEL 1

Oui Anapurna, mais dans ce cas l'utilisateur ne peut plus saisir de caracteres en minuscule.

En fait est ce possible avec WM_KeyDown d'envoyer des caracteres en majuscules?
11/04/2007, 18h00
philnext

Ben en fait je n'ai pas l'impression.
11/04/2007, 18h02
Fabrice ROUXEL 1

Je ne met pas en résolu.
Je vais sonder un peu le net. :aie:

En tous les cas merci PhilNext.

salut

je pense a truc de ce genre alors

Code:

1
2
3
4
5
6
7
8
 if getkeystate(VK_CAPITAL)=0 then
  begin
     PostMessage(handle, WM_KEYDOWN,VK_CAPITAL,0); //touche enfoncée
     PostMessage(handle, WM_KEYUP,VK_CAPITAL,0,2,0); //touche relevée
  end;
  PostMessage(handle, WM_KEYDOWN,VK_A, 0);
  sleep(1000);
  PostMessage(handle, WM_KEYUP,VK_A, 0);

@+ Phil

11/04/2007, 21h03
Fabrice ROUXEL 1

Cela ne fonctionne pas. J'ai un peu testé tous les trucs glanés ici ou là sans succés d'ailleurs.

Merci pour votre aide .
12/04/2007, 10h20
helmis

Essayer de mette le contenu du Tedit dans une Variable string et tester le caractere saisi, en utilisant une boucle qui pointe sur ce Caractere.