![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Form
iseekcode
Delphi票友
展开
-
Disable Close button on form caption
procedure TForm1.Button1Click(Sender: TObject);var Flag: UINT; AppSysMenu: THandle;begin AppSysMenu:=GetSystemMenu(Handle,False); Flag:=MF_GRAYED; EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND原创 2009-10-10 21:51:00 · 643 阅读 · 0 评论 -
making mdi child forms MODAL
making mdi child forms MODAL --------------------------------------------------------------------------------You can not show a MDIChild form as modal. their formStyle should be setto fsNormalI have转载 2009-12-06 20:25:00 · 613 阅读 · 0 评论 -
MDI without scrollbar
Etienne, this has no effect since the scrollbars do not belong to the MDI frame window itself, they belong to the client window, which is not a Delphi form. Which means one has to attack the problem转载 2010-01-27 10:28:00 · 611 阅读 · 0 评论 -
Remove MDI Child Title Bar
Remove MDI Child Title BarThe BorderStyle property of a Delphi form lets you specify the appearance and behavior of the form border. If you need to hide the title bar of a Multiple Document Inter转载 2009-11-17 16:40:00 · 645 阅读 · 0 评论 -
How to make a child form listen to broadcasted messages
How to make a child form listen to broadcasted messagesIn the sender add a procedure such as: procedure TForm1.Button2Click(Sender: TObject);var Receiver: THandle; buffer: array[0..1023] of char转载 2009-11-17 12:37:00 · 552 阅读 · 0 评论 -
Avoid New MDI Child Resizing Animation (and Delay) in Delphi MDI Applications
Avoid New MDI Child Resizing Animation (and Delay) in Delphi MDI ApplicationsLock (Prevent) Window Updating When Creating New MDI Child FormsBy Zarko Gajic If you are creating MDI applications u转载 2009-11-17 16:44:00 · 1377 阅读 · 1 评论 -
用dll方式封装mdi子窗体
用DLL方式封装MDI子窗体是一种常用的软件研发技术,他的长处:研发人员能够负责某一个模块的编写包括(界面+逻辑),能够互不干扰,模块研发完成后,主程式统一调用。 易于程式升级,当程式升级时,不用编译主exe文档,更新某个DLL就能够升级。 能够根据客户不同的需求、价钱给他们不同的模块。(奸商都愿意用这招)最近用到这个技术,因为小弟没有用过,在网上google了一下,对他有了了解,我用的转载 2009-11-03 16:55:00 · 1325 阅读 · 0 评论 -
捕捉窗体的最小化、最大化、还原消息
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND; //在Public部分声明procedure TForm1.WMSysCommand; begin if (Msg.CmdType = SC_MINIMIZE) then begin //最小化消息 end else if (Msg.CmdType =转载 2009-10-28 22:42:00 · 2700 阅读 · 0 评论 -
如何控制其他程序窗体上的窗口控件
用我的方法来控制其他程序窗体上的窗口控件,必须先了解什么是回调函数。我的理解是这样的: 回调函数写出来不是自己的程序去调用的,反而是让其他的东西去调用,比如windows操作系统,比如其他的程序等等之类的。但是什么时候被调用却不知道了。回调函数一般是按照调用者的要求定义好参数和返回值的类型,你向调用者提供你的回调函数的入口地址,然后调用者有什么事件发生的时候就可以随时按照你提供的地址调用转载 2009-10-28 22:12:00 · 1066 阅读 · 0 评论 -
用Delphi画圆角Panel的方法
用Delphi画圆角Panel的方法procedure TForm1.Button5Click(Sender: TObject);var fhr :Thandle;beginfhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4);setwindowrgn(panel1.handle,fhr,true);e转载 2009-10-17 11:31:00 · 5221 阅读 · 0 评论 -
Delphi中绘制圆角矩形的窗体
制作圆角矩形的窗体:01.procedure TPortForm.FormCreate(Sender: Tobject);02.var hr :thandle;03.begin04.hr:=createroundrectrgn(0,0,width,height,20,20);05.setwindowrgn(handle,hr,true); 06.end;如果不要窗体外框,则使用:转载 2009-10-16 19:23:00 · 6669 阅读 · 0 评论 -
通过指点操作获得窗口句柄
通过指点操作获得窗口句柄赵砥: 我用VB的sendkeys编写了一个向其他程序模拟键盘发送字符的工具,因VB编的程序体积太大, 我想用Delphi重写,使用SendMessage等API函数,但我想找到一个用鼠标点一下其他进程的 窗口便可获得该窗口的线程id和窗口句柄的方法,请指点一下。(使用findwindow获得窗口 句柄要输入窗口标题,不好。) 回答:转载 2009-12-16 16:28:00 · 765 阅读 · 0 评论