cmodel.pas

根据箱号

unit Cmodel;

interface

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

type
  Tmodel = class(TForm)
    middle_left: TPanel;
    M_left: TImage;
    buttom: TPanel;
    bottom_left: TImage;
    bottom_middle: TImage;
    bottom_right: TImage;
    middle: TPanel;
    middle_right: TPanel;
    M_right: TImage;
    top1: TPanel;
    top_left: TPanel;
    t_l_left: TImage;
    t_l_right: TImage;
    sysicon: TImage;
    top_right: TPanel;
    t_r_left: TImage;
    t_r_r: TImage;
    mixicon: TImage;
    maxicon: TImage;
    closeicon: TImage;
    Panel6: TPanel;
    Image3: TImage;
    SystemMenu: TPopupMenu;
    Restore: TMenuItem;
    Move: TMenuItem;
    Size: TMenuItem;
    Min: TMenuItem;
    Max: TMenuItem;
    N_Speater: TMenuItem;
    Close1: TMenuItem;
    Image1: TImage;
    Label2: TLabel;
    procedure sysiconMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure mixiconClick(Sender: TObject);
    procedure maxiconClick(Sender: TObject);
    procedure closeiconClick(Sender: TObject);
    procedure RestoreClick(Sender: TObject);
    procedure MinClick(Sender: TObject);
    procedure MaxClick(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Image1DblClick(Sender: TObject);
 procedure CreateParams(var Params: TCreateParams); override;
  private
    { Private declarations }
  canmove:boolean;
  ox,oy:integer;
  public
    { Public declarations }
  end;

var
  model: Tmodel;

implementation
   uses cdata;
{$R *.dfm}

procedure Tmodel.sysiconMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  SystemMenu.Popup(left+sysicon.Left,top+sysicon.top+sysicon.Width);
  if self.WindowState = wsmaximized then
     begin
       max.Enabled:=false;
       restore.Enabled:=true;
     end
  else
     begin
       max.Enabled:=true;
       restore.Enabled:=false;
     end;
end;

procedure Tmodel.mixiconClick(Sender: TObject);
begin
  if Application.MainForm =self then
     Application.Minimize
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure Tmodel.maxiconClick(Sender: TObject);
begin
  if self.WindowState = wsNormal then
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
  label2.Left:=trunc((image1.Width-label2.Width)/2);
end;

procedure Tmodel.closeiconClick(Sender: TObject);
begin
  DefWindowProc(Handle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

procedure Tmodel.RestoreClick(Sender: TObject);
begin
  if self.WindowState = wsNormal then
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0)
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_restore, 0);
end;

procedure Tmodel.MinClick(Sender: TObject);
begin
  if Application.MainForm =self then
     Application.Minimize
  else
     DefWindowProc(Handle, WM_SYSCOMMAND, SC_MINIMIZE, 0);
end;

procedure Tmodel.MaxClick(Sender: TObject);
begin
  if self.WindowState = wsNormal then
     begin
       DefWindowProc(Handle, WM_SYSCOMMAND, SC_MAXIMIZE, 0);
     end;
end;

procedure Tmodel.Close1Click(Sender: TObject);
begin
  DefWindowProc(Handle, WM_SYSCOMMAND, SC_CLOSE, 0);
end;

procedure Tmodel.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  canmove:=true;
  ox:=x;
  oy:=y;
end;

procedure Tmodel.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  if canmove=true then
     begin
       self.Left:=self.Left+(x-ox);
       self.Top:=self.Top+(y-oy);
     end;
end;

procedure Tmodel.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   canmove:=false;
end;

procedure Tmodel.Image1DblClick(Sender: TObject);
begin
if maxicon.Enabled=true then
  if WindowState=wsNormal then
     WindowState:=wsMaximized
  else
     WindowState:=wsNormal;
    label2.Left:=trunc((image1.Width-label2.Width)/2);
end;

procedure Tmodel.CreateParams(var Params: TCreateParams);
begin
 Inherited CreateParams(Params);
 Params.Style := Params.Style and (not WS_CAPTION) and (not WS_SIZEBOX) ;
 //去掉窗体的标题及调整大小属性
end;
end.