группы 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 нормально.

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

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

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

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;

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