[FMX] Capturer l'événement OnClick

Bonjour,


Je cherche à savoir s'il est possible de savoir (belle répétition) quand est-ce que l'événement OnClick est appelé à l'aide d'un booléan. En gros faire un truc du genre if Button.OnClick = True then. Est-ce possible ? J'ai testé IsPressed mais sa ne marche pas du tout.


Merci.

Un événement Onclick est un événement secondaire construit pas un mouseDown suivi d'un mouseUp dans un temps donné donc tu peux initialiser une variable temp à 'now' dans le mouseDown et mesurer le temps passé dans le mouseUp du genre

Code:

---

1 2 3 4 5 6

.. MomentClic := now; .. if (now - MomentClic) * 1000000 < 3.5 then ...

---

Bonjour,
je crois que ça peut se faire en utilisant une variable tboolean ' mvar' déclarée public ,
initialisez à false cette variable au niveau de l'activation de la forme et modifiez la à true au niveau de l'évenement onactivate de l'objet en question.

// Déclaration d'une variable publique

Code:

---

1 2 3 4 5 6 7 8 9 10

... type TForm1 = class(TForm) procedure FormClick(Sender: TObject); private { Private declarations } public { Public declarations } mvar : tboolean; end;

---

// initialisation à FALSE

Code:

---

1 2 3 4 5

... procedure TForm1.FormActivate(Sender: TObject); begin mvar := false; end;

---

// il y a eu un click

Code:

---

1 2 3 4 5

... procedure TForm1.objetClick(Sender: TObject); begin mvar := true; end;

---

...
...

Code:

---

if mvar=true then ....

---

Bonne continuation

Je regarde tout ça lundi !
Merci de vos réponses.

Et sinon camatchou je pense que se serait plus sécuritaire de mettre la variable en private et je pense que tu voulais dire boolean et pas tboolean ;)


La bonne soirée,

Bonjour,

Citation:

---

Envoyé par Martin Lestas

Je cherche à savoir s'il est possible de savoir (belle répétition) quand est-ce que l'événement OnClick est appelé à l'aide d'un booléan. En gros faire un truc du genre if Button.OnClick = True then. Est-ce possible ?

---

La formulation alambiquée et sibylline de votre question aurait plus à la Pythie de l'oracle de... Delphes ! :lol:

Si vous voulez juste mémorisé qu'on a cliqué sur le bouton au moins une fois durant la vie de la fiche, la solution de camatchou est la bonne (attention aux nommages de méthodes qui diffèrent entre la partie interface et la partie implementation) ainsi que votre remarque subséquente.

Sinon, il va falloir être plus explicite... ;)

Citation:

---

Envoyé par Martin Lestas

J'ai testé IsPressed mais sa ne marche pas du tout.

---

Car ce n'est pas du tout prévu pour ça, et l'aide est pourtant (cette fois) claire :

Citation:

---

(FMX.StdCtrls.TButton.IsPressed hérite de FMX.StdCtrls.TCustomButton.IsPressed. Tout le contenu en-dessous de cette ligne se réfère à FMX.StdCtrls.TCustomButton.IsPressed.)

Spécifie si l'état par défaut de ce bouton est enfoncé.

Définissez la propriété IsPressed sur True pour forcer l'état par défaut de ce bouton à "enfoncé". Le bouton revient à son état initial relâché une fois que vous avez cliqué dessus.

Conseil : La définition de la propriété IsPressed n'a d'effet que si la propriété StaysPressed est définie sur True.

---

Rien à voir donc avec l'évènement "clic"...

Je vais utiliser la solution de camatchou du coup, un peu modifié dans mon cas mais c'est la bonne réponse. Résolu.