Pb tool button enfoncé en tbsDropDown

Résolu
Signaler
Messages postés
20
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
5 mai 2006
-
Messages postés
20
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
5 mai 2006
-
Bonjour à tous, j'ai un problème avec un TToolButton avec le style tbsDropDown.
Je voudrais qu'il reste enfoncé quand on clique dessus. Pas de bol, ça remonte après avoir cliquer dessus. Pour être bien sur : une forme nue + une toolbar + le toolbutton en dropdown : qd on clique dessus, je voudrai qu'il reste enfoncé.
Je pense qu'il faut traiter la propriété Down à la main avec qqchose comme :

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
ToolButton1.Down := not ToolButton1.Down
end;

En debug, on voit bien Down à true et le bouton enfoncé, mais il remonte après ... C'est quoi le truc ?

Merci

22 réponses

Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
Exact, Indelphini, pareil dans Word 97.
Il doit donc y avoir moyen...
Messages postés
20
Date d'inscription
mardi 10 février 2004
Statut
Membre
Dernière intervention
5 mai 2006

Le retour de la suite : j'ai posé la question sur

yahoo! Groups delphi-en

et j'ai eu ça qui permet exactement ce que je cherchais :

Sendmessage(toolbar1.Handle,TB_CHECKBUTTON,<numéro bouton>,<etat>);

avec <numero bouton> à partir de 0 dans la toolbar et <etat> qui vaut 0 ou 1.

A+