| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

кнопки SpeedButton [D6, WinXP]

KSK ©   (2005-05-25 12:58:00) 

Есть на форме n-ое количество кнопок SpeedButton (SpeedButton1,..,SpeedButtonN) как програмно в одном цикле каждой 2-ой кнопке свойству DOWN присвоить значение TRUE (т.е. сделать их нажатыми)?

---

KSK   (2005-05-25 16:42:00) [1]

> Leonid   (25.05.05 13:08) [1]

Дуже вдячний (большое спасибо)!!!

---

Leonid   (2005-05-25 13:08:00) [2]

J:=0;
for I:=0 to ControlCount-1 do
 if Controls[I] is TSpeedButton then
 begin
 Inc(J);
  if Odd(J) then
    TSpeedButton(Controls[I]).Down:=true;
 end;

---

Наверх