uuserfriend.pas

来自「一个基于不需引擎的文件管理系统,使用了许多界面比较好的控件」· PAS 代码 · 共 35 行

unit uUserfriend;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, Mask, RzEdit, SpTBXTabs, TB2Item, TBX,
  SpTBXItem;

type
  TFriendfrm = class(TForm)
    SpTBXTabControl1: TSpTBXTabControl;
    SpTBXTabItem1: TSpTBXTabItem;
    SpTBXTabSheet1: TSpTBXTabSheet;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Friendfrm: TFriendfrm;

implementation

{$R *.dfm}

procedure TFriendfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  action:=cafree;
end;

end.