Скачать: CL | DM;

группы SpeedButton ов   Найти похожие ветки 

← →
Zilog ©   (2005-01-13 14:34) [0]

объединил 10 кнопок TSpeedButton в группу (GroupIndex := 1)
Из грппы в один момент времени может быть нажата только одна кнопка.

Вопрос: как программно отжать нажатую кнопку в группе? То есть вренуть все в исходное положение?

---

← →
Anatoly Podgoretsky ©   (2005-01-13 14:41) [1]

Down

---

← →
Семен Сорокин ©   (2005-01-13 14:41) [2]

добавить 11-ю кнопку с Visible=false и GroupIndex=1
выставляя у нее Down=true - вернете исходное состояние :))

---

← →
Anatoly Podgoretsky ©   (2005-01-13 14:45) [3]

Зачем еще одну, и с 10 нормально.

---

← →
Семен Сорокин ©   (2005-01-13 14:49) [4]

> Anatoly Podgoretsky ©   (13.01.05 14:45) [3]
> Зачем еще одну, и с 10 нормально.

у ToolButton"а нормально, а у SpeedButton"а - неа, сталкивался, всегда из группы должна быть одна нажата.

---

← →
Zilog ©   (2005-01-13 15:10) [5]

решилось так....

procedure TFMain.SpeedButton16Click(Sender: TObject);
var sb : TSpeedButton;
begin
 sb := TSpeedButton.Create(nil);
 sb.Parent := SpeedButton16.Parent; << кнопка "отжать все" (к группе не относится)
 sb.GroupIndex := 1;
 sb.Down := true;
 sb.Free;
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.029 c