unit UntOpenMenu; //download by http://wwww.NewXing.com interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Menus,registry; type TFrmMain = class(TForm) MainMenu1: TMainMenu; F1: TMenuItem; open: TMenuItem; Recent

https://blog.csdn.net/zisongjia/article/details/69398143 正好要用,做个记录.Mark下. 使用了第一种 uses shellapi procedure TForm1.Button2Click(Sender: TObject); begin ShellExecut(Application.Handle, nil, 'http://www.sharejs.com', nil, nil, SW_SHOWNORMAL); end; Delphi打

Delphi语言,无论Delphi7.Delphi2007或者Delphi XE2或3,无需安装其它附加的部件,就可以实现DBF文件的打开及相关操作,网络上很多要用到什么ADO引擎的,其实未必,只有安装的Delphi有BDE即可. 实例操作为例: 1.新添一个Tform,在上面添加Table.Datasource和Datagrid等组件,见下图: 2.设置Table1的DatabaseName属性为dBase files,Datasource1的DataSet属性为Table1,DataGrid

因为自己一直用Editplus作为文本打开工具,新的电脑将压缩文件复制了过来,但是没有右键打开了. 第一打开注册表 在命令框中输入regedit 第二在注册表中输入选项 如下图所示在下拉菜单中新建Editplus项,新建Command 在数值中输入程序的绝对地址,后加入%1 然后鼠标单击右键  就可以看到自己加入的程序了.

---恢复内容开始--- 1．首先,确定动态菜单的数据来源,即要确定动态菜单标题是来自Windows的系统注册表,还是来自一个数据库,或者是来自一个子目录,主要由程序的功能而定.这里假设主窗口名为MainForm,上面已有主菜单,其动态菜单的数据源是一个String(字符串)类型的变量,名称为SubMenuItemSource. 2．确定生成的动态菜单的功能,即定义动态菜单的OnClick()事件,例如,动态菜单标题来自一个磁盘文件名时,那么程序在响应OnClick()事件时,可能的操作是要打开

在程序运行中动态创建菜单,主要使用TMeunItem类,所有菜单的条目都是TMenuItem的一个实例. 打开Delphi7集成开发环境,在默认新建工程里,放置一个Button1按钮和MainMenu1菜单项,设置Button1的Caption属性为添加主菜单. 在Button1的Object Inspector选项卡设置Button1的OnClick响应事件,代码如下: procedure TForm1.Button1Click(Sender: TObject); var files,edit

-- 1将菜单项移到菜单栏的最右边 在一些应用程序中,常把一些特殊的菜单项放在菜单栏的最右边(如WPS2000 中的"定制界面"菜单,一些应用程序的帮助菜单),这些菜单项放在菜单栏 (menu bar)的右边比较好.Delphi中虽然没有直接提供(呵呵,也许是我没找 到)把菜单放在菜单栏右边的函数,但是Delphi的Windows单元封装了可以实现这 种效果的Windows API函数(ModifyMenu.GetMenuItemInfo).因此,我们在 Delphi中可以直接使这些函

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure Button1Click(Sender:

MTKLogger在 拨号界面用*#446633#(不同手机可能设置不一样) 向左滑动到Log and Debugging下面有个MTKLogger,点进去 点击右上角进入设置,打开MobileLog,高级设置里面启用Tag Log

1.动态生成菜单项 varFirstItem: TMenuItem;SecondItem: TMenuItem; begin FirstItem := TMenuItem.Create(Self); FirstItem.Caption := ‘FirstName’; PopupMenu1.Items.Add(FirstItem); //添加一级分类 SecondItem := TMenuItem.Create(Self); SecondItem.Caption := ‘SecondName’;

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls; type TMainForm = class(TForm) MainMenu1: TMainMenu; Button1: TButton; N0000000001: TMenuItem; RichEdit1: TRichEd

1．TOpenDialog组件的典型用法 “打开”对话框是用TOpenDialog组件实现的,TOpenDialog组件是非可视组件. Filter属性用于设置文件过滤器,让对话框只列出特定类型的文件.在设计时可以单击Filter属性旁的省略号“.”按钮,打开“Filter.Editor”对话框,在“Filter.Name”栏键入关于过滤器的简短说明,在“Filter”栏键入通配符,在设计期,把“打开”对话框组件加到窗体上,看到的是TOpenDialog组件的图标,只有调用对话框的Execute

unit dy219; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private procedure sysmenu(var msg: twmmenuselect);message wm_syscommand;

第一种:ViewController继承WindowController public abstract class MyWindowController : WindowController { public MyWindowController() { InitializeComponent(); } protected override void OnActivated() { base.OnActivated(); DevExpress.ExpressApp.SystemModule.S

  Androidapi.JNI.JavaTypes,    Androidapi.JNI.GraphicsContentViewText,   Androidapi.JNI.Location,   Androidapi.JNIBridge,   Androidapi.JNI.Os,   Androidapi.Helpers,   Androidapi.JNI.Provider; ............................. procedure TForm2.Button6Clic

“工具”中的“选项”后,进入选项界面,在“常规与保存”选项卡中把“最近文档管理列出文件”前面的勾取消或将后面的数字选为0.

{ TFileStream create mode } fmCreate = $FF00; { Create a file with the given name. If a file with the given name exists, open the file in write mode. } fmExclusive = $; { when used with FileCreate, atomically creates the file only if it doesn't exist

program Day4; {$APPTYPE CONSOLE} uses SysUtils, Util in 'Util.pas'; type TPerson = packed record ID : integer; case IsFullJob : Boolean of true: ( Year : Cardinal; ); false:( Hour : word; ); end; var s : string; ss : ShortString; p : TPerson; begin W

带历史信息的菜单 实例说明 在有些软件中,菜单栏中可以记录已经打开过的文件信息,使用户操作简单.快捷.当用户要打开已打开过的文件时,不需要重复查找,只需选择菜单中打开过的文件,即可实现打开该文件的操作.运行本例,效果如图1所示. 图1  带历史信息的菜单 思路与技术 本例使用的是动态插入菜单的技术,利用菜单的动态插入技术,可以完成在菜单中记录打开过文档的功能,即当打开一个文件后,将这个文件的完整路径插入到菜单的相应位置.主要用到了TMainMenu组件的Insert()方法.在菜单的OnChan

问题情况:每次在delphi中打开了N个单元的窗口,关闭delphi后,第二天还得一个一个打开单元窗口.问题原因:这是因为delphi的记忆功能未打开.问题处理:Tools->Options...->Environment Options->Autosave options->Project desktop 打上对号.

配置Delphi工具菜单 Delphi工具菜单是可配置的.缺省时,Delphi Tools工具菜单的菜单项为[Database Desktop].[Image Editor].[Package Collection Editor].[XML Mapper]菜单项. 用户可将自己的工具增加到[Tools]菜单中,如增加其他常用Delphi工具或常用程序到[Tools]菜单中.还可以改变[Tools]菜单中菜单项的排列次序,甚至删除其中的菜单项. 使用配置工具对话框(Using the Config