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

Version imprimable

21/05/2012, 12h03
LoicH

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

Bonjour à tous,

j'aimerais bien afficher une fenêtre stipulant que 'Caps lock (Verrouillage majuscule)' est appuyé. Y-a-t-il une méthode simple ou faut-il créer une Forme spécifique pour faire ceci ?

Je vous met un exemple ci-joint :

http://img607.imageshack.us/img607/3843/sanstitrefx.jpg

Merci d'avance
21/05/2012, 13h27
blondelle
Salut LoicH
Pour avoir les TEdit qui affiche de gros points a la place des caracteres il faut faire comme ceci
Code:

1 2 3 Edit1->Font->Name = "wingdings"; Edit1->PasswordChar = 'l';
Pour afficher le message au passage du curseur
Code:

1 2 3 Edit1->Hint = "mon texte"; Edit1->ShowHint = true;
pour convertir automatiquement le texte en minuscle
Code:

1 2 Edit1->CharCase = ecLowerCase; // ecNormal, ecLowerCase, ecUpperCase
21/05/2012, 13h42
DjmSoftware

Hello,

l'exemple de l'application fournie est une application .Net
dans le cas de C++ Builder ou delphi tu dois créer une form
contenant les différents éléments de ton exemple

cdlt

Pour tester si c'est une minuscule peut etre comme ceci

Code:

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
String a = Edit1->Text;
int b = a.Length();
String c = a.SubString(b,1);
if(c <= "a" && c <= "Z")
{
ShowMessage("Majuscule");
}
}

21/05/2012, 15h58
ShaiLeTroll
Citation:

Envoyé par blondelle

Pour avoir les TEdit qui affiche de gros points a la place des caracteres il faut faire comme ceci

Sous Vista\Seven, le PasswordChar en * affiche automatiquement des ronds verts
Il faut juste veiller que la font est Tahoma et non MS sans Serif (comme sous C++Builder 6 et 2K)

PasswordChar en * devrait activer ce type de contrôle normalement
J'ai testé, sous BCB2007 + XPManifest sur XP SP3, cela affiche une info bulle

il faut laisser CharCase à ecNormal
Si tu modifie CharCase cela n'affichera plus le message et appliquera la conversion (pratique à bannir car cela réduit la variabilité du mot de passe)

Comme dans le sujet Comment utiliser le caractère ● comme Passwordchar?

isupper existe soit dans ctype.h
IsUpper dans SysUtils des versions Unicode de C++Builder
Code:

1 2 3 4 5 6 7 void __fastcall TForm1::Edit1Change(TObject *Sender) { int l = Edit1->Text.Length(); if (l > 0) if (IsUpper(Edit1->Text[l])) ShowMessage("Majuscule"); }

Pour afficher le message la ou tu veux, en reprenant le code de ShaiLeTroll

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
  int l = Edit1->Text.Length();
  if (l > 0)
    if (isupper(Edit1->Text[l]))
    {
THintWindow* myhint;
myhint = new THintWindow(Edit1);
myhint->Color = clInfoBk;
myhint->ActivateHint(TRect(Form1->Left + Edit1->Left + 20, Form1->Left + Edit1->Top + 15, Form1->Left + Edit1->Left + 235, Form1->Left + Edit1->Top + 40),"Vous devez ecrire en minuscule");
Sleep(1000);
myhint->ReleaseHandle();
      }
}

22/05/2012, 09h15
DjmSoftware
Hello Blondelle
Attention au MemoryLeak
la mémoire allouée a hint window n'est jamais désallouée
l'utilisation de auto_ptr ou unique_ptr permet l'allocalion mémoire sans se soucier de libérer les objets
Code:

1 2 3 4 5 #include <memory> std::unique_ptr<THintWindow> myhint(new THintWindow()); // ou std::auto_ptr<THintWindow> myhint(new THintWindow());
cdlt
22/05/2012, 11h18
LoicH

merci a tous pour l’intérêt que vous portez à ce sujet.

Alors j'ai bien réussi à masquer les caractères et à tester minuscules et majuscules.
Par contre il y a juste l'affichage de la fenêtre qui indique qu'on a activé le Verrouillage numérique. Mais si j'ai bien compris DjmSoftware, il faut que je crée une form juste pour cela :
http://img137.imageshack.us/img137/1162/sanstitredx.jpg
22/05/2012, 11h39
DjmSoftware

Hello
oui tu dois créer une form similaire à l’exemple que tu a fournit
les exemples fournis et tout particulièrement celui de Blondelle affiche une HintBox lorsque le la touche CapsLock est activée accouplée a une EditBox

cdlt
22/05/2012, 13h50
ShaiLeTroll

1 pièce(s) jointe(s)
C'est AUTOMATIQUE !
C'est Windows qui le fourni automatiquement si on n'utilise pas le message EM_SETPASSWORDCHAR à l'Edit mais que l'on utilise le style ES_PASSWORD !

Le Hint s'affiche dès que l'on clique dans le TEdit !
Il n'y a AUCUN code à faire si l'on a le support des Thèmes activé !
Code:

1 2 3 object EditForPassword: TEdit PasswordChar = '*' end
BCB6, Pas de Thème (XPMan n'apparait qu'en D7), XP SP3 -> Etoile + Pas de Hint
BCB2007, Thème Activé dans les Options de Projet, XP SP3 -> Etoile + Hint (Haut de l'Image)
BCBXE2, Thème Activé dans les Options de Projet, XP SP3 -> Rond + Hint (Base de l'image)

Sous Vista\Seven la fenêtre doit ressembler à celle de ton image !

http://www.developpez.net/forums/att...1&d=1337687400

LoicH
Peut tu donner la version de BCB que tu utilise, la solution que l'on te donnera sera mieux adaptee
DjmSoftware
ceci me provoque des erreurs, je n'ai pas cherche plus

Citation:

#include <memory>
std::unique_ptr<THintWindow> myhint(new THintWindow());
// ou
std::auto_ptr<THintWindow> myhint(new THintWindow());

j'ai ajoute ceci a mon code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 int l = Edit1->Text.Length(); if (l > 0) if (isupper(Edit1->Text[l])) { THintWindow* myhint; myhint = new THintWindow(Edit1); myhint->Color = clInfoBk; myhint->ActivateHint(TRect(Form1->Left + Edit1->Left + 20, Form1->Left + Edit1->Top + 15, Form1->Left + Edit1->Left + 235, Form1->Left + Edit1->Top + 40),"Vous devez ecrire en minuscule"); Sleep(1000); myhint->ReleaseHandle(); delete myhint; // <-----Ajout }
Le hint s'affiche uniquement en cas de majuscules
J'ai trouve ceci sur le Net pour afficher un Balloon, mais une fois active je n'ai pas reussi a le desactiver
le .cpp
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 void __fastcall TForm1::Edit1Change(TObject *Sender) { int l = Edit1->Text.Length(); if (l > 0) if (isupper(Edit1->Text[l])) { HWND hToolTip = CreateWindow( TOOLTIPS_CLASS, NULL, TTS_BALLOON, 0, 0, 0, 0, Handle, NULL, HInstance, NULL ); if ( hToolTip != NULL ) { TOOLINFO tool_info = {0}; tool_info.cbSize = sizeof(tool_info); tool_info.uFlags = TTF_SUBCLASS | TTF_TRANSPARENT; tool_info.hwnd = Edit1->Handle; tool_info.lpszText = "texte a afficher"; CopyRect( &tool_info.rect, &(Edit1->ClientRect) ); SNDMSG( hToolTip, TTM_ADDTOOL, 0, reinterpret_cast<LPARAM>(&tool_info) ); } } }

22/05/2012, 16h02
DjmSoftware

Hello Blondelle
il semblerait que la STL qu tu utilise n'est plus au goût du jour
Si tu utilise C++ Builder6
auto_ptr est déclaré dans le fichier include _auto_ptr.h
quand à unique_ptr il n'existe simplement pas

tu devrais songer à migrer ::roll:;);)

cdlt

DjmSoftware
il a fallu que j'ecrive comme ceci l'include " #include <stl/_auto_ptr.h> ", je joinds le code corrige
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 #include <memory> #include <stl/_auto_ptr.h> int l = Edit1->Text.Length(); if (l > 0) if (isupper(Edit1->Text[l])) { std::auto_ptr<THintWindow> myhint(new THintWindow(Edit1)); myhint->Color = clInfoBk; myhint->ActivateHint(TRect(Form1->Left + Edit1->Left + 20, Form1->Left + Edit1->Top + 15, Form1->Left + Edit1->Left + 235, Form1->Left + Edit1->Top + 40),"Vous devez ecrire en minuscule"); Sleep(1000); myhint->ReleaseHandle(); }
Citation:

tu devrais songer à migrer

j'y ai songe mais j'esite l'investissement est quand meme assez lourd

23/05/2012, 07h02
LoicH

alors moi je tourne encore sous Builder 6
23/05/2012, 10h07
blondelle

Je suis aussi sous BCB6 et windows7, tu ne devrais pas avoir de probleme avec les codes postes

Voici pour afficher un Balloon semblable a ton exemple
Sur la Form un TEdit
le .cpp

Code:

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
 
//---------------------------------------------------------------------------
#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)
{
// le lien
// <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>
}
//---------------------------------------------------------------------------
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_ADDTOOL, 0, (LPARAM) &ti);
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
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);
        }
}
//---------------------------------------------------------------------------

27/05/2012, 10h56
LoicH

Merci beaucoup. Je vais essayer ta solution.
Désolé de la durée de ma réponse mais je suis en déplacement professionnel.

Mais je vais essayer cela et vous tiendrais au courant. J'aurais durement trouvé cela tout seul :D
28/05/2012, 09h47
DjmSoftware

2 pièce(s) jointe(s)

Hello
C++ Builder 6 ne disposait pas d'accès directe aux thèmes de windows
XP et Supérieur
il te suffit de rajouter dans ton projet le fichier winxp.res contenu dans le zip attaché pour avoir cette accés aux thèmes windows
avec ce fichier .Res plus besoin de programmer simplement rèfère toi au post précédent de ShaireLeTroll

Citation:

C'est AUTOMATIQUE !
C'est Windows qui le fourni automatiquement si on n'utilise pas le message EM_SETPASSWORDCHAR à l'Edit mais que l'on utilise le style ES_PASSWORD !

Le Hint s'affiche dès que l'on clique dans le TEdit !
Il n'y a AUCUN code à faire si l'on a le support des Thèmes activé !

Code dfm :Sélectionner tout - Visualiser dans une fenêtre à part123 object EditForPassword: TEdit
PasswordChar = '*'
end

cdlt
28/05/2012, 11h39
blondelle

Salut DjmSoftware
Si je ne me trompe pas ce Tuto sur le site correspond a l'utilisation de ton fichier
le lien

Citation:

http://chgi.developpez.com/styleXP/
28/05/2012, 17h13
DjmSoftware

Hello Blondelle,
j'utilisais cette astuce trouvée sur le Net lors que j'utilisais encore C++ Builder 6 cad en 2005
cdlt
29/05/2012, 07h01
LoicH

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

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 8O. 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 ?
29/05/2012, 21h25
DjmSoftware

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

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:

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);
        }
}
//---------------------------------------------------------------------------

Citation:

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

30/05/2012, 14h36
blondelle

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

Citation:

#include <windows.h>
#include <commctrl.h>
30/05/2012, 19h15
DjmSoftware

Hello Blondelle

Citation:

#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
30/05/2012, 20h15
blondelle

Alors je ne comprend pas pourquoi ca ne fonctionne pas chez LoicH, a moins d'une erreur de recopie de code
31/05/2012, 08h05
DjmSoftware

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
31/05/2012, 13h01
LoicH

1 pièce(s) jointe(s)

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 :calim2:

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 :(
31/05/2012, 20h25
DjmSoftware

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

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

Citation:

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:

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

05/06/2012, 16h39
LoicH

Merci à tous pour votre aide. Jamais déçu :ccool:
05/06/2012, 17h00
ShaiLeTroll

Pense au :resolu: ;)