Où trouver le caractère créé par ALT+n du pavé numérique

Bonjour,

J'ai la procédure suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure signe(Sender: TObject); begin keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);   keybd_event(VK_NUMPAD1, MapvirtualKey(VK_NUMPAD1, 0), 0, 0); keybd_event(VK_NUMPAD1, MapvirtualKey(VK_NUMPAD1, 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_NUMPAD7, MapvirtualKey(VK_NUMPAD7, 0), 0, 0); keybd_event(VK_NUMPAD7, MapvirtualKey(VK_NUMPAD7, 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_NUMPAD2, MapvirtualKey(VK_NUMPAD2, 0), 0, 0); keybd_event(VK_NUMPAD2, MapvirtualKey(VK_NUMPAD2, 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0); end;

---

Le résultat, 1/4, je peux le récuperer par exemple dans un memo ou un label avec SetFocus
Mais, là, je travaille avec "Application.ShowMainForm := False;" je ne peux donner le focus à rien

Ai-je un moyen de le récuperer dans une variable ?

Citation:

---

Envoyé par Alain_31

Bonjour,

J'ai la procédure suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

procedure signe(Sender: TObject); begin keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);   keybd_event(VK_NUMPAD1, MapvirtualKey(VK_NUMPAD1, 0), 0, 0); keybd_event(VK_NUMPAD1, MapvirtualKey(VK_NUMPAD1, 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_NUMPAD7, MapvirtualKey(VK_NUMPAD7, 0), 0, 0); keybd_event(VK_NUMPAD7, MapvirtualKey(VK_NUMPAD7, 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_NUMPAD2, MapvirtualKey(VK_NUMPAD2, 0), 0, 0); keybd_event(VK_NUMPAD2, MapvirtualKey(VK_NUMPAD2, 0), KEYEVENTF_KEYUP, 0);   keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0); end;

---

Le résultat, 1/4, je peux le récuperer par exemple dans un memo ou un label avec SetFocus
Mais, là, je travaille avec "Application.ShowMainForm := False;" je ne peux donner le focus à rien

Ai-je un moyen de le récuperer dans une variable ?

---

Je ne comprend pas bien ce que tu veux faire... Peux-tu développer un peu mieux ?
Tu veux intercepter des caractères du clavier ou simuler une frappe au clavier ?

Tu peux aussi travailler avec une fenêtre dont la valeur top = -1000 par exemple plutôt que de mettre showmainform à false

Bonjour Sergio,

Je ne tape rien au clavier.
Quand je lance cette procédure, elle simule l'appui sur les touches suivantes: ALT+172
(ALT: VK_MENU, puis 1, 7 et 2 du pavé numérique: Numpad_1, Numpad_7 et Nimpad_2)

Ca fonctionne bien, elle écrit donc toute seule le caractère ASCII ¼ dans mon Memo1, à condition que j'ai mis Memo1.SetFocus

Sinon, sans SetFocus, le résultat (le caractère ¼) n'apparaît nulle part, le Memo reste vide, mais elle l'a créé et je présume qu'elle doit bien l'avoir stocké quelque part.

C'est pour mes essais seulement que j'ai utilisé le SetFocus, avec un Memo, un Label ... ça fonctionne sans problème.

Mais, là, quand je rajoute: Application.ShowMainForm := False; dans mon .dpr pour que l'application ne soit pas visible à l'écran, pour n'avoir d'elle qu'une icône dans le systray avec un petit menu: (A propos, quitter), je ne peux plus utiliser SetFocus qui me permettait de récupérer dans Memo le caractère créé et de m'en servir dans le reste de mon programme.

Mais mes connaissances en programmation sont trop limitées, et je ne sais pas comment retrouver ce caractère généré par la procédure pour pouvoir le mettre dans une variable et enfin l'utiliser

J'ai essayé plein de choses, sûrement pas les bonnes, sans résultat.

Bonjour,

Citation:

---

Mais, là, quand je rajoute: Application.ShowMainForm := False; .. je ne peux plus utiliser SetFocus qui me permettait de récupérer dans Memo le caractère créé et de m'en servir dans le reste de mon programme.

---

logique

J'ai de lointains souvenirs (<2000) de buffer de clavier, dans mon cas il s'agissait de le vider mais peu importe, je pense que c'est la piste à suivre

Code:

---

1 2	Memo1.Lines.text := Memo1.Lines.text+#172 ;

---

Citation:

---

Envoyé par Alain_31

Bonjour Sergio,

Je ne tape rien au clavier.
Quand je lance cette procédure, elle simule l'appui sur les touches suivantes: ALT+172
(ALT: VK_MENU, puis 1, 7 et 2 du pavé numérique: Numpad_1, Numpad_7 et Nimpad_2)

Ca fonctionne bien, elle écrit donc toute seule le caractère ASCII ¼ dans mon Memo1, à condition que j'ai mis Memo1.SetFocus

Sinon, sans SetFocus, le résultat (le caractère ¼) n'apparaît nulle part, le Memo reste vide, mais elle l'a créé et je présume qu'elle doit bien l'avoir stocké quelque part.

C'est pour mes essais seulement que j'ai utilisé le SetFocus, avec un Memo, un Label ... ça fonctionne sans problème.

Mais, là, quand je rajoute: Application.ShowMainForm := False; dans mon .dpr pour que l'application ne soit pas visible à l'écran, pour n'avoir d'elle qu'une icône dans le systray avec un petit menu: (A propos, quitter), je ne peux plus utiliser SetFocus qui me permettait de récupérer dans Memo le caractère créé et de m'en servir dans le reste de mon programme.

Mais mes connaissances en programmation sont trop limitées, et je ne sais pas comment retrouver ce caractère généré par la procédure pour pouvoir le mettre dans une variable et enfin l'utiliser

J'ai essayé plein de choses, sûrement pas les bonnes, sans résultat.

---

Je ne comprend pas...
Si tu veux juste mettre une chaine de caractères avec "xxx¼yyy", par exemple, dans un mémo pourquoi faire une procédure si tordue ?
Il suffit de faire, dans ton code :

Code:

---

1 2	Memo1.Lines.Add('xxx¼yyy');

---

Et la ça marchera que ta fenêtre soit visible ou pas....

Sinon pour le mettre dans une variable c'est :

Code:

---

1 2 3 4 5 6 7

var UnQuart : string; begin UnQuart:='¼'; ... end;

---

Sinon comme ça aussi

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

implementation   {$R *.dfm}   const UnQuart = 188;   procedure TForm25.FormCreate(Sender: TObject); var Chaine : string; begin Chaine:=Chr(UnQuart); end;

---

Je viens aussi de voir que le caractère 1/4 sort en ALT+172 au clavier mais en ascii c'est le code 188

Citation:

---

Je viens aussi de voir que le caractère 1/4 sort en ALT+172 au clavier mais en ascii c'est le code 188

---

Bonjour,
si tu fais ALT+0188 au clavier tu obtiens aussi "¼";)

Cordialement,

@+

Citation:

---

Envoyé par Cirec

Bonjour,
si tu fais ALT+0188 au clavier tu obtiens aussi "¼";)

Cordialement,

@+

---

Ca dépend de ton éditeur de texte ainsi que du jeux de caractères par défaut, chez moi, sous le bloc-notes :

ALT+172 ="¼"
ALT+188 ="╝"

Par contre le caractère dans la table Unicode est bien 188 :

Pièce jointe 517042

Les caractères ASCII étendus dépendent de la page de code séléctionnée. Le symbole retourné pourrait donc être différent d'un pc à l'autre, d'une app à l'autre.

Mais par le pavé numérique, on peut forcer l'utilisation de la page de code 1252 en préfixant la valeur par un 0 : Alt+0188.

Citation:

---

Envoyé par sergio_is_back

Ca dépend de ton éditeur de texte ainsi que du jeux de caractères par défaut, chez moi, sous le bloc-notes :

ALT+172 ="¼"
ALT+188 ="╝"

Par contre le caractère dans la table Unicode est bien 188 :

Pièce jointe 517042

---

oui dans mon Bloc-Notes aussi:
ALT+172 ="¼"
ALT+188 ="╝"

mais:
ALT+0188 ="¼"

d'où l'importance du 0 (voir les explications d'Andnotor à ce sujet)

d'ailleurs dans l'entouré sur l'image de la table des caractères on voit bien :
"Frappe: ALT+0188"

Cordialement,

@+

La solution du top := -1000 est idée qui me va pour permettre le SetFocus

Celle du: "Memo1.Lines.text := Memo1.Lines.text+#172 ;" me conviendrait encore mieux

Mais, la valeur de mon scancode n'est pas figée, elle dépend de ce que je tape au clavier (pas au clavier numérique, mais en convertissant en Numpad_x)
Voilà le pourquoi de ma procedure qui n'était qu'un exemple

Et là, je ne sais pas comment changer, par exemple le #172 par une autre valeur sans que cela devienne un string et non plus une ligne de commande

Un exemple:
J'ai la valeur d'un sancode dans une variable, ici 172, mais cette valeur changera plusieurs fois:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

var Codes: Integer;   begin Codes := 172;   // Memo1.Lines.Text := ? ? ? ... si je mets:   Memo1.Lines.Text := #172; // ça fonctionne pour générer ce caractère, mais si je mets:   Memo1.Lines.Text := '#' + IntToStr(Codes); // évidemment, ça n'est plus qu'un texte et pas une commande comme #172

---

Y-a-t'il une solution ?

Code:

---

1 2	Memo1.Lines.Add(Chr(Codes));

---

Merci à tous,
Grâce à vous, j'ai pu y arriver.