u_base.pas

来自「此系统是一个专门为一个童装行业客户做的。。“产品”进销存系统」· PAS 代码 · 共 44 行

unit U_base;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, WinSkinData, WinSkinStore;

type
  TF_base = class(TForm)
    SkinData1: TSkinData;
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_base: TF_base;

implementation

uses U_Function;

{$R *.dfm}

procedure TF_base.FormKeyPress(Sender: TObject; var Key: Char);
begin
IF key=#13 then Perform(Cm_Dialogkey,vk_tab,0);
end;

procedure TF_base.FormCreate(Sender: TObject);
begin
//showmessage(ParentDir('Source'));
//SkinData1.LoadFromFile(Extractfilepath(Application.exename)+'skin0012.skn');
//SkinData1.Active:=True;
 Top:=10;
 left:=10;
end;

end.