unit1.~pas

新颖按钮控件

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, SUITrackBar, StdCtrls, SUIURLLabel, SUIEdit,
  SUIComboBox, SUIColorBox, SUIButton, SUIForm, SUITitleBar, Menus,
  SUIMainMenu, SUITabControl, ToolWin, ComCtrls, SUIToolBar, SUIProgressBar,
  SUIPageControl, SUIImagePanel, SUIGroupBox, SUISkinControl,
  SUISideChannel, jpeg, SUIRadioGroup, SUIListView, Hemibtn, SUIDBCtrls;

type
  TForm1 = class(TForm)
    suiPageControl1: TsuiPageControl;
    suiTabSheet1: TsuiTabSheet;
    suiTabSheet2: TsuiTabSheet;
    suiTabSheet3: TsuiTabSheet;
    suiTabSheet4: TsuiTabSheet;
    suiTabSheet5: TsuiTabSheet;
    suiTabSheet6: TsuiTabSheet;
    suiTabSheet7: TsuiTabSheet;
    suiTabSheet8: TsuiTabSheet;
    suiButton1: TsuiButton;
    suiCheckBox1: TsuiCheckBox;
    suiRadioButton1: TsuiRadioButton;
    suiProgressBar1: TsuiProgressBar;
    suiComboBox1: TsuiComboBox;
    suiRadioGroup1: TsuiRadioGroup;
    suiCheckGroup1: TsuiCheckGroup;
    suiTrackBar1: TsuiTrackBar;
    HemisphereButton1: THemisphereButton;
    suiDBComboBox1: TsuiDBComboBox;
    suiDBCheckBox1: TsuiDBCheckBox;
    suiDBRadioGroup1: TsuiDBRadioGroup;
    procedure N4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.N4Click(Sender: TObject);
begin
 Close;
end;

end.