?? 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.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -