Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3277573 Thu, 21 Feb 2013 06:17:27 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3277573 Игорь Акопян Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3275064 Fri, 15 Feb 2013 11:15:09 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3275064 Если чекбокс сам решает Checked он или не Checked то надо воспользоваться этим себе во благо :)
Я пошел по такому пути:
    procedure TfrmMain.chk01Click(Sender: TObject);
    var
      ch: TCheckBox;
     
    begin
      ch := (Sender as TCheckBox);
      if ch.Checked then // Чекбокс хочет влючиться
      begin
         // Проверяем, а можно ли ему включаться?
        if НЕЛЬЗЯ then
          ch.Checked := False
      end;
    end;


И все.
т.е. выключение мы даже не прверяем.
Работает стабильно, причем как видите с кучей чекбоксов]]> skeef Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107674 Fri, 30 Mar 2012 10:30:27 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107674 Цитата User32 @
Да можно конечно же, но думаю результат будет аналогичен тому что я описал

Ну я попробовал, более-менее работает (не реагирует на нажатия).]]> Fr0sT Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107520 Fri, 30 Mar 2012 08:00:12 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107520 Цитата Fr0sT @
Можно сабклассить чекбоксы и ловить WM_LBUTTONDOWN, WM_LBUTTONUP.

Да можно конечно же, но думаю результат будет аналогичен тому что я описал

Добавлено
Цитата Lumen @
Цитата User32 @
Да не хотелось бы возится с отрисовкой двойных бордеров как у CheckBox
А так не пойдет?
    DrawFrameControl(Canvas.Handle, Rect(10, 10, 24, 24), DFC_BUTTON, DFCS_CHECKED);

Гениально, я и не знал про волшебство WinAPI'шной DrawFrameControl

Добавлено
Цитата BugMeNot @
Или так
    procedure TForm1.PaintBox1Paint(Sender: TObject)
    begin
      with TCheckBox.Create(Self) do
      try
        Left := -1000;
        Visible := True;
        Parent := Self;
        Checked := True;
        PaintTo(TPaintbox(Sender).Canvas.Handle, 0, 0);
      finally
        Free;
      end;

Будет натуральная отрисовка с темами;

Не совсем удобно, точнее правильно я считаю создавать визуальные объекты за пределами родительского окна.
Но как альтернатива или ещё один вариант вполне сносно.

Добавлено
Цитата northener @
Самое простое решение - положить чекбоксы на панель с выключенным бевелом. И панели назначить энайбл = фолсе.

Да действительно это самое простое и оптимальное решение, без лишней головной боли. Совсем забыл про волшебное свойства панели.]]> User32 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107488 Fri, 30 Mar 2012 07:32:15 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107488 Fr0sT Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107086 Thu, 29 Mar 2012 15:42:28 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107086 northener Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107084 Thu, 29 Mar 2012 15:36:14 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107084
    procedure TForm1.PaintBox1Paint(Sender: TObject)
    begin
      with TCheckBox.Create(Self) do
      try
        Left := -1000;
        Visible := True;
        Parent := Self;
        Checked := True;
        PaintTo(TPaintbox(Sender).Canvas.Handle, 0, 0);
      finally
        Free;
      end;

Будет натуральная отрисовка с темами;]]> BugMeNot Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107081 Thu, 29 Mar 2012 15:31:25 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107081 Упс, с DrawFrameControl уже опередили]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107080 Thu, 29 Mar 2012 15:30:50 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107080 leo правильно уже заметил, взять можно из того же CheckListBox.]]> Lumen Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107078 Thu, 29 Mar 2012 15:27:08 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107078 Цитата User32 @
Да не хотелось бы возится с отрисовкой двойных бордеров как у CheckBox чтобы придать объёмность

И не надо возиться, т.к. CheckBox рисуется стандартными средствами. Глянь, как рисуются чекбоксы в TCheckListBox.DrawCheck - несколько строчек при ThemesEnabled (через ThemeServices.DrawElement), иначе еще проще через DrawFrameControl]]> leo Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107058 Thu, 29 Mar 2012 15:04:30 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107058 Цитата User32 @
Да не хотелось бы возится с отрисовкой двойных бордеров как у CheckBox
А так не пойдет?
    DrawFrameControl(Canvas.Handle, Rect(10, 10, 24, 24), DFC_BUTTON, DFCS_CHECKED);
]]> Lumen Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107048 Thu, 29 Mar 2012 14:56:12 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107048 Цитата Lumen @
Цитата User32 @
А может использовать что то другое вместо CheckBox?

Image? :) И фокуса не будет и выключить нельзя будет.

Да не хотелось бы возится с отрисовкой двойных бордеров как у CheckBox чтобы придать объёмность а из битмапа грузить не правильно, т.к. если сменить стиль окон Windows то будут накладки.]]> User32 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107043 Thu, 29 Mar 2012 14:50:49 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107043 Цитата User32 @
А может использовать что то другое вместо CheckBox?

Image? :) И фокуса не будет и выключить нельзя будет.]]> Lumen Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107017 Thu, 29 Mar 2012 14:23:00 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3107017
    type
      TCheckBoxX = class(TCheckBox)
      private
        { Private declarations }
        procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
      end;
     
    type
      TCheckBox = class(TCheckBoxX)
      end;
     
    ...
     
    procedure TCheckBoxX.CNCommand(var Message: TWMCommand);
    begin
      if Message.NotifyCode = BN_CLICKED then Exit;
    end;

И получаетя при клике контрол маргает.
Нужно чтобы вообще не получал фокус.]]> User32 Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3106976 Thu, 29 Mar 2012 13:47:03 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3106976
    type
      TCheckBox = class(VCL.StdCtrls.TCheckBox)
        procedure CNCommand(var Message: TWMCommand); message CN_COMMAND;
      end;
      TForm1 = class(TForm)
        CheckBox1: TCheckBox;
       .....................
    procedure TCheckBox.CNCommand(var Message: TWMCommand);
    begin
      if Owner = SomeOptionsForm then
       // SendMessage(Handle, BM_SETCHECK, 1, 0)
      else
        inherited;
    end;
]]> BugMeNot Delphi: Общие вопросы https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3106954 Thu, 29 Mar 2012 13:13:19 +0000 Как запретить выбор в активном CheckBox (не деактивируя его). https://forum.sources.ru/index.php?showtopic=354304&view=findpost&p=3106954 Есть ряд опциональных CheckBox, и они служат для показа опций и должны быть всегда Enable := True но при этом не должны менять своего статуса Checked, т.е. полный запрет на любое изменение пользователем как кликом мыши так и по нажатию пробела на клавиатуре. Какое сообщение нужно перехватить чтобы перекрыть его для всех CheckBox глобально. А может использовать что то другое вместо CheckBox?
Какие варианты?]]> User32 Delphi: Общие вопросы