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

delphi 完全自定义窗体风格的实现

最小化到任务栏postmessage(Self.Handle,WM_SYSCOMMAND,SC_MINIMIZE,0);最大化或还原procedureTf_MainForm.RzToolButton1Click(Sender:TObject);varabd:TAppBarData;begininherited;ifWindowState=wsnormalthenbegin…
类别:程序 标签: 作者:admin 日期:2013-01-24 13.15.36

delphi 同时激活两个窗体

SendMessage(self.Handle,WM_NCACTIVATE,WA_ACTIVE,0);
类别:程序 标签: 作者:admin 日期:2013-01-22 12.50.08

delphi Form生成时的事件次序

问题:我做了一个MDIFORM,当MDIForm出现以後,如果判断出某些资料未设定,要再出现一个Form2.ShowModal设定资料的对话盒,应该写在那儿呢?我试过的OnActivate,OnShow,但MDIForm皆未出现就去执行这部份程式,就出现…
类别:程序 标签: 作者:admin 日期:2013-01-20 19.36.46

delphi里如何限制Form的大小

使用过DELPHI的朋友都会注意到DELPHI本身最上面的窗口,当它极大时只占屏幕的一小部分,它是如何实现的呢,请看下面的说明:1)在FORM私有声明部分加上如下一行:procedureWMGetMinMaxInfo(varMessage:TWMGetMinMaxIn…
类别:程序 标签: 作者:admin 日期:2013-01-20 19.36.17

如何为Delphi程序添加事件和事件处理器

Delphi是一种功能很强的可视化程序开发工具。我们在使用Delphi开发WINDOWS应用程序的过程中,虽然Delphi为每个可视化组件都提供了很多属性(Property)和事件(Event),但在实际应用中可能会碰到一些自己需要的特殊…
类别:程序 标签: 作者:admin 日期:2013-01-20 11.04.50

delphi 对话框初始地址InitialDir

我的电脑:SaveDialog1.InitialDir:='::{20D04FE0-3AEA-1069-A2D8-08002B30309D}';//MyComputer{20D04FE0-3AEA-1069-A2D8-08002B30309D}//NetworkNeighborhood{208D2C60-3AEA-1069-A2D7-08002B30309D}//Recycled{645…
类别:程序 标签: 作者:admin 日期:2013-01-20 10.42.30

delphi 软件welcome窗口代码

programdxG10000;usesForms,mainin'main.pas'{fmMain},splashin'splash.pas'{fmSplash},dxGridMenusin'../DemoUtils/dxGridMenus.pas';{$R*.RES}beginfmSplash:=TfmSplash.Create(nil);//欢迎窗口tryfmSplash.Show;&…
类别:程序 标签: 作者:admin 日期:2013-01-20 10.23.08

delphi 主窗体最小化时不显示在任务栏

主窗体添加以下过程procedureTMainForm.WMSysCommand(varMsg:TWMSysCommand);beginifMsg.CmdType=SC_MINIMIZEthenbeginShowWindow(Handle,SW_HIDE);endelseinherited;end;
类别:程序 标签: 作者:admin 日期:2013-01-20 10.14.57

delphi 执行一个外部程序,当外部程序结束后言主程序立即响应

delphi执行一个外部程序,当外部程序结束后言主程序立即响应我们经常能看到360安全卫士进行windows系统升级时,执行windows升级程序,当升级程序执行完成后,360马上弹出提示框。这样的程序是如何做到的呢?下述代码…
类别:程序 标签: 作者:admin 日期:2013-01-09 13.52.04

Delphi 取最前窗口标题(不重复)

Delphi取最前窗口标题(不重复)memo1.Align:=alClient;procedureTForm1.Timer1Timer(Sender:TObject);varp:pchar;itemp:integer;beginp:=allocmem(255);itemp:=GetForegroundWindow;GetWindowText(itemp,p,255);if(…
类别:程序 标签: 作者:admin 日期:2013-01-09 13.51.29

delphi 如何获取窗口的图标

如何获取窗口的图标,这里给出一个简单的方法:functionMyGetWindowIcon(H:Hwnd):Hicon;beginresult:=GetClassLong(H,GCL_HICON);//第一种方法取图标ifico=0thenresult:=sendmessage(h,wm_geticon,icon_big,0);//第二种…
类别:程序 标签: 作者:admin 日期:2013-01-09 13.49.40

delphi 将被其他窗体遮住的窗体弹到最前面

unitSysFocus;interfaceusesWindows,Messages,SysUtils,Classes,Graphics,Controls,Forms,Dialogs;typeTSysFocus=class(TComponent)publicfunctionGetSysFocus:integer;functionSetSysFocus(hwnd:integer):integer;e…
类别:程序 标签: 作者:admin 日期:2013-01-09 13.43.39

delphi 实现窗口记住关闭时的坐标位置

varini:TIniFile;procedureT****1.****Create(Sender:T****);beginini:=TIniFile.Create(Ex****actFilePath(Application.ExeName)+'Config.ini');{ini对象建立需要文件路径参数,如果缺少路径会默认Windows目…
类别:程序 标签: 作者:admin 日期:2013-01-08 19.10.30

windows7下使用delphi7的方法

这几天仍旧在win7下,不出意外的话,应该以后不会换系统了,除非学校又发放垃圾软件…在xp的时候使用联机测试兼容性会提示delphi7有已知兼容性问题,不过安装的时候右键使用管理员身份,并没有提示兼容性的问题,但是在…
类别:程序 标签: 作者:admin 日期:2013-01-06 10.25.54

delphi 返回程序执行参数的例子

Delphi传入应用程式的命令列参数,请参考以下的说明:用ParamCount函数取得命令参数的个数:呼叫ParamS****(0),传回执行档的档名(含路径)呼叫ParamS****(n),传回第n个参数的内容procedureT****1.****Create(Sender:T**…
类别:程序 标签: 作者:admin 日期:2013-01-06 10.12.09

delphi 三个消息函数的威力

InputBox,InputQuery和ShowMessage函数的应用:usesdialogs;vars,s1:string;b:boolean;begins:=trim(Inputbox('NewPassword','Password','masterkey'));b:=s<>'';s1:=s;ifbthenb:=InputQuery('ConfirmPassword','Pass…
类别:程序 标签: 作者:admin 日期:2013-01-06 10.11.20

delphi 屏幕渐变效果的源代码

说明:界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。1.新建一个表单,假设其Width为500,设置一个按钮Button1,按此按钮将把表单置为由左向右由黄变白的渐变效果。2.Button1按钮的代码如下:procedure…
类别:程序 标签: 作者:admin 日期:2013-01-06 10.00.07

delphi 在窗口作图的源代码

unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,ComCtrls,Buttons,StdCtrls,ExtCtrls;typeTForm1=class(TForm)Panel1:TPanel;Label1:TLabel;Label2:TLabel;Ed…
类别:程序 标签: 作者:admin 日期:2013-01-06 09.59.40

Delphi + Word = 数据库 + 公文处理

delphi擅长做数据库类的mis开发,但对于oa就有点力不从心了。不过随着microsoft的com技术逐渐成熟,现在普通windows应用已经可以和office97无缝结合了,尤其是在delphi5中提供了一组servers组件,更是简化了程序开发…
类别:程序 标签:Word 作者:admin 日期:2013-01-06 09.44.39

delphi 通过指点操作获得窗口句柄

赵砥:我用VB的sendkeys编写了一个向其他程序模拟键盘发送字符的工具,因VB编的程序体积太大,我想用Delphi重写,使用SendMessage等API函数,但我想找到一个用鼠标点一下其他进程的窗口便可获得该窗口的线程id和窗口句…
类别:程序 标签: 作者:admin 日期:2013-01-06 09.38.45