mainform.cpp

C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分 程序设置

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

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Form1OnCreate(TObject *Sender)
{
  //设置系统菜单
  AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
  AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"最顶层显示(&A)");
}
void __fastcall TForm1::SystemMenuCommand(TWMMenuSelect &Msg)
{
    TForm::Dispatch(&Msg);
    if(Msg.IDItem==200)
    {
      if(Form1->FormStyle==fsNormal)
      {//将窗体设置为总在最顶层显示
       Form1->FormStyle=fsStayOnTop;
       //重新设置系统菜单
       AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
       AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"正常显示(&A)");
     }
      else
      {//将窗体设置为正常显示模式
       Form1->FormStyle=fsNormal;
       //重新设置系统菜单
       AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
       AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"最顶层显示(&A)");
      }
    }
}