Discussion :

[blond1888]

bonjour,

j'ai une page qui affiche divers renseignements selon une sélection faite auparavant, en bas de cette page j'ai un edit ou j'ai affecté un KeyUp afin que lorsque la personne a rentré un chiffre puis en fonction d'un radio button, un calcul se fait puis envoi les information dans une base de données...

jusqu'alors rien de grave

mais voila tout utilisateur ne sais pas qu'il faut faire entrée alor j'ai mi un bouton plus bas sur lequel je voudrais simulé la touche entréé dans mon edit, en appelant KeyUp....

Code :

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

1
2
3
4
procedure TForm5.Button1Click(Sender: TObject);
begin
  Edit1KeyUp(Sender,#13,Shift); 
end;

voila mon début mais je plante sur sa avec comme message d'erreur:

les types des parametres VAR originaux et formels doivent etre identiques

voici les parametres originaux :

Code :

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

procedure TForm5.Edit1KeyUp(Sender: TObject;var Key: Word;Shift: TShiftState);

merci

[rbh]

Salut

la déclaration de procédure

Code :

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

procedure TForm5.Edit1KeyUp(Sender: TObject;var Key: Word;Shift: TShiftState);

t'indique que cette procédure peut modifier le contenu de cette varaible.
Même si dans ton cas, tu ne modifie pas cette variable, il faut quand même que tu puissent obtenir le résultat.
Il suffit donc que tu fasses un variable :

Code :

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

1
2
3
4
5
6
7
8
 
procedure TForm5.Button1Click(Sender: TObject);
var
  Key: Word;
begin
Key := #13;
Edit1KeyUp(Sender,Key,Shift);
end;

[Laurent Dardenne]

Salut,

mais voila tout utilisateur ne sais pas qu'il faut faire entrée

Si je peux me permettre, ici c'est plus un problème de documentation/formation avant d'être un problème technique ...

[blond1888]

merci de vos réponse;

concernant le code

Code :

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

1
2
3
4
5
6
7
procedure TForm5.Button1Click(Sender: TObject);
var
  Key: Word;
begin
  Key := #13;
  Edit1KeyUp(Sender,Key,Shift);
end;

il y a 2 erreurs relevée par le compilateur :
type incompatibles "word" et "char" sur la ligne du ' Key := #13'
et aussi le shift lui est pas délaré...

pour le word c'est réglé mais le shift....

[Lung]

Et quelque chose comme ça ?

Code :

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

Edit1KeyUp(Sender,Key,[]);

[blond1888]

problème résolu;

j'ai simplement déclaré le shift mais je lui ai imposé aucune valeur et tout marche



merci a tous de votre aide.