两个老生常谈的问题：１、如何实现鼠标点住客户区拖动窗体？如何移

开发技术指南» 文章正文

引言：两个老生常谈的问题：１、如何实现鼠标点住客户区拖动窗体？如何移

·失业纪念 »显示摘要«

摘要：不知道为什么就被公司以“试用期不合格”的理由给裁了，同样命运的还有几个同来的新人，想必是公司推脱责任的借口吧，没有项目可做凭什么来评估我们的业绩，而我自认为自己认真勤恳，积极学习代码，总之，走就走吧，留个纪念，免得自己忘记这段无知的日子。 ......

·矩阵库 »显示摘要«

摘要：做工程计算的东西，总感觉需要一个优秀的矩阵库，片断性的问题，一般都是用matlab就很方便，但是做程序的话，虽然也可以使用matlab，总是有点七零八落，今天趁机查了一些c++数值库的信息，尤其是矩阵库，一些出色的文章我也粘贴到了blog中，呵呵，我记性可不是象人家程序那么出色，：）， http://www-900.ibm.com/developerworks/cn/linux/other/ma......

TMovePanel

两个老生常谈的问题:

　　２.如何在程序运行期间用鼠标拖动窗体上的控件? 【程序编程相关:ORACLE数据库管理员的职责(转)】

　　１.如何实现鼠标点住客户区拖动窗体?如何移动没有标题栏的窗体? 【推荐阅读:为什么要制定一个标准，它的实际意义在哪儿】

-------------------------------------------------------------------------------- 【扩展信息:C#中程序的互斥运行】

在我这里,这两个问题是这样解决的——

★　拖动窗体　★

　　经典的做法:"欺骗"系统,让它以为点中的是窗体的标题栏

type

　　tform1 = class(tform)

　　……

　　private

　　　procedure wmnchittest(var m: twmnchittest); message wm_nchittest;

end;

var

　　form1: tform1;

implementation

procedure tform1.wmnchittest(var m: twmnchittest);

begin

　　inherited; 　　　　　　　　　　//call the inherited message handler

　　if m.result := htclient then 　 //is the click in the client area?

　　m.result := htcaption; 　　　 //if so, make windows think it´s on the caption bar.

end;

------------------------------------------------------------------------------------------

　　这种做法看似巧妙,但实际上有缺陷,你会发现,窗体的客户区不可能向上移出屏幕.
... 下一页

·createlnk & resolvelnk »显示摘要«

摘要：createlnk & resolvelnk　　本文介绍的两个函数，其原型声明如下，具体实现可以在源代码中找到，我只简要介绍一下用法。　　function resolvelnk( wnd : hwnd;　　　　　　　　　　　　　lpszlinkfile : pchar; 　　　　　　　　　　　　　lpszpath, lpszargs, lpszworkdir, 　　　　　　　　　　　......

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：