unit1.pas

来自「强大的皮肤控件 能做出美观的界面」· PAS 代码 · 共 45 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  se_controls, KsSkinForms, KsSkinEngine, Db, DBTables, KsSkinDBControls,
  KsSkinGroupBoxs, Grids, DBGrids, KsSkinDBGrids, KsSkinLabels;
  
type
  TForm1 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    DataSource2: TDataSource;
    Table2: TTable;
    SeSkinDBGrid1: TSeSkinDBGrid;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinEngine1: TSeSkinEngine;
    SeSkinGroupBox1: TSeSkinGroupBox;
    SeSkinDBLookupComboBox1: TSeSkinDBLookupComboBox;
    SeSkinDBLookupListBox1: TSeSkinDBLookupListBox;
    SeSkinForm1: TSeSkinForm;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

uses KsSkinVersion;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption := 'SkinEngine DBDemo v. ' + sSeSkinVersion;
end;

end.