Discussion :

[Ludo_360]

Bonjour,

je souhaite visualiser l'appui sur une touche sur mon application quand l'utilisateur tape au clavier:

si l'utilisateur tape un 'F' au clavier je veux que mon application montre le bouton 'F' qui est appuyé, par changement de couleur par exemple.
J'utilise des TSpeedButton pour une raison de handle alors j'ai pensé créer mon propre composant dérivé du TSpeedButton en y incorporant la propriété color.

Par manque de temps je demande à tout hasard si quelqu'un n'a pas une astuce?

merci


++

[Fabrice ROUXEL 1]

http://www.developpez.net/forums/sho...d.php?t=324162

[Ludo_360]

Je ne me sers pas des hook. J'utilise les shortcuts.

merci quand même

[hardouz]

For i:=0 to 255 do Begin
IF (GetAsyncKeySate(i))<>0 then begin
Button1.Color:=ClRed; //changement du couleur de ton bouton
Button1.Caption:=CHR(i);
end;
end;

[rburner]

Bonjour,

je souhaite visualiser l'appui sur une touche sur mon application quand l'utilisateur tape au clavier:

si l'utilisateur tape un 'F' au clavier je veux que mon application montre le bouton 'F' qui est appuyé, par changement de couleur par exemple.
J'utilise des TSpeedButton pour une raison de handle alors j'ai pensé créer mon propre composant dérivé du TSpeedButton en y incorporant la propriété color.

Par manque de temps je demande à tout hasard si quelqu'un n'a pas une astuce?

merci


++

Bonjour,

Voici un extrait de code qui pourrais t'inspirer. Sur la fiche j'ai simplement poser un label lbTouche.
en espérant que cela te sera utile.

unit Touche;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
lbTouche: TLabel;
procedure FormKeyPress(Sender: TObject; var Key: Char);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
lbTouche.Caption := IntToStr(ord(key)) + ' ' + char(key);
if (key in [#8]) then ShowMessage('Ca y est !');

end;

end.

[edam]

http://www.developpez.net/forums/sho...d.php?t=332087

[Ludo_360]

merci pour tous ces conseils

=)

++