Delphi程序设计电子教案第4章 菜单工具栏和状态栏

项目文件的扩展名是.dpr
可以选择主菜单下的【Project】|【View Source】命令把项目源文件调入代码编辑器。
如下用程序示例的项目文件：
program Project1; uses
Forms, Unit1 in 'Unit1.pas' {Form1}; {$R *.res} begin Application.Initialize; Application.CreateForm(TForm1, Form1); Application.Run; end.
var Form1: TForm1;
implementation {$R *.dfm} end.
从上述源代码清单中可以看出，窗体对象 是从TForm继承下来的。
下面这一行非常重要：
{$R*.dfm}
Pascal语言中的$R指令用于加载一个外部 资源文件。*.dfm文件中包含在窗体设计器中 创建的表单的二进制代码。其中的“*” 表示 与当前单元文件同名的文件。
Delphi作为一种可视化的编程环境，经 历了7代产品的发展历程: ◆ Borland公司在1995年推出了基于 Windows平台的Delphi 1。 ◆ Delphi 2新增加的主要功能是对32位编 程的支持。还增加了如数据模块等多种高 效的数据重用功能。
◆Delphi 3对其组件库进行增强 ,完全支持 ActiveX组件及其创建 。
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;
type TForm1 = class(TForm) private { Private declarations } public { Public declarations }中可视化组件进行操作时 Delphi IDE自动生成Object Pascal源代码。 当用【File】|【New】|【Application】菜单 命令创建一个新的项目时，将看到屏幕上出 现一个空白的窗体设计器，同时，代码编辑 器中会自动出现一些代码，如下所示：

1.2 Delphi7 IDE
1.2.1 认识集成开发环境
Delphi 7的IDE主要包括7个部分：主窗口、 组件面板、工具栏、窗体设计器、代码编辑 器、对象观察器和代码浏览器。
图 1-1 Delphi 7 的 IDE
1.主窗口 主要包括：菜单栏、工具栏、标题栏和组件 面板
图1-2 Delphi 7的主窗图口
var Form1: TForm1;
implementation {$R *.dfm} end.
从上述源代码清单中可以看出，窗体对象 是从TForm继承下来的。
下面这一行非常重要：
{$R*.dfm}
Pascal语言中的$R指令用于加载一个外部 资源文件。*.dfm文件中包含在窗体设计器中 创建的表单的二进制代码。其中的“*” 表示 与当前单元文件同名的文件。
关系运算符关系符操作操作数类型结果类型等于简单类型字符串或可变类型类类引用指针集合类型boolean不等于简单类型字符串或可变类型类类引用指针集合类型boolean小于简单类型字符串或可变类型boolean大于简单类型字符串或可变类型boolean小于等于简单类型字符串或可变类型boolean大于等于简单类型字符串或可变类型boolean574
//单击放大按钮，窗口将放大
begin
form1.Height:=form1.Height+10; //窗口高度10 form1.Width:=form1.Width+10; //窗口宽度10
end;
procedure TForm1.Button2Click(Sender:
TObject); //单击缩小按钮，窗口将缩小
另一种办法是通过【Help】|【Windows SDK】打开帮助文件Win32.hlp，在【索引】 选项卡中查找。

WS_VISIBLE|CBRS_TOP) ||!m_wndToolBar.LoadToolBar(IDR_TESTBAR))
IDR_TESTBAR
//引入资源
{
TRACE0("Failed to create toolbar\n");
return -1; // fail to create
}
3 对工具条进行操作 创建完成工具条后，可调用工具条类中的成员函
4.1菜单
（3）“新建符号”（New Symbol）对话框。
在“名称”（Name）框中输入一个新的标识符 ID_NEW_MENUITEM。在“值”（Value）框中， 输入该ID的值，系统要求用户定义的ID值应大于 15(0X000F)而小于61440(0XF000)。
4.1菜单
（4）在CMainFrame::OnCreate函数中添加下列代码，该函数在框架窗口创建时自 动调用。
lpszNewItem表示新菜单项的内容，pBmp用于菜单项的位图 指针，nPosition表示新菜单项要插入的菜单项位置。nFlags 表示要增加的新菜单项的状态信息，它的值影响其他参数的 含义，如表4.3所示。
表4.3 nFlags的值及其对其他参数的影响
4.1菜单
需要注意的是： ● 当nFlags为MF_BYPOSITION时，nPosition表示
{ int bShow = m_wndTestBar.IsWindowVisible();
UINT nIDNewItem = 0, LPCTSTR lpszNewItem = NULL );
BOOL InsertMenu( UINT nPosition, UINT nFlags,
UINT nIDNewItem, const CBitmap* pBmp ); 其中，nIDNewItem表示新菜单项的资源ID标识符，

VC++应用程序编程
1、设置标记（bool） m_enable m_checkr m_checke
CTempView::CTempView() { // TODO: add construction code here m_checke=false; m_checkr=false; m_enable=false; }
【例4.2】为例4.1中增加的菜单项添加消息处理函数。
void CLi4_1View::OnRectangle() { // TODO: Add your command handler code here CClientDC dc(this); dc.Rectangle(10,10,200,100); } void CLi4_1View::OnEllipse() { // TODO: Add your command handler code here CClientDC dc(this); dc.Ellipse(250,100,450,250); }
选中该菜单项并按Ins键，再双击该空白菜 单项进行编辑。
VC++应用程序编程
2.属性对话框的设置 用于输入菜单项的标识符(ID)、标题(Caption)和菜 单项在状态栏上显示的提示(Prompt)信息等。
菜单项的标 识符(ID)
菜单项在状态栏上 显示的提示信息
标题
VC++应用程序编程
VC++应用程序编程
VC++应用程序编程
基本菜单操作
2 1
200
201
202
203
访问菜单项：ID或位置索引 访问子菜单：仅索引号访问
0 0 1 2 3