/Gedemin/Storage/gdc_st_frmUserStorage_unit.pas
Pascal | 48 lines | 36 code | 11 blank | 1 comment | 1 complexity | f93ba6fe7f07ab7f8b13d479a029df58 MD5 | raw file
1unit gdc_st_frmUserStorage_unit; 2 3interface 4 5uses 6 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 7 gdc_frmSGR_unit, gd_MacrosMenu, Db, Menus, ActnList, Grids, DBGrids, 8 gsDBGrid, gsIBGrid, StdCtrls, ExtCtrls, TB2Item, TB2Dock, TB2Toolbar, 9 ComCtrls, IBCustomDataSet, gdcBase, gdcStorage; 10 11type 12 Tgdc_st_frmUserStorage = class(Tgdc_frmSGR) 13 gdcUserStorage: TgdcUserStorage; 14 procedure FormCreate(Sender: TObject); 15 public 16 class function CreateAndAssign(AnOwner: TComponent): TForm; override; 17 end; 18 19var 20 gdc_st_frmUserStorage: Tgdc_st_frmUserStorage; 21 22implementation 23uses 24 gd_ClassList; 25 26{$R *.DFM} 27 28class function Tgdc_st_frmUserStorage.CreateAndAssign( 29 AnOwner: TComponent): TForm; 30begin 31 if not FormAssigned(gdc_st_frmUserStorage) then 32 gdc_st_frmUserStorage := Tgdc_st_frmUserStorage.Create(AnOwner); 33 Result := gdc_st_frmUserStorage; 34end; 35 36procedure Tgdc_st_frmUserStorage.FormCreate(Sender: TObject); 37begin 38 gdcObject := gdcUserStorage; 39 inherited; 40end; 41 42initialization 43 RegisterFrmClass(Tgdc_st_frmUserStorage); 44 45finalization 46 UnRegisterFrmClass(Tgdc_st_frmUserStorage); 47 48end.