delphi - 为什么当 btn 为 NIL 时我可以访问 btn.Caption？

Question

为什么这段代码不会崩溃？ T 为零。如果T为nil，如何访问Caption？

procedure Crash;                                                                          
VAR T: TButton;
begin
 T:= NIL;
 T.Caption:= ''; <---------- this works
end;

Answer 1

TButton 控件是 Win32 Button 控件的包装器。它使用 Windows 消息系统对其进行操作。这样做的核心方法，TControl.Perform()，有一个内置的保护措施，防止在 Self 为 nil 时发送消息:

function TControl.Perform(Msg: Cardinal; WParam: WPARAM; LParam: LPARAM): LRESULT;
var
  Message: TMessage;
begin
  Message.Msg := Msg;
  Message.WParam := WParam;
  Message.LParam := LParam;
  Message.Result := 0;

  if Self <> nil then // <-- here
    WindowProc(Message); 

  Result := Message.Result;
end;

Caption 是一个属性，其 setter 使用非虚拟 TControl.GetText() 和 TControl.SetText() 方法，这可以可以安全地调用 nil 对象，因为它们的功能依赖于向控件发送各种消息(WM_GETTEXTLEN 和 WM_SETTEXT)，并且仅涉及局部变量或传递参数。因此，当 nil 时，不会访问实际对象，因此不会崩溃。