Delphi StyleControls之功能按钮设计

控件：scGPGlyphButton

控件部分属性：

【关闭和最小化下的OnClick事件】

procedure TForm2.scGPGlyphButton1Click(Sender: TObject);
begin
  Application.Terminate;         //关闭
end;

procedure TForm2.scGPGlyphButton2Click(Sender: TObject);
begin
  Application.Minimize;          //最小化
end;