更改 VCL 组件内容的正确方法

Question

我在做 VCL 程序的时候经常会遇到这样的场景：

• 我在表单上有许多组件，允许用户摆弄。最常见的是一堆编辑框。
• 当用户手动输入内容时，这些编辑框的内容需要通过 OnChange 事件进行验证。
• 在表单的其他位置，用户可以单击某些组件以将一些默认值加载到编辑框（在 TEdit::Text 中）。

现在我想要的是，每当用户在 TEdit::Text 中键入内容时，OnChange 事件必须处理用户输入。但是当我的程序将 TEdit::Text 设置为默认值时，这不是必需的，因为我知道该值是正确的。

不幸的是，编写myedit->Text = "Default"; 之类的代码会触发 OnChange 事件。

我倾向于用我认为相当丑陋的方法来解决这个问题：通过创建一个布尔变量is_user_input，TEdit::OnChange 会检查它。如果为真，则 TEdit::Text 将得到验证，否则将被忽略。但是当然，这并不妨碍程序在不必要的时候启动TEdit::OnChange。

有没有更好或更清洁的方法来实现这一点？

OnChange 有没有办法检查谁调用了它？或者我想，暂时禁用 OnChange 事件的方法会更好。 TEdit::Enabled 似乎不会影响 OnChange 是否被触发。

Answer 1

您可以简单地暂时取消分配 OnChange 事件处理程序：

template <typename T>
void SetControlTextNoChange(T *Control, const String &S)
{
    TNotifyEvent event = Control->OnChange;
    Control->OnChange = NULL;
    try {
        Control->Text = S;
    }
    __finally {
        Control->OnChange = event;
    }
 }

SetControlTextNoChange(myedit, "Default");

另外，RAII 也适合这种事情：

template <typename T>
class DisableChangeEvent
{
private:
    T *m_control;
    TNotifyEvent m_event;
public:
    DisableChangeEvent(T *control);
    {
        m_control = control;
        m_event = control->OnChange;
        control->OnChange = NULL;
     }

    ~DisableChangeEvent();
    {
        m_control->OnChange = m_event;
    }

    T* operator->() { return m_control; }
};

DisableChangeEvent(myedit)->Text = "Default";

Answer 2

OnChange 有没有办法检查谁调用了它？

通常事件有一个参数Sender，你可以在事件函数中检查if(Sender ==ButtonSetDefaults)。如果 Button 触发 OnChange 事件并且现在无法对其进行测试，不确定会发生什么。

否则我认为全局变量除了时间问题之外没有问题，但你也可以遇到那些禁用事件的问题。