le composant timer

Version imprimable

08/12/2011, 20h38
momedalhouma

le composant timer

bonsoir voila je suis entrain de faire une application et je suis bloqué
voila le petit exemple que je veux résoudre
http://i.imgur.com/4FpzR.png

quand j’appuie une fois sur le bouton j''insère a dans le mémo
et si j’appuie deux fois sur le bouton j’insère b dans le mémo
et si j’appuie trois fois sur le bouton j’insère b dans le mémo

je pense qu'il faut que j'utilise le composant timer alors je sais pas comment faire
voila j’espère que vous me répondez et s'il y a moyen un cours qui explique bien ce composant
salut
09/12/2011, 10h02
ShaiLeTroll

Le TTimer à la base permet de lancer régulièrement une tache mais on peut aussi s'en servir comme un "retardateur"

Je suppose que c'était
1 Clic -> a
2 Clics -> b
3 Clics -> c

Cela doit être possible avec OnClick et OnDblClick
On peut utiliser le Tag du Timer comme compteur
Sur un OnClick, tu l'incrémentes de 1
Sur un OnDblClick, tu l'incrémentes de 2
Avant l'incrémentation, tu mets Timer Enabled à False, tu le repasses à True après
Dans le OnTimer, tu regarde le Tag pour connaître la lettre à ajouter !

Je pense que mettre 2 fois GetDoubleClickTime() comme Interval de TTimer serait une bonne idée !

Si OnClick et OnDblClick se montre capricieux, utilise OnMouseUp
09/12/2011, 15h17
Ph. B.

Bonjour,

@ShailLeTroll : un OnDblClick sut un TButton ? 8O

Sinon, Je ferais comme suit :

Un Timer avec un délai de 500 ms (à ajuster suivant test) qui est démarré au 1° clic sur le bouton. A la création de la fiche, le Timer est désactivé (Enabled = False) et le délai est placé à 500.
Un Button avec un évènement sur le OnClick incrémentant un compteur si le timer est Enabled, sinon initialisant le Timer et le compteur à 1
Lors de l'évènement OnTimer, je désactive le Timer et j'affiche dans le mémo la lettre correspondant à la valeur du compteur.
--
Philippe.
09/12/2011, 15h29
ShaiLeTroll

Citation:

Envoyé par Ph. B.

@ShailLeTroll : un OnDblClick sut un TButton ? 8O

Euh, oui ça existe mais dans TSpeedButton :mouarf:
J'avais jamais fait attention que OnDblClick n'existait pas dans un TButton normal ! oups ! :oops:
Faut dire que j'ai jamais cherché à utiliser un double clic sur un bouton ! :roll:
09/12/2011, 15h41
Ph. B.

Citation:

Envoyé par ShaiLeTroll

Euh, oui ça existe mais dans TSpeedButton :mouarf:

Ah ben là, je ne serais pas allé le chercher ! :zoubi:
--
Philippe.
09/12/2011, 16h02
tourlourou

dans Lazarus, il me semble avoir vu sur le TButton un OnTripleClick !
09/12/2011, 16h14
ShaiLeTroll

C'est même l'ancêtre : TControl.OnTripleClick
et pour le fun TControl.OnQuadClick
Ils sont fous ! :mouarf:

tu peux faire la même chose sans utiliser de timer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TForm1.FormCreate(Sender: TObject);
begin
 btABC.tag  := 0;
 FLastClick := 0;
end;
 
procedure TForm1.btABCClick(Sender: TObject);
begin
 
 if GetTickCount-FLastClick<500 then
  btABC.tag := btABC.Tag + 1
 else
  btABC.tag := 0;
 
 FLastClick := GetTickCount;
 
 
 case btABC.tag of
  0 : memo1.seltext := 'A';
 
  1 : begin
       memo1.SelStart  := memo1.selstart-1;
       memo1.selLength := 1;
       memo1.seltext   := 'B';
      end;
 
  2: begin
       memo1.SelStart  := memo1.selstart-1;
       memo1.selLength := 1;
       memo1.seltext   := 'C';
      end
 
  else begin
        btABC.tag  := 0;
        FLastClick := 500;
       end;
 
 end;
end;

09/12/2011, 20h49
momedalhouma

merci beaucoup pour vos réponses
je vais essayer de les faire

salut voila une solution de mon prof mais c'est un exemple qui change la caption du bouton alors que moi je dois par exemple écrire un message dans le mémo,pour vous expliquez la situation c'est comme les touches d'un gsm
c la meme chose que je dois faire

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;
 
type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
  var   nouveauClick:boolean;
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
Var c: Char;
begin
  If nouveauClick Then Begin
    Button1.Caption := 'A';
    nouveauClick := False;
  End
  Else Begin
    c := Button1.Caption[1];
    Inc(c);
    Button1.Caption := c
  End;
  Timer1.Enabled :=  True;
 
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 nouveauClick := True;
  Timer1.Enabled:= False;
end;
Initialization
  nouveauClick := True;
end.

quand essai de remplacer button.caption par memo.text ça fonctionne pas
j'aimerais aussi que vous m'expliquer ce programme par ce que vraiment je suis un peu perdu avec ce composant

voici une solution toujours sans Timer

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
procedure TForm1.btGSMClick(Sender: TObject);
var i,len : integer;
    bt  : TButton;
begin
 
 if (sender is TButton) then
 begin
 
  bt  := (Sender as TButton);
 
  len := length(bt.caption);
 
  if len = 0 then exit;
 
  if (GetTickCount - bt.Tag < 500 ) then
  begin
 
    memo1.SelStart   := memo1.selstart-1;
    memo1.selLength := 1;
 
   if (bt.Hint='')or(bt.Hint=bt.Caption[len]) then
    bt.Hint := bt.caption[1]
   else
    for i:=0 to len-1 do
     if bt.Hint=bt.Caption[i] then
     begin
      bt.Hint := bt.Caption[i+1];
      break;
     end;
 
 
  end
 
  else
 
  begin
    bt.Tag  := 0;
    bt.Hint := bt.caption[1];
  end;
 
 
  memo1.seltext   := bt.hint;
 
  bt.Tag := GetTickCount;
 
 end;
 
end;

tu peux assigner cette procedure à tous tes boutons, les lettres n'ont même pas besoin d'être dans l'ordre cela va fonctionner aussi bien avec 'ABC' qu'avec 'TYHJ'