Discussion :

[audreyb]

Bonjour à tous,
Je souhaite faire une petite appli qui simulera un clavier.
Un clavier composé de boutons représentant toutes les lettres : le problème est comment lui dire : "quand je clique sur la lettre L, affiche L dans l'Edit qui a le focus". ou alors "simule moi sur le clique du bouton L, l'évènement du vrai clavier de la lettre L".
J'ai essayé avec un bouton et deux edits sur l'évènement on_click du bouton :
if edit1.focused = true then edit1.text := Edit1.text + L;
mais j'ai l'impression que dès qu'on clique sur le bouton c'est lui-même qui prend le focus. Et même en rajoutant devant cette ligne "edit1.focused;" cela ne change rien.
Merci de votre aide

[Teo]

Slt,

peut etre un truc du genre

Code :

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

1
2
3
4
5
6
 
Procedure TForm.BtLettreClick(Sender:TObject);
Begin
  If Not (Sender Is TButton) Then Exit;//Si c'est pas un Boutton, on dégage
  Edit.Text := Edit.Text+(Sender As TButton).Caption;
End;

Ce code implique
1 - tous les bouttons(Lettre) doivent avoir pour
Caption la valeur de la lettre qu'il represente
2 - Tous les bouttons(lettre) doivent avoir pour evenement OnCLick
"BtLettreClick"
J'ai pas testé mais ca devrait marcher

[audreyb]

Merci pour ta réponse, cependant je suis novice en delphi et j'ai copié ta procédure dans le code (seulement) et il m'indique : "; attendu mais . trouvé" avec le curseur à côté de "TForm."
Je dois peut être déclarer quelque chose ...
J'suis désolée...

[Nono40]

Non, il faut utiliser un TSpeedButton, car le SpeedButton ne prend jamais le focus, celui-ci va donc rester sur le TEdit sélectionné. Ensuite pour gérer l'ajout de la lettre, utilise la propriété ActiveControl de la fiche :

Code :

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

1
2
3
4
5
procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
  If ActiveControl Is TCustomEdit Then
    TCustomEdit(ActiveControl).Text:=TCustomEdit(ActiveControl).Text+'L';
end;

[Teo]

mon Tform doit etre remplacé par ton "tfrom" (ta fiche)
elle s'appelle peut etre TForm1 ?
Le mieu c'est que
- tu effaces ma procedure.
- double cliq sur ton boutton "a"
- et en tre le begin et le end, tu colles juste les 2 lignes
suivantes

Code :

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

1
2
If Not (Sender Is TButton) Then Exit;//Si c'est pas un Boutton, on dégage 
  Edit1.Text := Edit1.Text+(Sender As TButton).Caption;

Attention, il te faut un composant "Edit1"

[audreyb]

Merci à Téo et à Nono pour leurs rapidités et leurs réponses.
J'ai utilisé la solution de Nono et cela fonctionne.
Un énorme merci à vous deux.

Il est trop cool ce forum.