clavierRésolu

Question

Bonjour,
je suis d&#233;butant, j'ai cr&#233;e une calculatrice qui fonctionne bien mais pour l'utiliser il faut que je clique sur les boutons affect&#233;s.
Je souhaiterais savoir quel(s) code(s) utiliser pour utiliser &#233;galement le clavier num&#233;rique.
Merci d'avance.

jlen100 · Accepted Answer

salut,

tu peux faire comme cela:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

 const   Valid =  #13,DecimalSeparator, '0'..'9';

  begin 

    if not(key in valid) then key: =#0    else// ne fait rien si pas numerique

    begin

        //la tu appelles ta fonction calculette;

    end;

 end;

bonne prog

Nicolas___ · Answer

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key='8' then ...
end;

En esperant que ca peut t aider ...
Ciao 
Nico

cs_orques · Answer

Merci pour ces solutions; je vais essayer!

Bon WE!

cs_orques · Answer

d&#233;sol&#233; mais aucune des solutions ne marche.

Si vous avez d'autres id&#233;es...

Merci encore.

jlen100 · Answer

passes le code de ta fonction calculette (la partie lecture des
boutons) on pourra regarder comment lui passer les code du clavier.

ni69 · Answer

Attention ! 

Il ne faut pas oublier de mettre la propri&#233;t&#233; KeyPreview de la form &#224; true pour que cela marche correctement ! 

 @+

            Nico  { http://www.ni69.new.fr/ }

            

                       
<hr size="2" width="100%">            

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

jlen100 · Answer

bonne remarque nico.

cs_orques · Answer

voila le code pour la touche'1':



procedure TForm1.Button3Click(Sender: TObject);

begin



if(TF=0) then edit1.Text:=edit1.Text+'1'

            else edit1.Text:='1';

            TF:=0;

end;

cs_orques · Answer

c'est l'erreur que j'ai lorsque je veux compiler!



[Erreur] Unit1.pas(260): Instruction attendu(e) mais 'CONST' trouv&#233;(e)

ni69 · Answer

C'est sur ces lignes que s'arr&#234;te le compilateur ? bizarre... 

 @+

             Nico  { http://www.ni69.new.fr/ }

             

                         
<hr size="2" width="100%">             

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

jlen100 · Answer

c'est le decimalseparator en constante qui g&#233;n&#233;re l'erreur. SI on le remplace par ',' &#231;a marche. Par contre le keypreview g&#233;n&#232;re une double saisie dans l'Edit

essaie &#231;a:

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

  const   Valid = #13,'.', '0'..'9';

begin

    if not(key in valid) then key:=#0   // ne fait rien si pas numerique 

else

    begin

edit1.Text:=edit1.Text+key

    end;

end;

cs_orques · Answer

effectivement &#231;a marche!

Par contre o&#249; faut-il que je mettes la propri&#233;t&#233; KeyPreview de la form &#224; true dans le code de la touche'1'?

ni69 · Answer

dans l'inspecteur d'objets de la Form

 @+

              Nico  { http://www.ni69.new.fr/ }

              

                           
<hr size="2" width="100%">              

N'oubliez pas de cliquer sur R&#233;ponse Accept&#233;e lorsque la r&#233;ponse vous convient !

Nicolas___ · Answer

ben au debut je pense 

procedure TForm1.FormCreate(Sender: TObject);
begin
form1.KeyPreview:=true;
end;
ciao 
nico

jlen100 · Answer

pour eviter la double saisie quand l'edit à la focus il faut rajouter: procedure TForm1.Edit1Enter(Sender: TObject); begin form1.KeyPreview:=false; end; procedure TForm1.Edit1Exit(Sender: TObject); begin form1.KeyPreview:=true; end; et pour éviter les doubles separateur decimaux rajoute dans FormKeyPress : if (key=DecimalSeparator)and(pos(DecimalSeparator,edit1.Text)<>0) then key:=#0; et la fonction de nico : procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if ((key = DecimalSeparator) and (Pos(DecimalSeparator,(Sender as TEdit).Text) <> 0)) or (not (key in #8, #13,DecimalSeparator,'0'..'9')) then key := #9; // end;

cs_orques · Answer

&#231;a marche!!

MERCI A TOUS POUR VOTRE AIDE!!

jlen100 · Answer

si j'en crois le code que tu donnes plus haut:

 procedure TForm1.Button3Click(Sender: TObject);

 begin

 

 if(TF= 0) then edit1.Text:=edit1.Text+'1'

             else edit1.Text:='1';

             TF:=0;

 end;

tu appelles une proc&#233;dure par bouton.

tu dois pouvoir simplifier en appelant qu'un seul&#233;v&#232;nement onclick pour tous les boutons en faisant

 procedure  TForm1.Button1Click(Sender: TObject);

begin

    with (sender as Tbutton) do

    begin

        if (caption =DecimalSeparator)and(pos(DecimalSeparator,edit1.Text)<>0) then

        beep else

        edit1.text:=edit1.Text+caption;

    end;

end;

et en appelant cette procedure dans l'&#233;v&#232;nement onclick de chaque
bouton (j'ai suppos&#233; que le caption de chaque bouton correspond &#224; un
chiffre).

jlen100 · Answer

pour pouvoir utiliser le séparateur decimal prédéfini il faut modifier la procedure procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if (keyDecimalSeparator) and (pos(DecimalSeparator,edit1.Text)<>0) then key:#0; if not(key in #13,DecimalSeparator, '0'..'9') then key:= #0 else // ne fait rien si pas numerique begin edit1.Text: =edit1.Text+key end; end;

cs_orques · Answer

Merci, tu es un as!

cs_orques · Answer

J'ai cherch&#233; une solution moins compliqu&#233;e pour moi (bien que la tienne
fonctionne tr&#232;s bien!) et j'ai trouv&#233; une solution un peu enfantine:

il suffit de mettre le charact&#232;re & devant la touche concern&#233;e dans la propri&#233;t&#233; caption de l'inspecteur d'objet.

A+.

Clavier

22 réponses

Votre réponse

Discussions similaires