2016年2月25日
dephi中单击鼠标拖动窗口（使用WM_SYSCOMMAND）
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin ReleaseCapture; Perform(WM_SYSCOMMAND,$ Read More
posted @ 2016-02-25 18:37 findumars Views(420) Comments(0) Diggs(0)
delphi中左右翻转窗体（修改EXStyle）
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Pr Read More
posted @ 2016-02-25 18:36 findumars Views(578) Comments(0) Diggs(0)
delphi中覆盖最大化消息（覆盖WM_GETMINMAXINFO消息）
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type TForm1 = class(TForm) private { Private decl Read More
posted @ 2016-02-25 18:34 findumars Views(281) Comments(0) Diggs(0)
鼠标进入与离开的消息（使用CM_MOUSEENTER来判断是否进入控件）
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLab Read More
posted @ 2016-02-25 18:33 findumars Views(529) Comments(0) Diggs(0)
delphi与汇编
我一直认为Delphi功能与C＋＋相比毫不逊色，提供了丰富的控件和类、全部API以及嵌入的汇编。最近小弟在把C版的Huffman压缩改用Delphi写时，顺便“研究”了一下Delphi的位操作和嵌入式汇编，利用嵌入汇编我们可以得到高效的程序代码，完成一些Delphi没有提供的底层功能。借贵报一方宝地 Read More
posted @ 2016-02-25 18:32 findumars Views(1298) Comments(0) Diggs(0)