кнопки SpeedButton

← →
KSK (2005-05-25 12:58) [0]

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

← →
Leonid (2005-05-25 13:08) [1]

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;

← →
KSK (2005-05-25 16:42) [2]

> Leonid (25.05.05 13:08) [1]

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

кнопки SpeedButton Найти похожие ветки