Перемещаться как по Radiobutton ам

← →
Inslave (2008-01-29 21:57) [0]

Народ возник вопрос: Как сделать так чтобы по checkbox"ам можно было перемещаться аналогично radiobutton"ам. Т. е не может быть checked = true более чем в одном чекбоксе.

← →
DVM © (2008-01-29 21:58) [1]

> Т. е не может быть checked = true более чем в одном чекбоксе.

А нафига? Для этого радиокнопки же есть!

← →
JesteR (2008-01-29 22:02) [2]

вся фишка в том что это надо сделать в чекбоксах (хотя я и сам не понимаю зачем так извращаться)

← →
fics © (2008-01-29 22:07) [3]

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CheckBox1.Checked:=true;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
CheckBox4.Checked:=false;
end;

← →
homm © (2008-01-29 22:14) [4]

> [2] JesteR (29.01.08 22:02)
> вся фишка в том что это надо сделать в чекбоксах

Тебе или автору? ИМХО, автору не нужно, автору нужно использовать Radiobutton-ы.

← →
JesteR (2008-01-29 22:24) [5]

fics вы видимо шутите; а что если чекбоксов окажется десяток - не делать же обработчики OnClick для каждого. !!!!!!!!!!

← →
DVM © (2008-01-29 22:24) [6]

> не делать же обработчики OnClick для каждого.

Один на все назначить.

← →
fics © (2008-01-29 22:48) [7]

> DVM © (29.01.08 22:24) [6]
> > не делать же обработчики OnClick для каждого.Один на
> все назначить.

Пусть делает, если радиобатаноми не хочет пользоваться

← →
fics © (2008-01-29 22:49) [8]

> JesteR (29.01.08 22:24) [5]
> fics вы видимо шутите; а что если чекбоксов окажется десяток
> - не делать же обработчики OnClick для каждого. !!!!!!!
> !!!

Конечно шучу, зачем вообще эта бредовая идея у автора возникла

← →
fics © (2008-01-29 22:49) [9]

> JesteR (29.01.08 22:24) [5]

Пусть делает, может желание отпадет заниматься ерундой

← →
JesteR (2008-01-29 23:19) [10]

Короче я сам разобрался и без особых напрягов.
Сделал общий обработчи OnClick:
procedure Tform_Test.CheckControls(Sender: TObject); var i : Integer; begin for i := 0 to ComponentCount - 1 do if (Components[i] is TCheckBox) and ( Components[i] <> (Sender as TCheckBox)) and (( Sender as TCheckBox).State <> cbUnChecked) then (Components[i] as TCheckBox).Checked := False; end;

> [10] JesteR (29.01.08 23:19)
А ты кто такой-то?

← →
JesteR (2008-01-29 23:30) [13]

← →
JesteR (2008-01-29 23:36) [15]

Ты не ошибся

Перемещаться как по Radiobutton ам Найти похожие ветки