Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

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

Inslave © (2008-01-29 21:57:00)
Народ возник вопрос: Как сделать так чтобы по checkbox'ам можно было перемещаться аналогично radiobutton'ам. Т. е не может быть checked = true более чем в одном чекбоксе.

JesteR (2008-01-29 23:36:00) [1]
Ты не ошибся

homm (2008-01-29 23:32:00) [2]
> [12] fics © (29.01.08 23:30)
> JesteR это другой ник Inslave,

Я как бы догадываюсь, но хотелось из перых уст… :)

fics (2008-01-29 23:30:00) [3]

> homm ©

JesteR это другой ник Inslave, предназначеный для накручивания ветки

JesteR (2008-01-29 23:30:00) [4]
В смысле ?
> homm © (29.01.08 23:24) [11]
>
> > [10] JesteR (29.01.08 23:19)
> А ты кто такой-то?
> <Цит

В смысле...

homm (2008-01-29 23:24:00) [5]
> [10] JesteR (29.01.08 23:19)
А ты кто такой-то?

JesteR (2008-01-29 23:19:00) [6]
Короче я сам разобрался и без особых напрягов.
Сделал общий обработчи 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;

fics (2008-01-29 22:49:00) [7]

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

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

fics (2008-01-29 22:49:00) [8]

> JesteR (29.01.08 22:24) [5]

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

fics (2008-01-29 22:48:00) [9]

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

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

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

DVM (2008-01-29 22:24:00) [11]

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

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

homm (2008-01-29 22:14:00) [12]
> [2] JesteR (29.01.08 22:02)
> вся фишка в том что это надо сделать в чекбоксах

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

fics (2008-01-29 22:07:00) [13]
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
CheckBox1.Checked:=true;
CheckBox2.Checked:=false;
CheckBox3.Checked:=false;
CheckBox4.Checked:=false;
end;

JesteR (2008-01-29 22:02:00) [14]
вся фишка в том что это надо сделать в чекбоксах (хотя я и сам не понимаю зачем так извращаться)

DVM (2008-01-29 21:58:00) [15]

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

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

Наверх

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