可以不同 csSimple:只有编辑框,没有列表框
5.时钟组件 时钟组件 位于 System 页中, 它能够有规律地触发 OnTimer 事件, 给应用程序发送
信息,是应用程序
设计中最重要的组件之一。 Timer 组件封装了 Windows API 的 Timer 函数集,它包括了 windows API 函数中的 SetTimer 和 KillTimer 函数。 Timer 组件的主要属性表
属性 Enabled Interval
描述 用于表示计时器是否打开 用于设置两个 OnTimer 事件的时间间隔,单 位是 ms。 将间隔设置为 0 相当
于关闭计时器, Interval 的最大允许值时 32767,即 32.767s
6.标准对话框 6.1 OpenDialog 组件和 SaveDialog 组件 OpenDialog 组件 和打开。 OPenDialog 组建的主要属性表 属性 DefaultExt Filter InitialDir Title SaveDialog 组件 描述 用于设置文件打开的缺省扩展名 用于设置允许用户通过该组件打开的文件类型 用于设置文件打开的初始目录 用于设置对话框显示的标题 的属性与上述很相似,这里不再赘述。 位于 Dialog 页,用于提供一个打开对话框,供用户进行选择
6.2 FontDialog 组件和 ColorDialog 组件 FontDialog 组件 位于 Dialog 页,它封装了 Windows 的字符集,用于提供一个
字体对话框,使用户设置文本的字体、字号,但它的 MaxFontSize 属性和 MinFontSize 属性 限制了可以得到的字体范围。 ColorDialog 组件 位于 Dialog 页,用于提供一个标准的颜色选择对话框。用户
可以通过它来选择颜色,选择好的结果将存放于该组件的 Color 属性中。 6.3 PrintDialog 组件和 PrintSetupDialog 组件 PrintDialog 组件 用于向打印机传递打印任务。 PrintSetupDialog 组件 也是一个标准的 windows 打印设置对话框,用来完成打 位于 Dialog 页,它封装了标准 windows 打印机选项对话框,
印设置的功能。 6.4 FindDialog 组件和 ReplaceDialog 组件 FindDialog 组件 位于 Dialog 页。 它是一个标准的文本搜寻对话框, 用于允许用
户在文件中查找一段文字。它的 FindText 属性用来设置所需搜寻的字符串,当单击对话框 中 FindNext 按钮时,就会触发 OnFind 时间,开始进行搜寻任务。 ReplaceDialog 组件 位于 Dialog 页,它包含了 FindDialog 组件的全部功能。在
替换时,它将使用的 ReplaceText 属性中的字符串来替换 FindText 属性中的字符串。当用户 单击对话框中的“替换”时,就会触发 OnReplace 事件,并执行替换任务。
7.对话框函数 7.1ShowMessage()函数 用于在
程序运行过程中显示一个包含一个字符串信息的对话框, 用户只有对这个对 话框进行准确响应以后,才能关闭对话框,进行下一步工作。 语法结构: Showmessage (const Msg: string) // Showmessage ; (’welcome to Changsha university’) ; 7.2 MessageDlg()函数 用于在程序运行过程中显示一个包含一个字符串、 位图和按钮等信息的对话框, 用 户只有对这个对话框进行性准确响应以后,才能关闭对话框,进行过下一步
工作。 语法结构:MessageDlg(const Msg:string;Atype:TMsgDlgType;AButton: TMsgDlgButtons;HelpCtx:longint) :
word 例如: MessageDlg (’Exit now?’,mtConfirmation,[mbYes,mbNO,mbcancel],0) =mrYes then Close; 7.3InputBox()函数 用于在程序运行过程中显示一个包含一个字符串和按钮信息的输入对话框, 用户只 有对这个对话框进行
准确响应后,才能关闭对话框,进行下一步工作。 语法结构:InputBox(const Acaption,Aprompt,ADefault:string):string; 例如:var string; begin str:=InputBox(‘口令输入窗口’,’口令’,’123456’); end; 8.菜单、工具栏和状态栏 8.1 菜单组件
Delphi 提供了两种菜单组件:MainMenu 组件(主菜单组件) 、PopupMenu 组件(弹 出式菜单组件) 。 8.1.1 MainMenu 组件 MainMenu 组件 位于 Standard 页。它封装了菜单条和下拉菜单,用于创建
窗体的主菜单。 在窗体创建主菜单的方法:①将 MainMenu 组件放置在该窗体上。②双击该组 件可以调出菜单编辑器(Men