scrsave.pas

轻轻松松背单词软件源码

unit ScrSave;

interface

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

type
  TfrmSave = class(TForm)
    Shape: TShape;
    procedure FormShow(Sender: TObject);
    procedure FormClick(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ShapeMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormPaint(Sender: TObject);
    procedure ShapeMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    X, Y: Integer;
  public
    { Public declarations }
  end;

var
  frmSave: TfrmSave;

implementation

uses
  TopEdit;
{$R *.dfm}

procedure TfrmSave.FormShow(Sender: TObject);
begin
  frmSave.DoubleBuffered := True;
  frmShow := TfrmShow.Create(Application);
  frmShow.Parent := Self;
  frmShow.Panel1.BevelOuter := bvNone;
  frmShow.Show;
  frmShow.Left := trunc((Screen.Width - frmShow.Width)/2);
  frmShow.Top := trunc((Screen.Height - frmShow.Height)/2);
  Shape.Brush.Color := frmShow.HidePanel.Color;
  ShowCursor(False);
  X := Mouse.CursorPos.X;
  Y := Mouse.CursorPos.Y;
end;

procedure TfrmSave.FormClick(Sender: TObject);
begin
  Close;
end;

procedure TfrmSave.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Close;
end;

procedure TfrmSave.ShapeMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Close;
end;

procedure TfrmSave.FormPaint(Sender: TObject);
begin
  if not (frmShow = nil) then
    frmShow.Left := trunc((Screen.Width - frmShow.Width)/2);
end;

procedure TfrmSave.ShapeMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if (X-frmSave.X)*(X-frmSave.X) + (Y-frmSave.Y)*(Y-frmSave.Y) >=16 then
    Close;
end;

end.