在 Delphi 中，如何将 TPanel 变量类型设置为 null？

Question

Helo，我有以下内容：selectedPanel 应该获取点击的面板对象，如果点击了表单，selectedPanel 应该是“null”、nada、empty 等 :)

var
     selectedBlock: Tpanel; <== fixed typo

...

procedure TForm1.stubPanelMouseDown(Sender: TObject...
begin

    ...

    Panel:= Sender as TPanel;

    if (*selectedBlock is not null*) then
    begin
            // ie, store the current panel
            selectedBlock:= Panel;
    end
    else
    begin
            // empty the selection
            *selectedBlock:= null*;
    end;

所以问题是：我如何将该变量设置为“null”？执行 selectedBlock:= Unassigned 会引发错误。

谢谢

编辑：这仍然会引发错误：访问冲突

if (selectedBlock=nil) then <= fixed and works
  begin
    selectedBlock:= Panel;
  end
  else
  begin
     selectedBlock:= nil;
 end;

Answer 1

使用 nil 常量将指针设置为“null”：

selectedBlock := nil;

Null 是一个特殊值，仅适用于 Variant 和 OleVariant。