|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
Цитата:
Код:
if ilBtnState.GetBitmap(1, SpeedButton3.Glyph) then Edit1.Text := FloatToStr(10); if ilBtnState.GetBitmap(0, SpeedButton3.Glyph) then Edit1.Text := FloatToStr(0); Тут ты не проверяешь иконку, которую установил, а устанавливаешь новую. И GetBitmap тебе возвращает True, т.к. успешно её поменял. Про TSpeedButton.Down тебе уже написали. Или можешь привязать к свойству Tag кнопки. А более правильно будет так: Код:
procedure TForm1.SpeedButton3MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Edit1.Text:='0'; end; procedure TForm1.SpeedButton3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin Edit1.Text:='10'; end; |