edisonfeng

unit GlobalVar;

interface
uses
  Windows;

var
  userCount:Integer;
  UserInfoRTL:TRTLCriticalSection;

implementation

end.

unit UserInfoManage_Thread;

interface

uses
  Classes, SysUtils, GlobalVar,Windows;

type
    TUserInfoManage_Thread= class(TThread)
    private

    public
      constructor Create(CreateSuspended: Boolean);
      procedure  Execute;override;
      destructor Destroy;override;
  end;

implementation
uses
  Main;
{ TUserInfoManage_Thread }

constructor TUserInfoManage_Thread.Create(CreateSuspended: Boolean);
begin
   inherited Create(CreateSuspended);
end;

destructor TUserInfoManage_Thread.Destroy;
begin

  inherited;
end;

procedure TUserInfoManage_Thread.Execute;
var
  printStr:string;
begin
  inherited;

  EnterCriticalSection(UserInfoRTL);//进入临界区
  try
    userCount:=userCount+1;

    printStr:='第'+inttostr(userCount)+'个线程已启动，并进入临界区';
    FrmMain.Memo1.Lines.Add(printStr);

    printStr:='休眠2000毫秒。。。';
    FrmMain.Memo1.Lines.Add(printStr);
    Sleep(2000);

    printStr:='第'+inttostr(userCount)+'个线程执行完毕，离开临界区';
    FrmMain.Memo1.Lines.Add(printStr+#13#10);
  finally
    LeaveCriticalSection(UserInfoRTL);//离开临界区
  end;

  Self.FreeOnTerminate:=True;
end;

end.

   userCount:=0;
   InitializeCriticalSection(UserInfoRTL);

begin
  TUserInfoManage_Thread.Create(False);

  TUserInfoManage_Thread.Create(False);

  TUserInfoManage_Thread.Create(False);
end;

 TOnUserInfoShow = procedure(userName:string;userAge:Integer)of object;//定义事件模型中的回调函数原型

  TUserInfo = class
    private
      FName:string;
      FAge:Integer;
      FOnUserInfoShow: TOnUserInfoShow;

      procedure FSetAge(theAge:Integer);
    public
      property Name:string read FName;//只读属性（私有变量）
      property Age:Integer read FAge write FSetAge;//读写属性（私有变量，私有方法）

      property OnUserInfoShow:TOnUserInfoShow  read FOnUserInfoShow write FOnUserInfoShow;//事件模型回调函数

      constructor Create;
  end;

constructor TUserInfo.Create;
begin
   Self.FName:='Terry';
   Self.FAge:=20;
end;

begin
  Self.Memo1.Lines.Add('读取只读属性姓名：'+Self.theUserInfo.Name);
end;

constructor TUserInfo.Create;
begin
   Self.FName:='Terry';
   Self.FAge:=20;
end;

begin
   Self.Memo1.Lines.Add('修改前的读写属性年龄为：'+inttostr(Self.theUserInfo.Age));
   Self.theUserInfo.Age:=30;
   Self.Memo1.Lines.Add('修改后的读写属性年龄为：'+inttostr(Self.theUserInfo.Age));
end;

procedure TFrmMain.UserInfoShow(name: string; age: Integer);
begin
   Self.Memo1.Lines.Add('用户姓名为：'+Self.theUserInfo.Name);
   Self.Memo1.Lines.Add('用户年龄为：'+inttostr(Self.theUserInfo.Age));
end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
   Self.Memo1.Color:=clBlack;
   Self.Memo1.Font.Color:=clGreen;
   theUserInfo:=TUserInfo.Create;
   Self.theUserInfo.OnUserInfoShow:=Self.UserInfoShow;
end;

begin
   Self.theUserInfo.OnUserInfoShow(Self.theUserInfo.Name,Self.theUserInfo.Age);
end;

begin
  {$ASSERTIONS ON}
  Self.SetUserInfo('Terry',200);
end;

procedure TFrmMain.SetUserInfo(name: string; age: integer);
begin
   ASSERT(((age>0)and(age<120)), '年龄输入超出范围！！');
   
   Self.FName:=name;
   Self.FAge:=age;
end;

type
  TFrameClass  =  class    of    TFrame;

  TFrmMain = class(TForm)
    Button1: TButton;
    Panel1: TPanel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
    FCurrentfrmClassName:  string;
    FCurrentfrm:  TFrame;
    procedure    LoadFrameByClassName(theFrameClass:    TFrameClass);
  public
    { Public declarations }
  end;

var
  FrmMain: TFrmMain;

implementation

{$R *.dfm}
procedure TFrmMain.FormCreate(Sender: TObject);
begin
    FCurrentfrmClassName:='';
    FCurrentfrm:=nil;
end;

procedure TFrmMain.LoadFrameByClassName(theFrameClass: TFrameClass);
begin
   if Assigned(FCurrentfrm)and( not SameText(theFrameClass.ClassName,FCurrentfrmClassName)) then
       FreeAndNil(FCurrentfrm);

   FCurrentfrm:=theFrameClass.Create(nil);
   FCurrentfrm.Parent:=Panel1;
   FCurrentfrm.Left:=(Panel1.Width-FCurrentfrm.Width)div 2;
   FCurrentfrm.Top:=(Panel1.Height-FCurrentfrm.Height)div 2;
   
   FCurrentfrmClassName:=theFrameClass.ClassName;
end;

procedure TFrmMain.Button1Click(Sender: TObject);
begin
   Self.LoadFrameByClassName(TFrmFirstFrame);
   ShowMessage('显示第一个Frame！');
end;

procedure TFrmMain.Button2Click(Sender: TObject);
begin
   Self.LoadFrameByClassName(TFrmSecondFrame);
   ShowMessage('显示第二个Frame！');
end;

end.

type
  TFrmFirstFrame = class(TFrame)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

end.

type
  TFrmSecondFrame = class(TFrame)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

end.