interfacemodel.~pas

用于开发税务票据管理的软件

unit InterfaceModel;

interface

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

type
   Tfrm_InterfaceModel = class(TForm)
    Image1: TImage;
    Image4: TImage;
    Image3: TImage;
    Image5: TImage;
    Image8: TImage;
    Image2: TImage;
    Image7: TImage;
    M_Panel1: TPanel;
    Image9: TImage;
    Image10: TImage;
    M_Panel2: TPanel;
    Panel1: TPanel;
    M_ImageButton1: TImageButton;
    M_ImageButton2: TImageButton;
    ImageButton1: TImageButton;
    Image6: TImage;
    CaptionLabel: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure M_ImageButton1Click(Sender: TObject);
    procedure M_ImageButton2Click(Sender: TObject);
    procedure ImageButton1Click(Sender: TObject);
  private
       //GIWith: Integer;
      // GIHeight: Integer;
    //*********处理界面**********
       procedure CreateParams(var Params: TCreateParams); override;
       Procedure MoveForm(Var AM: TWMNCHitTest); Message Wm_nchittest; //声明一自定义事件， 拦截“WM_NCHITTEST”消息
    //***************************

    { Private declarations }
  public
    { Public declarations }
  end;

var
  frm_InterfaceModel: Tfrm_InterfaceModel;

implementation

uses Types;

{$R *.dfm}

procedure Tfrm_InterfaceModel.CreateParams(var Params: TCreateParams);
begin
   Inherited CreateParams(Params);
   //Params.Style := Params.Style xor WS_CAPTION xor WS_POPUP;
   // Params.Style := Params.Style xor WS_POPUP;
end;

procedure Tfrm_InterfaceModel.FormCreate(Sender: TObject);
Var nHr: THandle;  //估计可能是句柄类
begin
   nHr := CreateRoundRectRgn(0, 0, Width, Height, 20, 20); //定义贺角矩形(WinAPI函数)
   SetWindowRgn(Handle, nHr, True);
end;

procedure Tfrm_InterfaceModel.FormResize(Sender: TObject);
Var nHr: THandle;  //估计可能是句柄类
begin
   nHr := CreateRoundRectRgn(0, 0, Width, Height, 20, 20); //定义贺角矩形(WinAPI函数)
   SetWindowRgn(Handle, nHr, True);
end;

procedure Tfrm_InterfaceModel.MoveForm(var AM: TWMNCHitTest);
begin
   Inherited; //继承，窗体可以继续处理以后的事件
   if (AM.Result = HTCLIENT) then
    AM.Result := HTCAPTION;
end;

procedure Tfrm_InterfaceModel.M_ImageButton1Click(Sender: TObject);
begin
   Close;
end;

procedure Tfrm_InterfaceModel.M_ImageButton2Click(Sender: TObject);
begin
   ShowWindow(Handle, SW_RESTORE); //还原窗体
  // Width := GIWith ;
  // Height := GIHeight;
   M_ImageButton2.Visible := False;
   ImageButton1.Visible := True;
end;

procedure Tfrm_InterfaceModel.ImageButton1Click(Sender: TObject);
begin
    ShowWindow(Handle, SW_SHOWMAXIMIZED);
   {GIWith := Width;
    GIHeight := Height;
    Width := Screen.Width;
    Height := Screen.Height;}
    M_ImageButton2.Visible := True;
    ImageButton1.Visible := False;
end;

end.