psystem.pas

这是一个正式的项目工程

unit PSystem;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComCtrls, ExtCtrls;

type
  TfrmPSystem = class(TForm)
    PanelLeft: TPanel;
    StatusBarSystem: TStatusBar;
    PanelRight: TPanel;
    Splitter1: TSplitter;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmPSystem: TfrmPSystem;

implementation

{$R *.DFM}

procedure TfrmPSystem.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action:=caFree;

end;

end.