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).
Le compo Edit1 doit accepter les caracteres minuscules ou majuscules saisies par l'utilisateur.( cas classique d'utilisation)
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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;
Par contre la procedure Post doit envoyer des caracteres en majuscules.(Ce n'est pas le cas actuellement)
Cordialement.
Partager