Question

希望使用Sender作为TObject作为我案例的选择标准...声明

procedure TForm.ShowGUI (Sender: TObject);
begin
  case sender of
      ToolButton1: begin
          do_something;         
        end;

      ToolButton2: begin
          /// 
        end;

      ToolButton3: begin
          do_stufff_here; 
        end;

      ToolButton3: begin 
          /// 
        end;

      else ;

  end;
end;

根据case语句的要求使发件人成为序数类型的技巧？

Answer 1

您可以通过将Sender转换为整数来轻松地将NativeUInt(Sender)转换为序数（例如：case - 但这对您没有好处，因为ToolButton1语句需要常量表达式“分支”和ToolButton3 .. ToolButton不是常量，它们是变量。

例如，你可以在按钮的属性上做一个案例;例如，为每个Tag提供一个对其有意义的case (Sender as TToolButton).Tag of 1: ; // ToolButton1 was pressed 2: ; // ToolButton2 was pressed end;属性。然后你可以做这样的事情：

Tag

正如David所建议的那样：除非您使用的控件具有与其函数直接相关的属性（非常不可能），否则简单的链式if语句可能更容易阅读。我的第一个建议中的if (Sender = tbAlignTextLeft) then begin // The tool-button for left text alignment was pressed end else if (Sender = tbAlignTextCenter) then begin // Center-alignment button was pressed end else begin // This would be the default action. If it were me, I'd raise an exception here. end属性需要专门配置，而这只是引入错误的另一种方式。示例：也许您复制粘贴按钮但忘记更改它的标签，您现在有两个具有相同标签的按钮。

首先，您应该从代码中重命名您正在使用的所有组件，为它们指定正确的名称。然后你可以这样写：

{{1}}

Answer 2

考虑添加一些运行时支持，以将枚举与控件相关联。

首先创建一个枚举类型：

type
  TControlID = (cidAlignTextLeft, cidAlignTextRight, ....);

然后在表单中添加字典：

FControlIDs: TDictionary<TControl, TControlID>;

然后在表单的构造函数中创建并填充字典：

FControlIDs := TDictionary<TControl, TControlID>.Create;
FControlIDs.Add(tbAlignTextLeft, cidAlignTextLeft);
FControlIDs.Add(tbAlignTextRight, cidAlignTextRight);
....

这部分代码应该放在一个单独的本地帮助函数中，而不是在表单的构造函数中内联。

现在你可以写下你的案例陈述：

case FControlIDs[Sender as TControl] of
cidAlignTextLeft:
  ....
cidAlignTextRight:
  ....

发件人作为TObject for Case ...与Delphi

2 个答案: