SpeedButton

[HTTqp]

Как зафиксировать компонент SpeedButton в нажатом состоянии, а при нажатии отпустить его. То есть сделать на CheckBox.
Знаю что все делается через свойства SpeedButton1.AllowAllUp, SpeedButton1.Down но не пойму как действовать пробовал по всякому.

Я делаю так:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Down=True then SpeedButton1.Down:=True else SpeedButton1.Down:=False;
end;

[Кольша]

http://beluch.ru/progr/100comp/5_3.htm

[Stilet]

Не надо ничего описывать, просто поставь любое значение в GroupIndex отличное от 0

[HTTqp]

все решил проблему.

[eval]

if SpeedButton1.Down=True then SpeedButton1.Down:=True else SpeedButton1.Down:=False;

это ненужная строка, ничего не делает