如何讓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; 

這是在設計模式中一個TButton在Delphi編譯器。看看它是如何看起來像3D，其拋光玻璃的外觀：

有趣的是，我的程序的按鈕和Delphi編譯器的基類是TButton的那麼，爲什麼他們看起來如此不同，以及如何你讓我的Button看起來一樣嗎？

Answer 1

該按鈕被禁用。這些應該是不同外觀的原因。