utemplate.cpp

来自「可实现科研信息管理系统的功能,有项目管理,教师管理,科研项目管理等多项内容」· C++ 代码 · 共 106 行

//----------------------------------------
//        UTemplate.cpp
//                        Coding By:袁军
//                           2004-5-18
//----------------------------------------
//---------------------------------------------------------------------------

//自定义的窗体样式模板          袁军
#include <vcl.h>
#pragma hdrstop

#include "UTemplate.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormTemplate *FormTemplate;
//---------------------------------------------------------------------------
__fastcall TFormTemplate::TFormTemplate(TComponent* Owner)
        : TForm(Owner)
{
        //以下一句是将窗口置于最前面;
        //SetWindowPos(Handle,HWND_TOPMOST,Left,Top,ClientWidth,ClientHeight,SWP_NOSIZE);
        ImageTitle->Left=1;
        ImageTitle->Width=ClientWidth-2;
        ImageIcon->Picture->Icon=Icon;
        SBtnClose->Left=ClientWidth-19;
        SBtnMax->Left=SBtnClose->Left-18;
        SBtnMin->Left=SBtnMax->Left-18;
        SBtnMax->Enabled=false;
        LabelCaption->Caption=Caption;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TFormTemplate::SBtnCloseClick(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------


void __fastcall TFormTemplate::SBtnMinClick(TObject *Sender)
{
        Application->Minimize();        
}
//---------------------------------------------------------------------------

void __fastcall TFormTemplate::ImageTitleMouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
        if(Button == mbLeft)//判断是否按了鼠标左键
        {
                ReleaseCapture();//释放鼠标操作
                SendMessage(Handle, WM_NCLBUTTONDOWN,HTCAPTION,0);
        }
}
//---------------------------------------------------------------------------




void __fastcall TFormTemplate::FormShow(TObject *Sender)
{
        ImageTitle->Left=1;
        ImageTitle->Width=ClientWidth-2;
        SBtnClose->Left=ClientWidth-19;
        SBtnMax->Left=SBtnClose->Left-18;
        SBtnMin->Left=SBtnMax->Left-18;        
}
//---------------------------------------------------------------------------








void __fastcall TFormTemplate::SBtnMaxClick(TObject *Sender)
{
        if(WindowState==wsMaximized)
        {
                WindowState=wsNormal;
                ImageTitle->Left=1;
                ImageTitle->Width=ClientWidth-2;
                SBtnClose->Left=ClientWidth-19;
                SBtnMax->Left=SBtnClose->Left-18;
                SBtnMin->Left=SBtnMax->Left-18;
        }
        else if(WindowState==wsNormal)
        {
                WindowState=wsMaximized;
                Height=Height-28;
                ImageTitle->Left=1;
                ImageTitle->Width=ClientWidth-2;
                SBtnClose->Left=ClientWidth-19;
                SBtnMax->Left=SBtnClose->Left-18;
                SBtnMin->Left=SBtnMax->Left-18;
        }
}
//---------------------------------------------------------------------------