unit1.pas

来自「新颖按钮控件」· PAS 代码 · 共 56 行

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.