Discussion :

[marcootz]

Salut à tous,
Pour les besoins d'une application je dois réaliser un clavier virtuel, dans le style de celui présent dans Windows.

J'ai donc dans mon appli une page avec un TEdit. Dans l'événement "OnEnter" de ce TEdit, j'appelle ma fiche "Clavier", qui passe donc en premier plan. Sur cette fiche clavier je clique sur le bouton "A", je fais passé ma première fiche en premier plan, j'envoie l'événement clavier correspondant à la touche "A" et le caractère "A" s'affiche dans mon Edit.
Jusque la donc tous va bien.

Mais ensuite j'aimerais que mon clavier reste en premier plan pour saisir la deuxième lettre, mais impossible de faire ça.

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
Appel de mon clavier à partir de la première fiche :
 
void __fastcall TForm1::Edit1Enter(TObject *Sender)
{
	//hFenetre est de type HWND, c'est le handle de ma fiche qui contient le edit 
	FClavierVirtuel->hFenetre = GetForegroundWindow();
	FClavierVirtuel->Show();
}

Le clavier passe en premier plan et j'appuie sur "A"

Code :

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

1
2
3
4
5
6
7
8
9
10
void __fastcall TFClavierVirtuel::AClick(TObject *Sender)
{
	HWND hClavier = GetForegroundWindow();
	SetForegroundWindow(hFenetre);
	Sleep(50);
	keybd_event('A',0x29,0,0);// Simulation appuie a
	keybd_event('A',0x29,KEYEVENTF_KEYUP,0);//Relache a
	Sleep(50);
	//SetForegroundWindow(hClavier);
}

C'est cette ligne qui me pose souci "SetForegroundWindow(hClavier);". Sans elle le clavier fonctionne mais après un clic il reste derrière. Si je met cette ligne pour faire passer ma fenêtre "Clavier" devant ça ne marche plus.

Avez vous une petite idée ??

Merci d'avance

[supersnail]

Vérifie que tu as bien la bonne fenêtre... (via un getWindowName() par exemple...)

[marcootz]

Oui je pense que c'est bien la bonne fenetre. J'ai utilisé le code founi dans la FAQ :
http://cpp.developpez.com/faq/bcb/?p...assnamefenetre

Ce qui est bizarre c'est quand je met la ligne "SetForegroundWindow(hClavier);" mon caractère saisi n'apparait plus dans la zone de texte de ma page principale...

[cedni]

le truc , c est de faire comme sur psp ou ps3

le clavier virtuel contient lui meme un edit

et

un bouton enter pour envoyer le texte saisi vers un autre edit dans ton cas


penses egalement à recuperer la chaine presente dans ton edit "principal" lorsque que tu appelles ton clavier ( pour les erreurs de saisie ) .


Enfin pourquoi ne pas utiliser un Tpanel dont tu passes la proprieté visible à true ou false , çà faciliterait le boulot je pense .

[marcootz]

C'est vrai que l'idée du TPanel aurait été beaucoup plus simple mais j'ai besoin du clavier dans plusieurs fiches et j'aimerais pouvoir avoir une forme séparé que j'appelle au besoin.

Sinon pour le coup de l'edit sur le clavier c'est une bonne idée, mais c'est dommage car je suis sur qu'il y a un moyen simple pour avoir le même fonctionnement qu'un clavier virtuel classique.

Merci
A+

[marcootz]

Bon en fait j'ai réussi à m'en sortir en utilisant un timer. Lors du clic sur ma touche 'A', j'active un Timer de 10ms qui fait repasser ma fiche clavier au premier plan :

Code :

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

1
2
3
4
5
6
7
8
9
 
void __fastcall TFClavierVirtuel::AClick(TObject *Sender)
{
	SetForegroundWindow(hFenetre);
	Sleep(50);
	keybd_event('A',0x29,0,0);// Simulation appuie a
	keybd_event('A',0x29,KEYEVENTF_KEYUP,0);//Relache a
	Timer1->Enabled=true;
}

Code :

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

1
2
3
4
5
void __fastcall TFClavierVirtuel::Timer1Timer(TObject *Sender)
{
	SetForegroundWindow(hClavier);
	Timer1->Enabled = false;	
}

Voilà c'est bancal mais ça marche. Pour l'instant je laisse comme ça mais si vous avez une meilleure idée je suis preneur.

En tout cas merci pour votre aide.

A+