如何将一个控件设置为不可覆盖。我的TShape控件老是TLabel控件覆盖，有没有办法设置TShape控件的级别高于TLabel

Question

如何将一个控件设置为不可覆盖。我的TShape控件老是TLabel控件覆盖，有没有办法设置TShape控件的级别高于TLabel,这样即使TShape和TLabel的控件区域有重合，都可以确保TShape可以完整显示。

Answer 1

Shape1.BringToFront
或者在窗口上面：右键弹出菜单->Control->Bring To Front

Answer 2

to lonoaer() :
没有效果。仍然显示不了TShape的被覆盖区域

Answer 3

动态生成的？？
那先生成label，再生成shape，就可以撒。procedure TForm1.Button1Click(Sender: TObject);
var
lab : TLabel;
sp : TShape;
begin  lab := TLabel.Create(nil);
  lab.Parent := Form1;
  lab.Left := 100;
  lab.Top := 100;
  lab.Caption := 'BS';  sp := TShape.Create(nil);
  sp.Left := 100;
  sp.Top := 100;
  sp.Parent := Form1;
end;