如何让TButton看起来像3D？

Question

我编写了一个程序，用户可以使用该程序绘制形状，将实际按钮和其他工具放在窗体上并使它们处于活动状态。但是，我注意到这种形式的TButton和设计模式中的TButton的外观有很大不同。看看下面的图片。

此按钮来自我的程序，图像正下方是我在此表单上创建此按钮的方式：

constructor TMakerButton.Create(r:TRect;form:TForm);
begin
   inherited Create(r,form);
   myType := totButton;
   name := 'Button';
   caption := 'Button';
   lines := TStringList.Create;
   lines.Clear;
   button := TButton.Create(form);
   button.Parent := form;
   button.caption := string(caption);
   button.Tag := LongInt(Self);

   if form is TMakerFrm then
   begin
      button.Enabled := false;
   end;
   button.OnClick := ButtonClick;
   button.OnMouseMove := ButtonMove;

   myControl := button;
   with bounds do
   button.SetBounds(left,top,right-left,bottom-top);
end;

这是delphi编译器中设计模式下的TButton。看看它看起来像3D，具有抛光的玻璃外观：

有趣的是，我的程序按钮和delphi编译器的基类是 TButton 那么，为什么它们看起来如此不同以及如何使我的Button看起来一样？

Answer 1

按钮被禁用。这些应该是不同外观的原因。