Touche de clavier
djoudjou34
Messages postés
5
Date d'inscription
Statut
Membre
Dernière intervention
-
djoudjou34 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
djoudjou34 Messages postés 5 Date d'inscription Statut Membre Dernière intervention -
bonjour à tous,
je fait un petit programme et je veux associer les touche de clavier à des ville
exemple la lettre "a" correspond à "athen" comment faire avec un tableux
a-----------athen
b...................belge
c...............canne
ext
merci d'avence
je fait un petit programme et je veux associer les touche de clavier à des ville
exemple la lettre "a" correspond à "athen" comment faire avec un tableux
a-----------athen
b...................belge
c...............canne
ext
merci d'avence
A voir également:
- Touche de clavier
- Télécharger clavier arabe - Télécharger - Divers Web & Internet
- Touche inser clavier - Guide
- Clavier de l'ordinateur - Guide
- Touche remanente windows - Guide
- Comment taper / sur clavier - Guide
3 réponses
unit Unit1;</code>
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
ListBox1: TListBox;
procedure ListBox1KeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.ListBox1KeyPress(Sender: TObject; var Key: Char);
Const N = 10;
Const Villes : array[0 .. N - 1] of string =
('Ax', 'Bx', 'Cx', 'Dx', 'Ay', 'Xx', 'Dy', 'Fx', 'By', 'My');
//Tu charages le tableau avec les villes de ton choix
var I : Integer;
begin
{Lorsque ListBox1 detient le focus il intercepte les touches du clavier
dans le gestionnaire OnKeyPress}
for I := 0 to N - 1 do begin
if UpCase(Key) = UpCase(Villes[I][1]) then
ListBox1.Items.Add(Key + ' --->> ' + Villes[I]);
end;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
ActiveControl := ListBox1;
{A l'apparirion de la fiche(Form1) le focus est passé a Listbox1}
end;
end.<code>
j'ai essayé le code mais il ne répond pas a mes besoins
j'ai changé le liste box par combobox mais je trouve qu'il ajoute d'autre entrer par exemle quand je clic sur a je recois AX et quand je retape sur le a il ajoute toujours la Ax alors que moi je veut qu'il affiche le resultat de la table relier a combobox pas il ajoute d'autre entrer.
merci
Tu as demandé une aide précise, c'est à toi de l'adapter à tes besoins, quelque soit le conteneur qui reçoit l'evenement OnKeyPress le problème à une solution, vu que ton problème est peu détaillé, ni Delphi ni personned'autre ne peut lire dans tes pensées.
Bonne continuité
Tu a raison je vais essayé d'adapter cette solution avec mon problème
est encore une fois merci