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 : 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;
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.