ufrm_wait.pas

来自「完整的进销存系统。 设计文件及完整的源代码。 Delphi6.0」· PAS 代码 · 共 57 行

unit ufrm_Wait;

interface

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

type
  Tfrm_wait = class(TForm)
    Panel1: TPanel;
    procedure FormDeactivate(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_wait: Tfrm_wait;

implementation

{$R *.dfm}

procedure Tfrm_wait.FormDeactivate(Sender: TObject);
begin
  clipcursor(nil);
end;

procedure Tfrm_wait.FormActivate(Sender: TObject);
var
  l_rect:TRect;
  l_p1,l_p2:TPoint;
begin
{  l_p1.X:=panel1.Left;
  l_p1.Y:=panel1.Top;
  l_p2.X:=panel1.left+panel1.width;
  l_p2.Y:=panel1.top+panel1.height;
  windows.ClientToScreen(frm_wait.Handle,l_p1);
  windows.ClientToScreen(frm_wait.Handle,l_p2);
  l_rect.Left:=l_p1.X;
  l_rect.Top:=l_p1.Y;
  l_rect.Right:=l_p2.X-20;
  l_rect.Bottom:=l_p2.Y-30;
  clipcursor(@l_rect);  }
end;

procedure Tfrm_wait.FormShow(Sender: TObject);
begin
  cursor:=crdefault;
end;

end.