《delphi教案》PPT课件

第四节菜单（主、下拉）,一、Tmenu对象Tmenu对象是一个非可视对象，C+Bulider由它派生了TmainMenu对象和TPopupMenu对象，TmainMenu（主菜单）和TPopupMenu（弹出菜单）在应用程序设计中是常用的两个元件（对象）。1.Tmenu特性propertyItems:TMenuItem描述菜单的基本组成及性质；propertyImages:TCustomImageList;图标列表。2.Tmenu事件OnChange3.Tmenu方法,二、TmenuItem对象TmenuItem对象是描述菜单中的一个条目而不是整个菜单；在对菜单中的某一个条目操作时要用到该对象的特性、事件与方法。如在选择了菜单的某一项并按回车时应响应TmenuItem对象的OnClick事件；菜单的Caption特性描述了该项菜单的描述。1.TmenuItem特性propertyBitmap:TBitmap;菜单项左边有一个图标；propertyBreak:TMenuBreak在多列显示时的分格线及其形式；其中：typeTMenuBreak=(mbNone,mbBreak,mbBarBreak);propertyCaption:string菜单标题；propertyChecked:boolean在菜单左边显示一个小方框，类似于复选框；propertyCount:integer菜单条目的数目；,propertyItemsintIndex:arrayofTMenuItem某一菜单条；例如：fori:=1toMenuItem1.CountbeginMenuItem1.Itemsi.Enabled:=false;end;propertyMenuIndex:integer;菜单在父菜单的序号；propertyParent:TMenuItem;返回其父菜单；propertyShortCut:TShortCut;设置热键；,注意：定义菜单条目上的快捷键可以在填写caption内容时用procedureAdd(constAItems:arrayofTMenuItem);向菜单中加入一条菜单；procedureClick;virtual;相当于点击了鼠标左键；procedureClear;virtual；从内存中删除本菜组；例如：PopupMenu1.Items.Clear;将PopupMenu1删除procedureDelete(intIndex);删除菜单中的某一条，本方法没有从内存中删除该条目；procedureInsert(Index:Integer;Item:TMenuItem);插入新条目；,三、TPopupMenu对象特性：OnPopup方法：procedurePopup(X,Y:Integer);显示该菜单的位置四、TMainMenu对象特性：propertyAutoMergeboolean是否自动合并菜单方法：procedureMerge(Menu:TMainMenu);合并菜单procedureUnmerge(MenuTMainMenu);移出合并的菜单练习1：做一个弹出式菜单，当在窗口按右键时弹出该菜单（试一试热键、组合键、分格线）。练习2：做一个主菜单，并安装到窗体上。,一、标签1特性：propertyAlignment:TAlignment;控制水平对齐方式；其中enumTAlignmenttaLeftJustify,taRightJustify,taCenter;propertyAutoSizeboolean是否自动调整大小以适应字体；propertyFocusControl:TWinControl指定与Label关联的控制（对象）；propertyLayout:TTextLayout控制垂直对齐方式；其中enumTTextLayouttlTop,tlCenter,tlBottom;propertyTransparent:boolean是否透明propertyWordWrap:boolean当行太长时，是否允许折行显示，此特性在Tedit中常用。propertyFont:TFont字体控制,第五节标签、映象,二、Tfont对象1特性propertyCharsetTFontCharset设置字符集；propertyColorTColor字体颜色（看帮助中的颜色值）；propertyNameAnsiString字体名；propertyHeightint字体高度；propertySizeint字体的点数；propertyStyleTFontStyles字体风格。typeTFontStyle=(fsBold,fsItalic,fsUnderline,fsStrikeOut);TFontStyles=setofTFontStyle;2事件3方法procedureAssign(Source:TPersistent);复制另一个Tfont对象的特性,三、映象映象支持bmpjpeg,jpg,ico,emf,wmf格式的图片文件1特性propertyStretch:boolean是否自动调整图片大小；propertyCenter:boolean是否处于中央位置；propertyCanvas:TCanvas画布；propertyPicture:TPicture背景图片;注意TPicture是一个对象，关于该对象的特性与方法请参考帮助。propertyTransparent:boolean是否透明,例3：设计一个标签一个映象，当鼠标在标签上时出现手指形状并改变字体与颜色，按下鼠标时显示映象；对象映象做同样的操作。改变字体与颜色有三种方法：1在OnMouseMove事件中重新设置字体与颜色；2将一个事先设置好的标签的字体与颜色特性赋值给该标签3在同一个位置显示另一个标签，同时隐藏本标签,上机练习：1设置一个按纽，按它时显示一些信息（提示：可以使用两种以上办法显示信息）A使用ShowMessage()B.使用标签（如何调整注意位置）2设计一个程序，先显示封面，然后按任意键进入主窗口。3假设有两个图片文件，已知它的路径及文件名，在设计期间已经把其