frmbase_un.pas

手机进销存系统Delphi源码,管理手机的进货还有销售方面的功能

unit frmbase_un;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, bsSkinData, bsMessages, bsSkinCtrls;

type
  Tbase_frm = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    bsSkinData1: TbsSkinData;
    bsSkinMessage1: TbsSkinMessage;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  base_frm: Tbase_frm;

implementation
uses main_un;
{$R *.dfm}

procedure Tbase_frm.FormCreate(Sender: TObject);
//var i:integer;
begin
//for i:=0 to ComponentCount-1 do
//if Components[i] is TbsSkinStdLabel  then
//begin
//TbsSkinStdLabel(Components[i]).Font.Color:=clBlack;
//TbsSkinStdLabel(Components[i]).AutoSize:=true;
//TbsSkinStdLabel(Components[i]).Font.Name :='新宋体';
//TbsSkinStdLabel(Components[i]).Font.Size:=10;
//end;


end;

end.