Показать сообщение отдельно
  #2  
Старый 25.09.2018, 19:24
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Вы видимо неправильно события обрабатываете. Судя по описанию, вам нужно обработать только событие OnClick:
Код:
procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
 if SpeedButton1.Down then Edit1.Text := '10' else Edit1.Text := '0';
end;
Предварительно выставив свойство AllowAllUp в True и GroupIndex не равном 0
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием