browunit.pas

来自「人事管理源码 Delphi+ADO+Acce」· PAS 代码 · 共 65 行

unit browunit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, dxCntner, dxTL, dxDBCtrl, dxDBGrid,modeunit, dxLayout,dataunit,
  StdCtrls, dxDBTLCl, dxGrClms, Menus;

type
  Tbrowform = class(TModeForm)
    Grids: TdxDBGridLayoutList;
    ZZBrow: TdxDBGridLayout;
    NTBrow: TdxDBGridLayout;
    TYbrow: TdxDBGridLayout;
    JSBrow: TdxDBGridLayout;
    TXBrow: TdxDBGridLayout;
    DataGrid: TdxDBGrid;
    DataGridColumn1: TdxDBGridDateColumn;
    BrowFrmTopMenu: TPopupMenu;
    T1: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure T1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  browform: Tbrowform;

implementation

uses MainUnit;

{$R *.dfm}


procedure Tbrowform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  inherited;
  mainform.browbtn.down := false;
end;

procedure Tbrowform.FormShow(Sender: TObject);
begin
  inherited;
  if not mainform.browBtn.Down then
     mainform.browBtn.Down := true;
end;

procedure Tbrowform.T1Click(Sender: TObject);
begin
  inherited;
  if t1.Checked then
    browform.FormStyle := fsstayontop
  else
    browform.FormStyle := fsnormal;
    
end;

end.