| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
группы SpeedButton'ов [D5, Win2k, WinXP]
Zilog © (2005-01-13 14:34:00)объединил 10 кнопок TSpeedButton в группу (GroupIndex := 1)
Из грппы в один момент времени может быть нажата только одна кнопка.
Вопрос: как программно отжать нажатую кнопку в группе? То есть вренуть все в исходное положение?
Zilog (2005-01-13 15:10:00) [1]решилось так....
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;
Семен Сорокин (2005-01-13 14:49:00) [2]
> Anatoly Podgoretsky © (13.01.05 14:45) [3]
> Зачем еще одну, и с 10 нормально.
у ToolButton'а нормально, а у SpeedButton'а - неа, сталкивался, всегда из группы должна быть одна нажата.
Anatoly Podgoretsky (2005-01-13 14:45:00) [3]Зачем еще одну, и с 10 нормально.
Anatoly Podgoretsky (2005-01-13 14:41:00) [4]Down
Семен Сорокин (2005-01-13 14:41:00) [5]добавить 11-ю кнопку с Visible=false и GroupIndex=1
выставляя у нее Down=true - вернете исходное состояние :))
| |
