Discussion :

[amine198927]

salut a tous! bonne journée
Pour introduire un polynôme comme (2)X1+(3)X2+(5)X3+....+(5)Xn j'ai utilisé l'événement onKeyPress de la composante Edit, alors je voulais réaliser la chose suivante:
Quand l'utilisateur fini d'introduire le coefficient de X et Tape La lettre X,on aura X suivi de son indice automatiquement.
exemple: l'utilisateur tape 1.5X alors ça s'affichera 1.5Xi dans L'edit.
sachant que j'ai déjà le compteur i et tout.
mon problème c que quand je met: Edit->Text=Edit->Text+IntToStr(i) il m'affiche les donnée que j'avais au paravent avec une autre disposition comme
XXX1+2+3 c-a-dir les x d'un coté et les chiffres de l'autre!
je voudrais savoir aussi s'il vous plais comment mettre le curseur a la fin de l'edit!
je m'excuse si j'ai trop écrit ou mal exprimé
Merci

[pottiez]

Pour le texte dans le TEdit, il vaut mieux que tu passe par une variable intermédiaire : tu récupère ce qu'il y as dans le TEdit, tu ajoute ce que tu veut, puis tu remet le contenu de cette variable dans le TEdit.

Pour le curseur il suffit de mettre la propriété SelStart égale à la taille de ta chaine

[amine198927]

Pour le texte dans le TEdit, il vaut mieux que tu passe par une variable intermédiaire : tu récupère ce qu'il y as dans le TEdit, tu ajoute ce que tu veut, puis tu remet le contenu de cette variable dans le TEdit.

Pour le curseur il suffit de mettre la propriété SelStart égale à la taille de ta chaine

Merci beaucoup Pottiez! je vais essayer tout ça!

[amine198927]

Pour le texte dans le TEdit, il vaut mieux que tu passe par une variable intermédiaire : tu récupère ce qu'il y as dans le TEdit, tu ajoute ce que tu veut, puis tu remet le contenu de cette variable dans le TEdit.

Pour le curseur il suffit de mettre la propriété SelStart égale à la taille de ta chaine

j'ai fait ça

valeur=Edit1->Text;
valeur=valeur+IntToStr(compteur);
Edit1->Text=valeur;
J'ai toujours le Même problem!
est ce qu'il ya quelqu'un qui puisse m'aider

[amine198927]

essayer de faire ça pour mieux me comprendre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 int i;
AnsiString c;
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
if(Key==120)  //la lettre x
   {
        c=Edit1->Text+StrToInt(i);
        Edit1->Text=c;
        i++;
   }
}

[pottiez]

Essaye de débuger pour voir ce que vaut ta variable valeur

[Sunchaser]

Bonjour,

Si je comprends ce qui est recherché, peut être qqhose comme:
(avec flagX en int , private)

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
 
void __fastcall TForm6::Edit2KeyDown(TObject *Sender, WORD &Key,
	  TShiftState Shift)
{
switch(Key)
{
	case 'X':
			flagX++;
	break;
	default:
	break;
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm6::Edit2KeyUp(TObject *Sender, WORD &Key,
	  TShiftState Shift)
{
switch(Key)
{
	case 'X':
		Edit2->Text = Edit2->Text.Insert(IntToStr(flagX), Edit2->Text.Length()+1) ;
	break;
	default:
	break;
}
}

J'ai voulu forcer le repositionnement du 'Caret' au bout du texte, et dans le OnKeyUp, j'ai fait un essai (un peu trop vite) avec:

Code :

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

1
2
3
4
5
 
		keybd_event(VK_CONTROL, 0,1,0);
		keybd_event(VK_RIGHT, 0,1,0);
		keybd_event(VK_RIGHT, 0,2,0);
		keybd_event(VK_CONTROL, 0,2,0);

-> ben c'est pas a faire ! On dirais que mon PC considère que la touche 'ctrl' est restée appuyée, j'ai du faire un 'restart'
Ya surement mieux ...

@+

[say]

et un truc tout simple comme ça?

Code :

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

1
2
3
4
5
6
7
8
9
void __fastcall TForm1::Edit1Change(TObject *Sender)
{
 
if (Edit1->Text.SubString(Edit1->Text.Length(),1) == "x" || Edit1->Text.SubString(Edit1->Text.Length(),1) == "X" )
{
  Edit1->Text=Edit1->Text+IntToStr(i);
  i++;
}
}

avec i initialisé à 0 kkpart en dehors du onchange

[Hoopsy]

Salut à tous,

A mon avis ce n'est pas une très bonne idée que tu programmes ton code dans "OnKeyPress", parce que même quand tu effaces par exemple ton conteur va continuer à s'incrémenter, donc tu vas te retrouver avec des indices qui ne correspondent pas à ton polynôme !!! J'ai essayé de procéder ainsi :

Tu programmes ton code dans OnClique, à chaque fois que tu cliques sur ton Edit, il va t'afficher ce que t'as entré comme nombre plus "X"+"le nombre de fois que t'as cliqué qui correspond à ton vrai indice" et tu continue comme cela en rajoutant + et la suite de ton polynôme. Voici le code pour que ça soit plus clair :

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
 
 
//-------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int i=0;                              //Initialisation du compteur
String var;
int l;
 
 
//-------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
//-------------------------------------------------------------------------
 
 
void __fastcall TForm1::Edit1Click(TObject *Sender)
{
i=i+1;
var=Edit1->Text;
l=var.Length();
Edit1->Text=var+"X"+IntToStr(i);
var=Edit1->Text;
Edit1->SelStart=var.Length();
}
//-------------------------------------------------------------------------

J'espère que c'est ce que tu cherches.

Bon courage.

Re,

Pardon, j'ai rajouté la variable "l" inutilement .

@+

[blondelle]

Salut Sunchaser
Le comportement de la simulation des touches tel que tu l'a ecrit est normal, si tu simule l'appuie il faut simuler le relachement, voir le lien sur les hooks

http://tcharles.developpez.com/simul/

Voici l'exemple qui est donne

Code :

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

1
2
3
4
5
6
7
 
keybd_event(VK_LMENU,0,0,0); // appuie ALT
 
keybd_event(VK_RETURN,0,0,0); // appuie ENTER
keybd_event(VK_RETURN,0,KEYEVENTF_KEYUP,0); // relache ENTER
 
keybd_event(VK_LMENU,0,KEYEVENTF_KEYUP,0); // relache ALT

[say]

Hoopsy :

pourquoi tu mets ça dans un OnClick?
ta remarque sur la suppression est judicieuse mais tu ne donnes pas de solution au final..si?
mais en effet, ce que je suggères ne gère pas ce cas..

[henderson]

Salut !

On peut essayer ceci :

Code :

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

1
2
 
int Xn=1;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
AnsiString N = Edit1->Text;
if((Key == 'x') || (Key == 'X'))
    {
    N = N + "X" + IntToStr(Xn);
    Edit1->Text = N;
    Edit1->SelStart = N.Length();
    Xn++;
    Key = 0;
    }
}

A plus !

[Sunchaser]

Bonjour,

Oui bravo, si je comprends bien 'Edit1->SelStart = N.Length();' doit résoudre le repositionnement du 'Caret' d'une manière bien plus simple et sure ...

++

[amine198927]

Merci beaucoup les gars, vous m'avez beaucoup aidé à résoudre mon problème.
Encore merci a tous !!!

Salut !

On peut essayer ceci :

Code :

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

1
2
 
int Xn=1;

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)
{
AnsiString N = Edit1->Text;
if((Key == 'x') || (Key == 'X'))
    {
    N = N + "X" + IntToStr(Xn);
    Edit1->Text = N;
    Edit1->SelStart = N.Length();
    Xn++;
    Key = 0;
    }
}

A plus !