![](https://img-blog.csdnimg.cn/20201014180756918.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
Delphi札记
文章平均质量分 69
houhu_cs
这个作者很懒,什么都没留下…
展开
-
初涉Delphi下Windows消息机制——系统预定义消息实例
该实例使用的是windows的WM_KEYDOWN消息,当按键按下时,发出beep声音。创建一个窗口,代码部分如下:type TForm1 = class(TForm) private { Private declarations } procedure keydown(var Msg:TWMKeydown);message WM_KEYDOWN原创 2010-02-04 20:46:00 · 1547 阅读 · 0 评论 -
初涉Delphi下Windows消息机制——概念
a) 消息消息,就是指windows发出的一个通知,告诉应用程序某个事情发生了。例如:点击鼠标,系统会将这一动作翻译成一个消息,通知应用程序,有这么一个行为发生了。按键,改变窗口大小……,这些都能使系统产生一个消息。消息是被封装在一个固定的结构中的,结构如下: Type TMsg=packed record hwnd:HWND; {原创 2010-02-04 20:40:00 · 916 阅读 · 0 评论 -
初涉Delphi下Windows消息机制——程序间自定义消息实例
窗口1添加一个button。添加button双击事件,代码如下:const MY_MESSAGE=WM_USER+100;var Form1: TForm1; hd:Thandle;implementation{$R *.dfm}procedure TForm1.btn1Click(Sender: TObject);begin hd:=Find原创 2010-02-05 11:43:00 · 1449 阅读 · 0 评论 -
初涉Delphi下Windows消息机制——同一程序内自定义消息实例
消息区别于调用的优势:消息可以让你不需要知道接收者的确切类型。同时,消息可以有选择地处理。如果接收者对消息没有做任何处理,不会造成任何后果。最后,消息可以广播给多个接收者,而要同时调用几个过程则比较困难。下面是一个在同一应用程序内自定义消息的实例:创建一个窗口FORM1,拖一个按钮控件,btn1。双击btn1,创建btn1的点击事件。代码如下(省略头部代码):uses Wi原创 2010-02-05 09:24:00 · 1497 阅读 · 0 评论 -
Delphi下MSMQ(Mircosoft Message Queue)实例(私有队列)
网上关于消息队列技术原理说明的详细文档很多,但涉及到Delphi的具体实现很少,这是我从网上找了一上午的资料,自己整合和尝试的能运行的程序。打开控制面板->程序->添加组件,添加消息队列打开控制面板->计算机管理->服务与应用程序->消息队列,添加私有有消息Test.在Delphi中添加MSMQ控件, TMSMQMessage; TMSMQQueueInfo; TMSMQQueu原创 2010-02-21 17:04:00 · 4552 阅读 · 0 评论