UnitAbout.pas
上传用户:zexin0769
上传日期:2010-01-19
资源大小:443k
文件大小:1k
源码类别:

百货/超市行业

开发平台:

Delphi

  1. unit UnitAbout;
  2. interface
  3. uses
  4.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  5.   Dialogs, ExtCtrls;
  6. type
  7.   TFormAbout = class(TForm)
  8.     Image1: TImage;
  9.     Image2: TImage;
  10.     procedure Image2Click(Sender: TObject);
  11.     procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  12.       Y: Integer);
  13.   private
  14.     { Private declarations }
  15.   public
  16.     { Public declarations }
  17.   end;
  18. var
  19.   FormAbout: TFormAbout;
  20. implementation
  21. {$R *.dfm}
  22. procedure TFormAbout.Image2Click(Sender: TObject);
  23. begin
  24.   Self.Close;
  25. end;
  26. procedure TFormAbout.Image1MouseMove(Sender: TObject; Shift: TShiftState;
  27.   X, Y: Integer);
  28. begin
  29.   if (ssleft in shift) then
  30.   begin
  31.     releasecapture;
  32.     perform(wm_syscommand, $f012, 0);
  33.   end;
  34. end;
  35. end.