Discussion :

[momedalhouma]

bonsoir voila je suis entrain de faire une application et je suis bloqué
voila le petit exemple que je veux résoudre


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

[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

[Ph. B.]

Bonjour,

@ShailLeTroll : un OnDblClick sut un TButton ?

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.

[ShaiLeTroll]

@ShailLeTroll : un OnDblClick sut un TButton ?

Euh, oui ça existe mais dans TSpeedButton
J'avais jamais fait attention que OnDblClick n'existait pas dans un TButton normal ! oups !
Faut dire que j'ai jamais cherché à utiliser un double clic sur un bouton !

[Ph. B.]

Euh, oui ça existe mais dans TSpeedButton

Ah ben là, je ne serais pas allé le chercher !
--
Philippe.

[tourlourou]

dans Lazarus, il me semble avoir vu sur le TButton un OnTripleClick !

[ShaiLeTroll]

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

[exoseven]

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

Code :

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

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;

[momedalhouma]

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

[momedalhouma]

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 :

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

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

[exoseven]

voici une solution toujours sans Timer

Code :

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

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'