unit Umain;

interface

uses
 Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Menus, Vcl.ComCtrls, Vcl.Tabs,
  Vcl.ToolWin;


type
  TFmain = class(TForm)
    ToolBar: TToolBar;
    MDIChildrenTabs: TTabSet;
    MainMenu1: TMainMenu;
    StatusBar: TStatusBar;
    NChartAcc: TMenuItem;
    realisatia1: TMenuItem;
    procedure NChartAccClick(Sender: TObject);
    procedure realisatia1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);


  private
    { Private declarations }

  public
    { Public declarations }
     procedure MDIChildCreated(const childHandle : THandle);
     procedure MDIChildDestroyed(const childHandle : THandle);
  end;

var
  Fmain: TFmain;
 
implementation

uses uChartAcc, uGas;



{$R *.dfm}


procedure TFmain.FormCreate(Sender: TObject);
begin

end;

procedure TFmain.MDIChildCreated(const childHandle : THandle);
begin
  mdiChildrenTabs.Tabs.AddObject(TForm(FindControl(childHandle)).Caption, TObject(childHandle));
  mdiChildrenTabs.TabIndex := -1 + mdiChildrenTabs.Tabs.Count;
end;

procedure TFmain.MDIChildDestroyed(const childHandle : THandle);
var
  idx: Integer;
begin
  idx := mdiChildrenTabs.Tabs.IndexOfObject(TObject(childHandle));
  mdiChildrenTabs.Tabs.Delete(idx);
end;



procedure TFmain.NChartAccClick(Sender: TObject);
begin
  application.CreateForm(TfChartAcc, fChartAcc);
 fChartAcc.Show;
end;

procedure TFmain.realisatia1Click(Sender: TObject);
begin
  application.CreateForm(TFgas, Fgas);
  Fgas.Show;
end;

end.

unit UChartAcc;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBCtrls, DB, ibx.IBCustomDataSet, ibx.IBDatabase, Mask, StdCtrls, ComCtrls,
  ExtCtrls, ibx.IBSQL, Menus, Vcl.Buttons;

type
  TfChartAcc = class(TForm)
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    edAcDescrpt: TDBMemo;
    Panel2: TPanel;
    edAccntNum: TDBEdit;
    edAccTitle: TDBEdit;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormDestroy(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure FormShow(Sender: TObject);

  private
    { Private declarations }


  public
    { Public declarations }
  end;

var
  fChartAcc: TfChartAcc;
 
implementation

uses uMain;

{$R *.dfm}


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


procedure TfChartAcc.FormCreate(Sender: TObject);
begin
 Left:=0;
 Top:=Fmain.Toolbar.Height+Fmain.MDIChildrentabs.height;
 Height:=Fmain.ClientHeight-Fmain.Toolbar.Height-Fmain.MDIChildrentabs.height-Fmain.StatusBar.Height-2*GetSystemMetrics(SM_CXEDGE);
 Width:=Fmain.ClientWidth- 2*GetSystemMetrics(SM_CXEDGE);

  FMain.MDIChildCreated(self.Handle);
end;


procedure TfChartAcc.FormDestroy(Sender: TObject);
begin
 FMain.MDIChildDestroyed(self.Handle);
end;

procedure TfChartAcc.FormResize(Sender: TObject);
begin
 {
 Left:=0;
 Top:=Fmain.Toolbar.Height+Fmain.MDIChildrentabs.height;
 Height:=Fmain.ClientHeight-Fmain.Toolbar.Height-Fmain.MDIChildrentabs.height-Fmain.StatusBar.Height-2*GetSystemMetrics(SM_CXEDGE);
 Width:=Fmain.ClientWidth- 2*GetSystemMetrics(SM_CXEDGE);
 }
end;

procedure TfChartAcc.FormShow(Sender: TObject);
begin
 {Left:=0;
 Top:=Fmain.Toolbar.Height+Fmain.MDIChildrentabs.height;
 Height:=Fmain.ClientHeight-Fmain.Toolbar.Height-Fmain.MDIChildrentabs.height-Fmain.StatusBar.Height-2*GetSystemMetrics(SM_CXEDGE);
 Width:=Fmain.ClientWidth- 2*GetSystemMetrics(SM_CXEDGE);
}
end;

end.