Discussion :

[declencher]

Bonjour,

J'ai une question bête mais à laquelle je ne trouve pas de réponse en regardant les propriétés des TSpeedButton. Je voudrai rendre ces boutons bistables, à savoir qu'il resterai enfoncé jusqu'au prochain clip. Je voudrai que ce soit une checkbox sous forme de bouton.

Merci pour vos conseils.

[TicTacToe]

Peut-être en mettant sa propriété groupindex à > 0, normalement utilisé à plusieurs boutons, mais ca devrait marcher avec 1 seul bouton...?

[scara]

Voici un exemple , dans ce cas précis, il s'agit de mettre la l'application toujours au premier plan, ou non. Le toolButton.
En fait c'est la proprité "down" qui défini l'etat du bouton ' enfoncé = true, pas enfoncé = false)

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
 
procedure TForm1.ToolButtonClick(Sender: TObject);
begin
 
if  Form1.FormStyle = fsNormal then
begin
  Form1.FormStyle := fsStayOnTop ;
  ToolButton.down:=true
  end
else
  begin
  Form1.FormStyle := fsNormal;
  ToolButton.down:=false
end;
end;

[DMO]

declencher, voici comment faire ce que tu veux, illustré avec l'exemple de scara.

Poses un TSpeedButton, mets AllowAllUp à True et assignes à GroupIndex une valeur > 0 comme TicTacToe l'a dit.

Ca y est tu as le comportement que tu voulais. Regarde l'aide Delphi sur les propriétés que je t'ai fait modifier pour comprendre.

Code :

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

1
2
3
4
5
6
7
procedure TForm1.btn1Click(Sender: TObject);
begin
  if btn1.Down then
    Form1.FormStyle := fsStayOnTop
  else
    Form1.FormStyle := fsNormal;
end;

[declencher]

Merci à tous. Il suffit de mettre AllowUp à True et un GroupIndex > 0 et c'est bon. Il ne faut pas changer la propriété Down à la main.