mainunit.pas

Navision ERP 极品补丁

unit mainunit;

interface

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

type
  Tnhide = class(TForm)
    Timer1: TTimer;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    BitBtn1: TBitBtn;
    Panel1: TPanel;
    Label1: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label2: TLabel;
    
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    procedure GetRectArea;
    { Public declarations }
  end;

var
  nhide: Tnhide;
  FormHandle:Hwnd;
  FrmLeft,FrmTop,FrmRight,FrmBottom:Integer;
implementation

uses Unit1, Unit2;

{$R *.dfm}
procedure JudgePointPosition(CurPoint:TPoint);
begin
 if ((CurPoint.X >= FrmLeft) and (CurPoint.X <= Frmright) and
     (CurPoint.Y >= FrmTop) and (CurPoint.Y <= FrmBottom)) then
    begin
     nhide.Show;
    end
    else
    begin
     nhide.hide;
    end;
end;

procedure Tnhide.GetRectArea;
var
 rect:TRect;
begin
 GetWindowRect(FormHandle,rect);
 FrmLeft:=rect.left;
 FrmTop:=rect.top;
 FrmRight:=rect.right;
 FrmBottom:=rect.bottom;
end;


procedure Tnhide.FormCreate(Sender: TObject);
begin
 FormHandle:=nhide.Handle;
end;

procedure Tnhide.FormPaint(Sender: TObject);
begin
 GetRectArea;
end;

procedure Tnhide.Button2Click(Sender: TObject);
begin
 Timer1.Enabled:=False;
 form1.Show;
 nhide.Hide;
end;

procedure Tnhide.Button1Click(Sender: TObject);
begin
 Timer1.Enabled:=True;
end;

procedure Tnhide.Timer1Timer(Sender: TObject);
var
 P:TPoint;
begin
 GetRectArea;
 GetCursorPos(P);
 JudgePointPosition(P);
 form1.Label4.Refresh;
 label2.Caption:=form1.Label4.Caption;
 label4.Caption:=inttostr(form1.mm)+'分'+inttostr(form1.ss)+'秒';
end;

procedure Tnhide.BitBtn1Click(Sender: TObject);
begin
  form1.Label4.Refresh;
  label2.Caption:=form1.Label4.Caption;
  label4.Caption:=inttostr(form1.mm)+'分'+inttostr(form1.ss)+'秒';
end;

end.