object_report.pas

培训管理系统

unit object_report;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, ExtCtrls;

type
  Tobject_reportf = class(TForm)
    pan_client: TPanel;
    pan_buttom: TPanel;
    btn_print: TBitBtn;
    btn_preview: TBitBtn;
    btn_cancel: TBitBtn;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormActivate(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure FormShow(Sender: TObject);
    procedure FormKeyPress(Sender: TObject; var Key: Char);
    procedure btn_cancelClick(Sender: TObject);
  private
    { Private declarations }
    MAXTABORDER :smallint;
    procedure DisplayHint(Sender:Tobject);

  public
    { Public declarations }
  end;

var
  object_reportf: Tobject_reportf;

implementation

uses Pdlgloading,main;

{$R *.dfm}

procedure Tobject_reportf.FormCreate(Sender: TObject);
begin
  MAXTABORDER:=30;
  with Dlgloading.progress do  Position:=Position+Step;
  with Dlgloading.Progress do position:=position+step;
end;

procedure Tobject_reportf.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Application.OnHint :=nil;
  Action:=Cafree;
end;

procedure Tobject_reportf.FormActivate(Sender: TObject);
begin
  Application.OnHint :=DisplayHint;
end;

procedure Tobject_reportf.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
   case Key of
      VK_DOWN:
      begin
         Key := 0;
         if TWinControl(ActiveControl).TabOrder < MAXTABORDER then
            SelectNext(ActiveControl, True, True);
      end;
      VK_UP:
      begin
         Key := 0;
         if TWinControl(ActiveControl).TabOrder <> 0 then
            SelectNext(ActiveControl, False, True);
      end;
   end;
end;

procedure Tobject_reportf.FormShow(Sender: TObject);
begin
   dlgloading.close;
   dlgloading.free;
end;

procedure Tobject_reportf.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
   key:=#0;
   if ActiveControl.TabOrder<MAXTABORDER then
      selectnext(Activecontrol,True,True)
  end;
end;

procedure Tobject_reportf.DisplayHint(Sender:Tobject);
begin
  mainform.StatusBar1.Panels[1].text:=Application.Hint;
end;

procedure Tobject_reportf.btn_cancelClick(Sender: TObject);
begin
 self.Close;
end;

end.