Pb clavier visual
naugondo
Messages postés
4
Date d'inscription
dimanche 24 novembre 2002
Statut
Membre
Dernière intervention
14 avril 2006
-
6 avril 2006 à 14:10
naugondo Messages postés 4 Date d'inscription dimanche 24 novembre 2002 Statut Membre Dernière intervention 14 avril 2006 - 8 avril 2006 à 11:52
naugondo Messages postés 4 Date d'inscription dimanche 24 novembre 2002 Statut Membre Dernière intervention 14 avril 2006 - 8 avril 2006 à 11:52
2 réponses
jlen100
Messages postés
1606
Date d'inscription
samedi 10 juillet 2004
Statut
Membre
Dernière intervention
25 juillet 2014
13
6 avril 2006 à 15:48
6 avril 2006 à 15:48
salut,
pour que les touches soient actives il faut que la form est le focus
mais tu peux contourner le problème en envoyant le resultat directement
dans le controle qui doit le recevoir
si par exemple ce controle est un edit sur la form1 et que les bouton soient sur la form2 :
procedure TForm2.Button1Click(Sender: TObject);
begin
with form1.edit1 do
text:=text+'1';
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
with form1.edit1 do
text:=text+'2';
end;
etc etc....
@+
jlen
pour que les touches soient actives il faut que la form est le focus
mais tu peux contourner le problème en envoyant le resultat directement
dans le controle qui doit le recevoir
si par exemple ce controle est un edit sur la form1 et que les bouton soient sur la form2 :
procedure TForm2.Button1Click(Sender: TObject);
begin
with form1.edit1 do
text:=text+'1';
end;
procedure TForm2.Button2Click(Sender: TObject);
begin
with form1.edit1 do
text:=text+'2';
end;
etc etc....
@+
jlen
naugondo
Messages postés
4
Date d'inscription
dimanche 24 novembre 2002
Statut
Membre
Dernière intervention
14 avril 2006
8 avril 2006 à 11:52
8 avril 2006 à 11:52
Lut,
Merci pour ta réponse mais cela ne correspond pas à mes besoins, cf nouvelle question sur forum [Clavier visuel Again]
@+ Nauggy
Merci pour ta réponse mais cela ne correspond pas à mes besoins, cf nouvelle question sur forum [Clavier visuel Again]
@+ Nauggy