Fenêtre 'Caps lock' pour un mot de passe

**LoicH** · 29/05/2012, 07h01

Alors merci à tous,

Blondelle j'avais essayé ton code mais rien ne s'affichait à l'écran ... pas d'erreur dans le code, le curseur de la souris se déplaçait mais pas d'affichage d'une fenêtre lorsque je tapais du texte en majuscule.

DjmSoftware ton petit fichier WinXP.res est exactement se qu'il me fallait. Je l'ai ajouté à mon projet et puis c'est tout.

Merci encore à tous de votre aide

Modification : Alors juste une petite question liée à cette ressource WinXp.res. Elle fonctionne très bien pour m'afficher la fenêtre de notification du Caps lock lors de l'identification mais elle me modifie également certaines couleurs de ma forme principale

. J'ai beau forcer les couleurs du TMainMenu mais rien n'y fait. Je voulais donc savoir si il était possible d'appliquer cette ressource à une seule forme de mon application et non toutes ?

**DjmSoftware** · 29/05/2012, 21h25

Hello
le fichier de resource Manifest te donne accès aux thèmes de windows
par conséquent les couleurs sont celles du thème windows employé
il existe des composants plus complet te permettant de gèrer les thèmes
c'est du freeware je ne l'ai pas testé
http://www.soft-gems.net/index.php/c...-theme-manager
cdlt

**blondelle** · 30/05/2012, 13h39

Je ne comprend pas le code fonctionne tres bien chez moi, de plus j'ai reussi a afficher une iconne, a modifier la couleur du texte et du fond
le .cpp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HWND hwndToolTips;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
if(Edit1->Text == "")
{
return;
}
POINT cursor;
int l = Edit1->Text.Length();
if (l > 0)
if (isupper(Edit1->Text[l]))
        {
// on active l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, true, 0);
// on acquier la position du curseur
        GetCursorPos(&cursor);
// on simule un deplacement
        SetCursorPos(cursor.x + 1, cursor.y);
        }
if(islower(Edit1->Text[l]))
        {
// on desactive l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, false, 0);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// gestion affichage Balloon
hwndToolTips = CreateWindow(TOOLTIPS_CLASS, NULL,
                            WS_POPUP | TTS_NOPREFIX | TTS_BALLOON,
                            0, 0, 0, 0, Handle, NULL, HInstance, NULL);
        if (hwndToolTips != NULL)
        {
        TOOLINFO ti;
        ti.cbSize   = sizeof(ti);
        ti.uFlags   = TTF_SUBCLASS | TTF_TRANSPARENT | TTF_CENTERTIP;
        ti.hinst = NULL;
        ti.rect = Edit1->ClientRect;
        ti.hwnd     = Edit1->Handle;
        ti.lpszText = "texte qui s'affiche";
        CopyRect( &ti.rect, &(Edit1->ClientRect));
        SendMessage(hwndToolTips, TTM_ADDTOOLA, 0, (LPARAM) &ti);
        SendMessage(hwndToolTips, TTM_SETTITLE, 2, (LPARAM) "Titre"); // icon 0 a 3
        SendMessage(hwndToolTips, TTM_SETMAXTIPWIDTH, 0, (LPARAM) &ti);
        SendMessage(hwndToolTips, TTM_SETTIPTEXTCOLOR, RGB(255,000,125), (LPARAM) &ti);
        SendMessage(hwndToolTips, TTM_SETTIPBKCOLOR, RGB(000,255,255), (LPARAM) &ti);
        }
}
//---------------------------------------------------------------------------

un lien
"http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx"

**blondelle** · 30/05/2012, 14h36

Pour le probleme d'affichage peut etre qu'il faut inclure

#include <windows.h>
#include <commctrl.h>

**DjmSoftware** · 30/05/2012, 19h15

Hello Blondelle

#include <windows.h>
#include <commctrl.h>

ce serait étonnant que dans ce cas le programme compile
en principe les fichiers includes que d'ont tu fait mention sont inclus par la VCL
cdlt

**blondelle** · 30/05/2012, 20h15

Alors je ne comprend pas pourquoi ca ne fonctionne pas chez LoicH, a moins d'une erreur de recopie de code

**DjmSoftware** · 31/05/2012, 08h05

Blondelle
le fonctionnement de ton code n'est pas identique a celui réalisé automatiquement par MS
dans le cas du hint apparaissant lors que le capsLock est pressé, chez MS il suffi que l'edit Box aie le focus et que CapsLock soit enfoncé au préalable pour que le Hint apparaisse
dans le cas du ballon , il est également possible que chez LoicH ce comportement soit désactivé dans windows
cdlt

**LoicH** · 31/05/2012, 13h01

alors Blondelle j'ai retenté ton code.
Il s'avère effectivement que le message ne s'affiche pas durant la frappe ... mais il s'affiche lorsque je met la souris sans mouvement sur l'Edit

Alors j'ai fais un petit exemple joint ici même. Avec juste une Form et un Edit et ton code. Et comme dit chez moi rien ne se passe lors de la frappe. Dite moi si c'est moi ou mon Builder 6 qui fait des siennes

**DjmSoftware** · 31/05/2012, 20h25

Hello
Sans regarder ton code
la différence je l'ai déja expliquée dans mon code précédent
si tu veux obtenir un résultat similaire utilise plutôt l'Event OnEnter de ton TEdit
Cdlt

**blondelle** · 01/06/2012, 13h40

Je suis rassure le code que j'ai poste a un fonctionnement normal, j'ai trouve trois liens utiles

http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx
le lien suivant contient un.exe a decompacter pour avoir l'exemple
http://support.microsoft.com/kb/134209
http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

J'ai modifie le code il y a plusieur testes a toi d'y prendre ce que tu veux, dans un premier temps essaye le tel quel
le .cpp

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
 
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
HWND hwndToolTips;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
// liens
// <a href="http://msdn.microsoft.com/en-us/library/windows/desktop/bb760250(v=vs.85).aspx" target="_blank">http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx</a>
// <a href="http://support.microsoft.com/kb/134209" target="_blank">http://support.microsoft.com/kb/134209</a>
// <a href="http://msdn.microsoft.com/en-us/library/windows/desktop/bb760414(v=vs.85).aspx" target="_blank">http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx</a>
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
POINT cursor;
if(Edit1->Text == "")
        {
        return;
        }
int l = Edit1->Text.Length();
if (l > 0)
if (isupper(Edit1->Text[l]))
        {
// on active l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, true, 0);
// on acquier la position du curseur
        GetCursorPos(&cursor);
// on simule un deplacement
        SetCursorPos(cursor.x + 1, cursor.y);
        }
if(islower(Edit1->Text[l]))
        {
// on desactive l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, false, 0);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
// gestion affichage Balloon
hwndToolTips = CreateWindow(TOOLTIPS_CLASS, NULL,
                            WS_POPUP | TTS_NOPREFIX | TTS_BALLOON | TTS_ALWAYSTIP,
                            0, 0, 0, 0, Handle, NULL, HInstance, NULL);
        if (hwndToolTips != NULL)
        {
        TOOLINFO ti;
        ti.cbSize   = sizeof(ti);
        ti.uFlags   = TTF_SUBCLASS | TTF_TRANSPARENT | TTF_CENTERTIP;
        ti.hinst = NULL;
        ti.rect = Edit1->ClientRect;
        ti.hwnd     = Edit1->Handle;
        ti.lpszText = "texte qui s'affiche sur plusieurs lignes parcequ'il depasse la largeur du balloon";
        CopyRect( &ti.rect, &(Edit1->ClientRect));
        SendMessage(hwndToolTips, TTM_ADDTOOL, 0, (LPARAM) &ti);
        // IconType 0 - No icon  1 - Information  2 - Warning 3 - Error
        SendMessage(hwndToolTips, TTM_SETTITLE, 0, (LPARAM) "Titre"); // icon 0 a 3
        SendMessage(hwndToolTips, TTM_SETMAXTIPWIDTH, 0, 60);
        SendMessage(hwndToolTips, TTM_ADJUSTRECT, TRUE, (LPARAM)&ti.rect);
        SendMessage(hwndToolTips, TTM_SETTIPTEXTCOLOR, RGB(255,000,125), (LPARAM) &ti);
        SendMessage(hwndToolTips, TTM_SETTIPBKCOLOR, RGB(245,255,255), (LPARAM) &ti);
//SendMessage(hwndToolTips, TTM_SETDELAYTIME, TTDT_AUTOPOP, (LPARAM) MAKELONG(8000, 0));
//SendMessage(hwndToolTips, TTM_SETDELAYTIME, TTDT_AUTOMATIC, (LPARAM) MAKELONG(5000, 0));
//  SendMessage(hwndToolTips, TTM_SETDELAYTIME, TTDT_INITIAL, 0);
//        SendMessage (hwndToolTips, TTM_SETDELAYTIME, TTDT_AUTOMATIC, -1);
//        SendMessage (hwndToolTips, TTM_TRACKACTIVATE, false, (LPARAM) &ti);
//         SendMessage(hwndToolTips, TTM_TRACKPOSITION, 0, (LPARAM)(DWORD) MAKELONG (ti.rect.left - 100, ti.rect.bottom - 200) );
//SendMessage(hwndtooltip, TTM_UPDATETIPTEXT, 0, (LPARAM) (LPTOOLINFO)&ti);
//============
        ti.cbSize   = sizeof(ti);
        ti.uFlags   = TTF_SUBCLASS | TTF_TRANSPARENT | TTF_CENTERTIP;
        ti.hinst = NULL;
        ti.rect = Form1->ClientRect;
        ti.hwnd     = Form1->Handle;
        ti.lpszText = "texte qui s'affiche sur plusieurs lignes parcequ'il depasse la largeur du balloon";
        CopyRect( &ti.rect, &(Form1->ClientRect));
        SendMessage(hwndToolTips, TTM_ADDTOOL, 0, (LPARAM) &ti);
        SendMessage(hwndToolTips, TTM_ACTIVATE, false, 0);
//============
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
POINT cursor;
if((GetKeyState(VK_CAPITAL)&1))
      {
      // on active l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, true, 0);
// on acquier la position du curseur
        GetCursorPos(&cursor);
// on simule un deplacement
        SetCursorPos(cursor.x + 1, cursor.y);
      }
else
      {
      // on desactive l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, false, 0);
      }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
POINT cursor;
if(Edit1->Text == "")
        {
        return;
        }
int l = Edit1->Text.Length();
if (l > 0)
if (isupper(Edit1->Text[l]))
        {
// on active l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, true, 0);
// on acquier la position du curseur
        GetCursorPos(&cursor);
// on simule un deplacement
        SetCursorPos(cursor.x + 1, cursor.y);
        }
if(islower(Edit1->Text[l]))
        {
// on desactive l'affichage
        SendMessage(hwndToolTips, TTM_ACTIVATE, false, 0);
        }
}
//---------------------------------------------------------------------------

Un teste est fait sur le verouillage majuscule, des la frappe la dectection majuscule est fait, le curseur peut etre en dehors du TEdit mais sur la Form, apres essai poste tes questions

**LoicH** · 05/06/2012, 16h39

Merci à tous pour votre aide. Jamais déçu

**ShaiLeTroll** · 05/06/2012, 17h00

Pense au

Fenêtre 'Caps lock' pour un mot de passe

C++Builder

Discussions similaires

Partager

Partager