www.pudn.com > 东之源小型超市管理系统1.0版含源码.rar > UnitAbout.pas

unit UnitAbout; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ExtCtrls; 
 
type 
  TFormAbout = class(TForm) 
    Image1: TImage; 
    Image2: TImage; 
    procedure Image2Click(Sender: TObject); 
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X, 
      Y: Integer); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  FormAbout: TFormAbout; 
 
implementation 
 
{$R *.dfm} 
 
procedure TFormAbout.Image2Click(Sender: TObject); 
begin 
  Self.Close; 
end; 
 
procedure TFormAbout.Image1MouseMove(Sender: TObject; Shift: TShiftState; 
  X, Y: Integer); 
begin 
  if (ssleft in shift) then 
  begin 
    releasecapture; 
    perform(wm_syscommand, $f012, 0); 
  end; 
end; 
 
end.