delphi - 如何像表单设计器一样将控件置于设计状态模式？

Question

这个问题已经困扰我一段时间了，也许答案是一个简单的答案，或者可能它涉及更多的 VCL 黑客或魔法来完成我正在寻找的东西，但无论哪种方式，我都不知道如何来解决我的问题。

如果您查看 Delphi 表单设计器，您会发现当鼠标移动到控件上时，所有控件都不会产生动画，它们也无法接收焦点或输入(例如，您无法在 TEdit 中键入内容、单击 TCheckBox 或移动 TScrollBar)等)，只有在运行时控件才会正常运行并响应用户交互。

我想知道如何在运行时对任何控件实现这种类型的行为，例如将控件设置为设计器状态模式？但是，控件还应该响应鼠标事件，例如 OnMouseDown , OnMouseMove , OnMouseUp等等，例如，如果需要，可以移动它们并调整它们的大小。

这是我最接近的:

procedure SetControlState(Control: TWinControl; Active: Boolean);
begin
  SendMessage(Control.Handle, WM_SETREDRAW, Ord(Active), 0);
  InvalidateRect(Control.Handle, nil, True);
end;

可以像这样简单地调用:

procedure TForm1.chkActiveClick(Sender: TObject);
begin
  SetControlState(Button1, chkActive.Checked);
  SetControlState(Button2, chkActive.Checked);
  SetControlState(Edit1, chkActive.Checked);
end;

或者例如表单上的所有控件:

procedure TForm1.chkActiveClick(Sender: TObject);
var
  I: Integer;
  Ctrl: TWinControl;
begin
  for I := 0 to Form1.ControlCount -1 do
  begin
    if Form1.Controls[I] is TWinControl then
    begin
      Ctrl := TWinControl(Form1.Controls[I]);
      if (Ctrl <> nil) and not (Ctrl = chkActive) then
      begin
        SetControlState(Ctrl, chkActive.Checked);
      end;
    end;
  end;
end;

我在上面注意到的两个问题是，虽然控件确实看起来像设计状态，但某些控件(例如 TButton)仍然具有绘制在其上的动画效果。另一个问题是当控件处于设计状态时按左 Alt 键会导致它们消失。

所以我的问题是，如何在运行时将控件置于设计状态模式，就像 Delphi 表单设计器那样，这些控件不会动画(基于 Windows 主题)并且无法接收焦点或输入？

为了使这一点更清楚，请根据上面的代码示例查看此示例图像，其中控件不再处于事件状态，但 TButton 的动画绘制仍然处于事件状态:

但实际上应该是:

从上面两幅图中，只能与TCheckBox控件进行交互。

是否存在隐藏在某处的过程可以更改控件的状态？或者也许有更合适的方法来实现这一目标？到目前为止我设法得到的代码只是带来了更多问题。

将控件设置为 Enabled := False也不是我正在寻找的答案，是的，行为有点相同，但当然控件的绘制方式有所不同，以表明它们已被禁用，这不是我正在寻找的。

Answer 1

您正在寻找的不是控件本身的功能，而是表单设计器本身的实现。在设计时，用户输入在被任何给定控件处理之前被拦截。 VCL 定义了一个CM_DESIGNHITTEST 消息，以允许每个控件指定是否要在设计时接收用户输入(例如，允许以可视方式调整列表/网格列标题的大小)。这是一个选择加入的功能。

不过，您可以做的是将所需的控件放在无边框的 TPanel 上，然后只需根据需要启用/禁用 TPanel 本身即可。这将有效地启用/禁用其子控件的所有用户输入和动画。此外，当禁用 TPanel 时，子控件不会将自身呈现为禁用状态。