RSS订阅 | 匿名投稿
您的位置:网站首页 > 程序

Delphi XE 新功能试用:多种皮肤样式静、动态设置方法

静态方式:1、新建VCLFormsApplication;2、打开菜单Project-Application-Appearance;3、在CustomStyles中可选择所有默认带的皮肤样式;4、设置Defaultstyle后,启动软件后便以默认的样式显示界面。动态方式:1、完…
类别:程序 标签:皮肤 作者:admin 日期:2014-04-02 15.49.05

delphi 实现关闭指定进程,自身防杀

偶然翻到很久以前用DELPHI写的一个小程序,实现功能是在后台默默关闭符合条件的进程,并隐藏自身。编写目的是为了防止办公电脑运行游戏。实现原理是:1、程序运行后将自身以不同的名称一式三份存到系统各目录中,将其…
类别:程序 标签: 作者:admin 日期:2014-03-08 10.19.45

DELPHI中自适应窗体的实现

我们知道,屏幕分辨率的设置影响着表单布局,假设你的机器上屏幕分辨率是800*600,而最终要分发应用的机器分辨率为640*480,或1024*768,这样你原先设计的表单在新机器上势必会走样。这时你一定希望表单能自己适应不…
类别:程序 标签: 作者:admin 日期:2014-01-24 22.07.46

delphi 单击按钮左键弹起菜单

方法1procedureTForm2.Button1Click(Sender:TObject);varPt:TPoint;beginGetCursorPos(Pt);PopupMenu1.Popup(Pt.X,Pt.Y);end;<pstyle="box-sizing:border-box;color:#4b4b4b;font-family:Verdana,Arial,Helvetica,sa…
类别:程序 标签: 作者:admin 日期:2014-01-22 22.42.27

delphi 控制滚动条

DELPHI的发送消息functionTCon****ol.Per****(Msg:Cardinal;&nb...
类别:程序 标签: 作者:admin 日期:2014-01-22 22.37.08

delphi 判断是否出现滚动条

if(GetWindowlong(Stringgrid1.Handle,GWL_STYLE)andWS_VSCROLL)<spanstyle="color:#333333;font-family:'HiraginoSansGBW3','HiraginoSansGB',Arial,Helvetica,sims...
类别:程序 标签: 作者:admin 日期:2014-01-22 22.35.52

delphi 单击最小化按钮隐藏单击托盘显示

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls;typeTForm1=class(TForm)TrayIcon1:TTrayIcon;procedureTrayIcon1Click(Send...
类别:程序 标签: 作者:admin 日期:2014-01-22 22.25.24

delphi 简单的MDI示范程序

最为一个巩固之前有关窗体和对象的有关知识,下面就建立一个简单的MDI示范程序,这个程序的功能是打开和保存图形文件(包括位图、图标等),为了完成这个任务,我们有一个大概的计划,计划内容如下:(1)建立主窗体…
类别:程序 标签: 作者:admin 日期:2014-01-13 11.29.40

Delphi打开外部程序或文件

WinAPI:ShellExecute-打开外部程序或文件ShellExecute(hWnd:HWND;{指定父窗口句柄}Operation:PChar;{指定动作,譬如:open、print}FileName:PChar;{指定要打开的文件或程序}Parameters:PChar;{给要打开的程序指定参数;…
类别:程序 标签: 作者:admin 日期:2014-01-13 11.27.06

delphi 主程序装载脚本

主程序装载脚本procedureTForm1.FormCreate(Sender:TObject);beginfsScript1.Clear;fsScript1.Parent:=fsGlobalUnit;fsScript1.AddComponent(Form1);fsScript1.Lines.LoadFromFile('1.txt');fsScript1.Run;end;1.txt…
类别:程序 标签: 作者:admin 日期:2013-12-04 23.39.37

delphi 用UpdateResource修改EXE文件图标(已修正)

//请自行添加到Type处PICONDIRENTRY=^ICONDIRENTRY;ICONDIRENTRY=packedrecordbWidth:Byte;bHeight:Byte;bColorCount:Byte;bReserved:Byte;wPlanes:Word;wBitCount:Word;dwBytesInRes:DWORD;dwImageOffset:DWORD;end…
类别:程序 标签: 作者:admin 日期:2013-12-04 23.33.11

Delphi的程序单元

ObjectPassal的程序结构很特殊,与其它语言如C++,ObjectWindows等结构都不同。一个Delphi程序由多个称为单元的源代码模块组成。使用单元可以把一个大型程序分成多个逻辑相关的模块,并用来创建在不同程序中使用的程…
类别:程序 标签: 作者:admin 日期:2013-11-26 13.18.31

delphi XE5 程序中标识win max android ios程序代码分别实现

procedureTForm1.FormCreate(Sender:TObject);begin{$IFDEFMSWINDOWS}StyleBook:=StyleBookWin;{$ENDIF}{$IFDEFMACOS}StyleBook:=StyleBookMac;{$ENDIF}{$IFDEFAndroid}StyleBook:=StyleBookAndroid;{$ENDIF}{$IFDEF…
类别:程序 标签: 作者:admin 日期:2013-11-25 20.33.05

delphi中Message消息的使用方法

实例1unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;constWM_ME=WM_USER+100;//自定义消息;typeTForm1=class(TForm)Button1:TButton;procedureBut…
类别:程序 标签: 作者:admin 日期:2013-11-22 19.58.18

Delphi中Interface接口的使用方法

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls;type//定义接口如果接口独立成一个文件,则在应用程序中和实现程序中都要引用该接口文件;ICar=inte…
类别:程序 标签: 作者:admin 日期:2013-11-22 19.54.36

Delphi:窗体的扩展样式GWL_EXSTYLE用于SetWindowLong

SetWindowLong(Handle,GWL_EXSTYLE,GetWindowLong(Handle,GWL_EXSTYLE)orWS_EX_TRANSPARENTor<spanstyle="font-family:Verdana,'LucidaGrande',Arial,...
类别:程序 标签: 作者:admin 日期:2013-11-22 19.52.06

delphi 根据字符串找到函数并执行

关键字:MethodAddress:取得方法的地址,这个方法需要是published的。unitUnit1;interface...
类别:程序 标签: 作者:admin 日期:2013-11-22 19.50.41

Delphi实现软件中登录用户的操作权限

数据库结构:包括两张表BaseData和UserRightData,BaseData中是一张基本表,里面不区分用户,UserRightData是用户权限表,结构和BaseData一样,只是多了用户字段,增加用户时,就是从BaseData表中复制数据到UserRigh…
类别:程序 标签: 作者:admin 日期:2013-11-22 19.44.58

delphi 取PE文件的引入表和导出表

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,StdCtrls,ComCtrls;type//导入表元素结构TImageImportDiscriptor=packedrecordOriginalFirstThunk:DWORD;Data…
类别:程序 标签: 作者:admin 日期:2013-11-22 19.41.44

delphi 窗体Form的FormStyle属性设置为fsStayOnTop时属性设置不起作用问题探讨。

procedureCreateParams(varParams:TCreateParams);override;procedureMainForm.Createparams(varParams:TCreateParams);begininherited;WithParamsdobeginWndParent:=Application.MainForm.Handle;Params.ExStyle:=W…
类别:程序 标签: 作者:admin 日期:2013-11-22 19.39.58