Sorry за предыдущий мой вопрос это я видимо к вечеру тупить начинаю. Все как оказалось довольно легко. Я по началу просто перепутал некоторые обработчики
Теперь все выглядит как надо:
procedure TForm1.MoveCheck(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;
procedure TForm1.MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); // Общий обработчик OnMouseUp
begin
if (Sender as TCheckBox).Checked then
(Sender as TCheckBox).Checked := True;
else
(Sender as TCheckBox).Checked := not (Sender as TCheckBox).Checked;
end;
|