Only applicable when Themes are enabled in applications on Windows XP. Causes the parent to draw its background into the control's background. This is useful for controls that need to show their parent's theme elements, such as aTPanel or TFrame that…

/* 窗口样式参考列表(都是GetWindowLong的GWL_STYLE风格,都是TCreateParams.Sytle的一部分),详细列表如下:https://msdn.microsoft.com/en-us/library/windows/desktop/ms632600(v=vs.85).aspx WS_POPUP - 弹出式窗口(不能与WS_CHILDWINDOW样式同时使用) (THintWindow.CreateParams使用,TCustomForm.CreateParams里的…

各种控件的通知消码和控制消息可由MSDN-> Platform SDK-> User Interface Services->Windows User Interface->Controls 查得. Delphi里的Windows消息(一共227个基本消息) WM_NULL = $; WM_CREATE = $; WM_DESTROY = $; WM_MOVE = $; WM_SIZE = $; WM_ACTIVATE = $; WM_SETFOCUS = $; WM_KILLFO…

Jbpm4.4+hibernate3.5.4+spring3.0.4+struts2.1.8 整合例子(附完整的请假流程例子). 1.jbpm4.4 测试环境搭建 2.Jbpm4.4+hibernate3.5.4+spring3.0.4+struts2.1. 整合环境搭建 3.jbpm4.4 基础知识 4.整合过程中常见问题的解决 5.请假流程例子( s2sh+jbpm ) 6.总结及参考文章 jbpm4.4测试环境搭建 刚接触 jbpm 第一件事就是快速搭建环境,测试 jbpm 所给的例子. …

delphi 三层架构简单例子(经测试成功) 转载 2013年12月19日 09:48:57 1100 所谓三层: (1) 客户端 (2) 服务器端 (3) 数据库 在数据访问时,使得客户端必须通过服务器来访问数据库.提高了系统的安全性. 在Delphi中可以使用Socket或者Dcom来连接他们相互间的通讯.如果使用Scocket在系统使用时必须提供Scocket连接器,而Dcom则不用.客户端和服务器的连接需要Broker来联系. 环境为winxp sp2 + delphi 7 + db7.…

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, IdFTP, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, IdHTTPHeaderInfo, ExtCtrls; type TForm1 = cl…

從前筆者曾經對以下的程式產生過疑惑:{$J+}procedure TForm1.Button1Click(Sender: TObject);const  VarConst: integer = 4;begin  VarConst := 5;  ShowMessage(IntToStr(VarConst));end;const不是常數嗎? 為什麼可以改呢? 在先前的Pascal版本中, 以const VarName: DataType = const value;定義的具型態常數的確是可以改的, …

#define WM_ERASEBKGND                   0x0014 Parameters wParam A handle to the device context. // 设备上下文的句柄 lParam This parameter is not used. Return value Type: LRESULT An application should return nonzero if it erases the background; otherwise, it…

Delphi2010之后的RTTI做了很大休整,现在用起来很爽了哦.甚至可以获取某些类的内部私有单元,然后为其赋值!讲这个RTTI增强的,可以参考网上的多个博客内容,我列举一下:Delphi2010RTTI的增强Delphi的Anymouse方法探秘万一的Rtti系列 我这里的主要目的是挂钩某些内部私有事件,然后增加上一些自己的处理过程,这里我以TMenuItem的私有内部事件FOnChange作为例程.这个私有事件在菜单内部绑定,我们平常状态下,在外部无法更改!但是XE之后这个问题不在存在,使…

程序本来是想实现鼠标单击改变背景颜色.可是,程序运行时,为什么没有任何消息触发,背景颜色就一直不断的改变了?WM_PAINT怎么被触发的 #include <windows.h> #include <stdlib.h> LRESULT CALLBACK WndProc (HWND, UINT, WPARAM, LPARAM) ; void DrawRectangle (HWND) ; int WINAPI WinMain (HINSTANCE hInstance, HINSTANC…