minerelayshow_unt.pas

来自「煤矿行业采掘接替计划自动生成系统」· PAS 代码 · 共 42 行

unit MineRelayShow_Unt;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DataEdit_BaseUnt, DB, Grids, DBGrids, StdCtrls, Buttons,
  ExtCtrls;

type
  TMineRelayShow_Frm = class(TDataEdit_BaseFrm)
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormResize(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MineRelayShow_Frm: TMineRelayShow_Frm;

implementation
uses Data_Unt;
{$R *.dfm}

procedure TMineRelayShow_Frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=caFree;
  MineRelayShow_Frm:=nil;

end;

procedure TMineRelayShow_Frm.FormResize(Sender: TObject);
begin
  inherited;
  DBGrid1.Height:=Panel2.Height-4;
end;

end.