Проверка (True or False for CheckBox)

[NeiL]

Народ, как программно решить следующую задачу: Имеется 2 чекбокса. В случае если свойство одного из чекбоксов - Checked становиться равным True, то при повторном нажатии оставить прежнее состояние (то есть не выполнять Checked = False, (здесь же имееть ввиду то что при повторном нажатии не должны инициироваться никае действия выполняемые при Checked = True - они должны выполняться единожды при первоначальном назначении флага True)).

[puporev]

Если CheckBox используется только один раз, то можно так:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if  CheckBox1.Checked then
    begin
    edit1.text:='checked';
    CheckBox1.Enabled:=false;
    end;
end;

[FaTaL]

Не совсем понятен вопрос. Сначала говорите что у Вас 2 чекбокса, потом что-то об одном только заговорили. Конкретнее можно?

[NeiL]

Рассматривается такой вариант. Имеется несколько чекбоксов
Здесь чекбоксы работаю как аналог радиобутонов (в плане перемещения).
Как реализовать нижеописанную возможность, в данном случае (То есть при перемещении в следующии чекбокс предыдущий сбросить в False, а для текущего сделать (код_1). То есть надо сделать:
Когда мы кликаем на чекбокс то его состояние переходит в cbChecked. При следующем клике на этом же чекбоксе если состояние уже равно cbChecked не иницировать никаких действий при этом оставив текущее состояние. Но в том случае если мы чекаем другой чекбокс то для него произвести аналогичные предыдущему действия при этом сбросив состояние предыдущего чекбокса в cbUnchecked


код Pascal/Delphi
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
procedure TForm1.C(Sender: TObject);
var
i: Integer;
begin
for i := 0 to ControlCount - 1 do
if (Controls[i] is TCheckBox) and (Components[i] <> Sender) and
((Sender as TCheckBox).State = cbChecked) then
(Components[i] as TCheckBox).Checked := False;
end;

***********************КОД1******** **************
procedure TForm1.CheckBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if CheckBox1.Checked
then
begin
CheckBox1.Checked := true;
//тут код состояния Checked
end
else
CheckBox1.Checked := not CheckBox1.Checked;
end;

[mutabor]

Во первых радиогруппа это то что нужно и что обычно используется в этом случае, и ничего писать ненадо.
Но можно и с чекбоксами сделать. Создать переменную хранящую активный (выбранный) чекбокс. При клике на чекбоксе проверять или это не он, если он - ничего не делаем, если не он - выполняем нужный код и присваиваем этот чекбокс переменной.
Вот как я делал для пунктов меню (хотя там радиогруппу тоже вполне можно было организовать)

var LastChecked: TMenuItem;

procedure TForm1.N240x320Click(Sender: TObject);
begin
if not N240x320.Checked then
  begin
  N240x320.Checked:=true;
  LastChecked.Checked:=false;
  LastChecked:=N240x320;
  end;
  SetFrame(240,320);//код выполняется в любом случае, так нужно было
end;

[Yurk@]

Сообщение от mutabor

Во первых радиогруппа это то что нужно и что обычно используется в этом случае, и ничего писать ненадо.

Сообщение от Yurk@

ЗЫ: А почему ты не хочешь вместо RadioButton использовать RadioGroup ???? Мне кажеться, так будет намного удобнее!

+1
Ставишь RadioGroup и не мучишь себе голову ....